diff options
Diffstat (limited to 'gcc/melt/warmelt-normal.0.c')
| -rw-r--r-- | gcc/melt/warmelt-normal.0.c | 49345 |
1 files changed, 203 insertions, 49142 deletions
diff --git a/gcc/melt/warmelt-normal.0.c b/gcc/melt/warmelt-normal.0.c index 49005075a39..cdef3014ade 100644 --- a/gcc/melt/warmelt-normal.0.c +++ b/gcc/melt/warmelt-normal.0.c @@ -1,14 +1,14 @@ -/* GCC MELT GENERATED FILE warmelt-normal.3.c - DO NOT EDIT */ +/* GCC MELT GENERATED FILE warmelt-normal.0.c - DO NOT EDIT */ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.5.0 20091124 (experimental) [melt-branch revision 154669]"; + "4.5.0 20091130 (experimental) [melt-branch revision 154718]"; #endif #include "run-melt.h" -/**** warmelt-normal.3.c declarations ****/ +/**** warmelt-normal.0.c declarations ****/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /**!!** *** @@ -818,7 +818,7 @@ void mark_module_melt(void*); void* initial_frame_melt; -/**** warmelt-normal.3.c implementations ****/ +/**** warmelt-normal.0.c implementations ****/ @@ -25874,48945 +25874,6 @@ melt_trace_end("NORMEXP_UNSAFE_GET_FIELD", callcount); melt_topframe = (struct - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_64_warmelt_normal_NORMEXP_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_64_warmelt_normal_NORMEXP_GET_FIELD_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 49 - void* varptr[49]; -#define CURFRAM_NBVARNUM 10 - long varnum[10]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<49; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 49; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_GET_FIELD", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2414:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2414:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2414:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:2414:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2414:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2415:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2415:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_GET_FIELD*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2415:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2415:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2415:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2415:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2415:/ locexp"); - melt_assert_failed(( "check getfield recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2415)?(2415):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2415:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2415:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2415:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2416:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2416:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2416:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2416:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2416:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2416:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2416:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2416)?(2416):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2416:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2416:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2416:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2417:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2417:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2417:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2417:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2417:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2417:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2417:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2417)?(2417):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2417:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2417:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2417:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2418:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2418:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2418:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg"); - argtab[0].bp_cstring = "normexp_get_field recv"; - MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg"); - argtab[3].bp_long = 2418; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2418:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2418:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2418:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2419:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2419:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2420:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUGET_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2421:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SUGET_FIELD");/*_.SFLD__V17*/ curfptr[16] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2423:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2423:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:2423:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2423:/ cond.then"); - /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2423:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2423:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2423:/ locexp"); - melt_assert_failed(( "check sfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2423)?(2423):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2423:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2423:/ clear"); - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2423:/ cppif.else"); - /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2424:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ curfptr[21];MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.send"); - /*_.NOBJ__V21*/ curfptr[20] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2424:/ block"); - /*block*/{ - /*_#NULL__L6*/ curfnum[0] = - ((/*_.NBIND__V22*/ curfptr[21]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:2427:/ cond"); - /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2427:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2427:/ block"); - /*block*/{ - /*_.MAKE_LIST__V24*/ curfptr[23] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; - MELT_LOCATION("warmelt-normal.melt:2427:/ compute"); - /*_.NBIND__V22*/ curfptr[21] = /*_.SETQ___V25*/ curfptr[24] = /*_.MAKE_LIST__V24*/ curfptr[23];; - /*_.IF___V23*/ curfptr[22] = /*_.SETQ___V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2427:/ clear"); - /*clear*/ /*_.MAKE_LIST__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2427:/ clear"); - /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2427:/ cond.else"); - - /*_.IF___V23*/ curfptr[22] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2428:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2428:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2428:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg"); - argtab[0].bp_cstring = "normexp_get_field nobj"; - MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg"); - argtab[3].bp_long = 2428; - /*_.DEBUG_MSG_FUN__V27*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NOBJ__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V26*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2428:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2428:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2428:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2429:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2429:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ curfptr[28] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2429:/ apply"); - /*apply*/{ - /*_.CSYM__V30*/ curfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NAMED_NAME__V29*/ curfptr[28]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2430:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), 2, "FLD_OWNCLASS");/*_.FCLA__V31*/ curfptr[30] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2431:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2431:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2431:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:2431:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:2431:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4]; - /*_.NC__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.FCLA__V31*/ curfptr[30]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2432:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2432:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2432:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg"); - argtab[0].bp_cstring = "normexp_get_field ncla"; - MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg"); - argtab[3].bp_long = 2432; - /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NC__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2432:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2432:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2432:/ cppif.else"); - /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V32*/ curfptr[31] = /*_.NC__V33*/ curfptr[32];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2431:/ clear"); - /*clear*/ /*_.NC__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2431:/ clear"); - /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;} - ; - /*_.NCLA__V36*/ curfptr[34] = /*_.LET___V32*/ curfptr[31];; - MELT_LOCATION("warmelt-normal.melt:2434:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2434:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[8])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V38*/ curfptr[33] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2434:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[33]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2434:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[33]), (1), (/*_.NOBJ__V21*/ curfptr[20]), "NUGET_OBJ"); - ; - MELT_LOCATION("warmelt-normal.melt:2434:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[33]), (2), (/*_.SFLD__V17*/ curfptr[16]), "NUGET_FIELD"); - ; - /*_.NUGET__V37*/ curfptr[32] = /*_.INST__V38*/ curfptr[33];;} - ; - MELT_LOCATION("warmelt-normal.melt:2443:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2443:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IFISA*/ curfrout->tabval[11])), (6), "CLASS_NREP_IFISA");/*_.INST__V40*/ curfptr[39] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2443:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2443:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NIFA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (4), (/*_.NOBJ__V21*/ curfptr[20]), "NIFA_VAL"); - ; - MELT_LOCATION("warmelt-normal.melt:2443:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NIFA_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (5), (/*_.NCLA__V36*/ curfptr[34]), "NIFA_CLASS"); - ; - MELT_LOCATION("warmelt-normal.melt:2443:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NUGET__V37*/ curfptr[32]), "NIF_THEN"); - ; - MELT_LOCATION("warmelt-normal.melt:2443:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "NEXPR_CTYP"); - ; - /*_.INST___V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;} - ; - MELT_LOCATION("warmelt-normal.melt:2438:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2438:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[9])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V42*/ curfptr[41] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2438:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (0), (/*_.CSYM__V30*/ curfptr[29]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:2438:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2438:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:2438:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.INST___V39*/ curfptr[38]), "LETBIND_EXPR"); - ; - /*_.CBIND__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;} - ; - MELT_LOCATION("warmelt-normal.melt:2450:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2450:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[12])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V44*/ curfptr[43] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2450:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2450:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:2450:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (1), (/*_.CSYM__V30*/ curfptr[29]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:2450:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (3), (/*_.CBIND__V41*/ curfptr[40]), "NOCC_BIND"); - ; - /*_.CLOCC__V43*/ curfptr[42] = /*_.INST__V44*/ curfptr[43];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2456:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (melt_ptr_t)(/*_.CBIND__V41*/ curfptr[40]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2457:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2457:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2457:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg"); - argtab[0].bp_cstring = "normexp_get_field clocc"; - MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg"); - argtab[3].bp_long = 2457; - /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2457:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2457:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2457:/ cppif.else"); - /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2458:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2458:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2458:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg"); - argtab[0].bp_cstring = "normexp_get_field nbind"; - MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg"); - argtab[3].bp_long = 2458; - /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2458:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2458:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2458:/ cppif.else"); - /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2459:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V43*/ curfptr[42];; - MELT_LOCATION("warmelt-normal.melt:2459:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBIND__V22*/ curfptr[21]); - ; - MELT_LOCATION("warmelt-normal.melt:2459:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V28*/ curfptr[24] = /*_.RETURN___V49*/ curfptr[47];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.NAMED_NAME__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.CSYM__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.FCLA__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.NCLA__V36*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.NUGET__V37*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.INST___V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.CBIND__V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.CLOCC__V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2429:/ clear"); - /*clear*/ /*_.RETURN___V49*/ curfptr[47] = 0 ;} - ; - /*_.MULTI___V20*/ curfptr[18] = /*_.LET___V28*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2424:/ clear"); - /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2424:/ clear"); - /*clear*/ /*_.IF___V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2424:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2424:/ clear"); - /*clear*/ /*_.LET___V28*/ curfptr[24] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2424:/ clear"); - /*clear*/ /*_.NBIND__V22*/ curfptr[21] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V20*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2419:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2419:/ clear"); - /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2419:/ clear"); - /*clear*/ /*_.SFLD__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2419:/ clear"); - /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2419:/ clear"); - /*clear*/ /*_.MULTI___V20*/ curfptr[18] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2414:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:2414:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2414:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2414:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2414:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2414:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2414:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_GET_FIELD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_64_warmelt_normal_NORMEXP_GET_FIELD*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 39 - void* varptr[39]; -#define CURFRAM_NBVARNUM 7 - long varnum[7]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<39; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 39; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_UNSAFE_PUT_FIELDS", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2466:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2466:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2466:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:2466:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2466:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2467:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2467:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2467:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2467:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2467:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2467:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2467:/ locexp"); - melt_assert_failed(( "check unsafeputfields recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2467)?(2467):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2467:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2467:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2467:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2468:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2468:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2468:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2468:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2468:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2468:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2468:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2468)?(2468):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2468:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2468:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2468:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2469:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2469:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2469:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2469:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2469:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2469:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2469:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2469)?(2469):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2469:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2469:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2469:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2470:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2470:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2470:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg"); - argtab[0].bp_cstring = "normexp_unsafe_put_fields recv"; - MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg"); - argtab[3].bp_long = 2470; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2470:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2470:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2470:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2471:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2471:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2472:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUPUT_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2473:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SUPUT_FIELDS");/*_.SFIELDS__V17*/ curfptr[16] = slot; }; - ; - /*_#NBFIELDS__L5*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16])));; - /*_.NFIELDS__V18*/ curfptr[17] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBFIELDS__L5*/ curfnum[0])));; - /*_.NBINDLIST__V19*/ curfptr[18] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; - MELT_LOCATION("warmelt-normal.melt:2477:/ apply"); - /*apply*/{ - /*_.CSYM__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_UNSAFPUT_*/ curfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2478:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2478:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V22*/ curfptr[21] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2478:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.CSYM__V20*/ curfptr[19]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:2478:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2478:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:2478:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "LETBIND_EXPR"); - ; - /*_.CBIND__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;} - ; - MELT_LOCATION("warmelt-normal.melt:2484:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2484:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V24*/ curfptr[23] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2484:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2484:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:2484:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.CSYM__V20*/ curfptr[19]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:2484:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.CBIND__V21*/ curfptr[20]), "NOCC_BIND"); - ; - /*_.CLOCC__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} - ; - MELT_LOCATION("warmelt-normal.melt:2490:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V27*/ curfptr[26];MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.send"); - /*_.NOBJ__V26*/ curfptr[25] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2490:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2493:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2493:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V27*/ curfptr[26]; - /*_.LIST_APPEND2LIST__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2496:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2496:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (5)); - ; - MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]); - ; - MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]); - ; - MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); - ; - MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[3] = (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]); - ; - MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[4] = (melt_ptr_t)(/*_.NFIELDS__V18*/ curfptr[17]); - ; - /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;} - ; - MELT_LOCATION("warmelt-normal.melt:2494:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2494:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28]; - /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2511:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2511:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2511:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[20])), (3), "CLASS_NREP_UNSAFE_PUT_FIELDS");/*_.INST__V34*/ curfptr[33] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2511:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2511:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.NOBJ__V26*/ curfptr[25]), "NUPUT_OBJ"); - ; - MELT_LOCATION("warmelt-normal.melt:2511:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.NFIELDS__V18*/ curfptr[17]), "NUPUT_FIELDS"); - ; - /*_.NPUF__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} - ; - MELT_LOCATION("warmelt-normal.melt:2515:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2515:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CBIND__V21*/ curfptr[20]), (2), (/*_.NPUF__V33*/ curfptr[32]), "LETBIND_EXPR"); - ; - MELT_LOCATION("warmelt-normal.melt:2515:/ touch"); - meltgc_touch(/*_.CBIND__V21*/ curfptr[20]); - ; - /*epilog*/} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2516:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2517:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2517:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[5] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2517:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg"); - argtab[0].bp_cstring = "normexp_unsafe_put_fields result clocc"; - MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg"); - argtab[3].bp_long = 2517; - /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2517:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2517:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2517:/ cppif.else"); - /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2518:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2518:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[5] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2518:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg"); - argtab[0].bp_cstring = "normexp_unsafe_put_fields result nbindlist"; - MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; - MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg"); - argtab[3].bp_long = 2518; - /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2518:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2518:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2518:/ cppif.else"); - /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2519:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V23*/ curfptr[22];; - MELT_LOCATION("warmelt-normal.melt:2519:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDLIST__V19*/ curfptr[18]); - ; - MELT_LOCATION("warmelt-normal.melt:2519:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V32*/ curfptr[31] = /*_.RETURN___V39*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2511:/ clear"); - /*clear*/ /*_.NPUF__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2511:/ clear"); - /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2511:/ clear"); - /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2511:/ clear"); - /*clear*/ /*_.RETURN___V39*/ curfptr[37] = 0 ;} - ; - /*_.MULTI___V25*/ curfptr[24] = /*_.LET___V32*/ curfptr[31];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2490:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2490:/ clear"); - /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2490:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2490:/ clear"); - /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2490:/ clear"); - /*clear*/ /*_.NOBJBIND__V27*/ curfptr[26] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_.SFIELDS__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_#NBFIELDS__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_.NFIELDS__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_.NBINDLIST__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_.CSYM__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_.CBIND__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_.CLOCC__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2471:/ clear"); - /*clear*/ /*_.MULTI___V25*/ curfptr[24] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2466:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:2466:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2466:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2466:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2466:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2466:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2466:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_UNSAFE_PUT_FIELDS", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_66_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_66_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 13 - void* varptr[13]; -#define CURFRAM_NBVARNUM 3 - long varnum[3]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<13; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 13; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2496:/ getarg"); - /*_.FLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2496:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2496:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2497:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2497:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.FLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2497:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2497:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2497:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2497:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2497:/ locexp"); - melt_assert_failed(( "check fla"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2497)?(2497):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2497:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2497:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2497:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2498:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2498:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.FLD__V5*/ curfptr[3] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2499:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.EXP__V6*/ curfptr[5] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2500:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2500:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.FLD__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2500:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2500:/ cond.then"); - /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2500:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2500:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2500:/ locexp"); - melt_assert_failed(( "check fld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2500)?(2500):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2500:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2500:/ clear"); - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2500:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2501:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); - MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V10*/ curfptr[9];MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.send"); - /*_.NEXP__V9*/ curfptr[7] = meltgc_send ((melt_ptr_t)(/*_.EXP__V6*/ curfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2501:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2504:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2504:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V10*/ curfptr[9]; - /*_.LIST_APPEND2LIST__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (melt_ptr_t)((/*~NBINDLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2505:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2505:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2505:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[4])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V13*/ curfptr[12] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2505:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (0), ((/*~SLOC*/ curfclos->tabval[2])), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2505:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NFLA_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), (/*_.FLD__V5*/ curfptr[3]), "NFLA_FIELD"); - ; - MELT_LOCATION("warmelt-normal.melt:2505:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NFLA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (2), (/*_.NEXP__V9*/ curfptr[7]), "NFLA_VAL"); - ; - /*_.NFLA__V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2509:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)((/*~NFIELDS*/ curfclos->tabval[4])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NFLA__V12*/ curfptr[11]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2505:/ clear"); - /*clear*/ /*_.NFLA__V12*/ curfptr[11] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2501:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2501:/ clear"); - /*clear*/ /*_.NEXPBIND__V10*/ curfptr[9] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2498:/ clear"); - /*clear*/ /*_.FLD__V5*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2498:/ clear"); - /*clear*/ /*_.EXP__V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2498:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2496:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_66_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_67_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_67_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 3 - void* varptr[3]; -/*no varnum*/ -#define CURFRAM_NBVARNUM /*none*/0 -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<3; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 3; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2522:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2522:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2522:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:2522:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VOID*/ curfrout->tabval[0]);; - MELT_LOCATION("warmelt-normal.melt:2522:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_67_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 72 - void* varptr[72]; -#define CURFRAM_NBVARNUM 19 - long varnum[19]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<72; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 72; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_PUT_FIELDS", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2526:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2526:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2526:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:2526:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2526:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2527:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2527:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PUT_FIELDS*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2527:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2527:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2527:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2527:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2527:/ locexp"); - melt_assert_failed(( "check putfields recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2527)?(2527):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2527:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2527:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2527:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2528:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2528:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2528:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2528:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2528:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2528:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2528:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2528)?(2528):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2528:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2528:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2528:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2529:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2529:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2529:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2529:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2529:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2529:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2529:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2529)?(2529):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2529:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2529:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2529:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2530:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2530:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2530:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg"); - argtab[0].bp_cstring = "normexp_put_fields recv"; - MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg"); - argtab[3].bp_long = 2530; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2530:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2530:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2530:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2531:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2531:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2532:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUPUT_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2533:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SUPUT_FIELDS");/*_.SFIELDS__V17*/ curfptr[16] = slot; }; - ; - /*_#NBFIELDS__L5*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16])));; - /*_.NFIELDS__V18*/ curfptr[17] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBFIELDS__L5*/ curfnum[0])));; - /*_.NBINDLIST__V19*/ curfptr[18] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; - MELT_LOCATION("warmelt-normal.melt:2537:/ apply"); - /*apply*/{ - /*_.CSYM__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_PUTFLD_*/ curfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2538:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2538:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V22*/ curfptr[21] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2538:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.CSYM__V20*/ curfptr[19]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:2538:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2538:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:2538:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "LETBIND_EXPR"); - ; - /*_.CBIND__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;} - ; - MELT_LOCATION("warmelt-normal.melt:2544:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2544:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V24*/ curfptr[23] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2544:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2544:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:2544:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.CSYM__V20*/ curfptr[19]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:2544:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.CBIND__V21*/ curfptr[20]), "NOCC_BIND"); - ; - /*_.CLOCC__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} - ; - /*_.CLABOX__V25*/ curfptr[24] = - meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[11])), (melt_ptr_t)((/*nil*/NULL)));; - MELT_LOCATION("warmelt-normal.melt:2551:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V28*/ curfptr[27];MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.send"); - /*_.NOBJ__V27*/ curfptr[26] = meltgc_send ((melt_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[12]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2551:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2554:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2554:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V28*/ curfptr[27]; - /*_.LIST_APPEND2LIST__V29*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SFIELDS__V17*/ curfptr[16]); - for (/*_#IX__L6*/ curfnum[5] = 0; - (/*_#IX__L6*/ curfnum[5] >= 0) && (/*_#IX__L6*/ curfnum[5] < cit1__EACHTUP_ln); - /*_#IX__L6*/ curfnum[5]++) { - /*_.FLA__V30*/ curfptr[29] = melt_multiple_nth((melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16]), /*_#IX__L6*/ curfnum[5]); - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2558:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2558:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2558:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg"); - argtab[0].bp_cstring = "normexp_put_fields fla"; - MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg"); - argtab[3].bp_long = 2558; - /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2558:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2558:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2558:/ cppif.else"); - /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2559:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2559:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2559:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg"); - argtab[0].bp_cstring = "normexp_put_fields clabox"; - MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg"); - argtab[3].bp_long = 2559; - /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2559:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2559:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2559:/ cppif.else"); - /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2560:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2560:/ block"); - /*block*/{ - /*_#IS_A__L9*/ curfnum[6] = - melt_is_instance_of((melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[14])));; - MELT_LOCATION("warmelt-normal.melt:2560:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ curfnum[6]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2560:/ cond.then"); - /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2560:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2560:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2560:/ locexp"); - melt_assert_failed(( "check fla"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2560)?(2560):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2560:/ clear"); - /*clear*/ /*_#IS_A__L9*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2560:/ clear"); - /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2560:/ cppif.else"); - /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2561:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2561:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), 2, "SFLA_FIELD");/*_.FLD__V37*/ curfptr[35] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2562:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), 3, "SFLA_EXPR");/*_.EXP__V38*/ curfptr[37] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2563:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2563:/ block"); - /*block*/{ - /*_#IS_A__L10*/ curfnum[6] = - melt_is_instance_of((melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[15])));; - MELT_LOCATION("warmelt-normal.melt:2563:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ curfnum[6]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2563:/ cond.then"); - /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2563:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2563:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2563:/ locexp"); - melt_assert_failed(( "check fld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2563)?(2563):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V39*/ curfptr[38] = /*_.IFELSE___V40*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2563:/ clear"); - /*clear*/ /*_#IS_A__L10*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2563:/ clear"); - /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2563:/ cppif.else"); - /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2564:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2564:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), 2, "FLD_OWNCLASS");/*_.FCLA__V42*/ curfptr[41] = slot; }; - ; - /*_.PRECLA__V43*/ curfptr[42] = - melt_box_content((meltbox_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]));; - /*_#NULL__L11*/ curfnum[6] = - ((/*_.PRECLA__V43*/ curfptr[42]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:2567:/ cond"); - /*cond*/ if (/*_#NULL__L11*/ curfnum[6]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2567:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2567:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2568:/ locexp"); - meltgc_box_put((melt_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]));} - ; - /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2567:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2567:/ block"); - /*block*/{ - /*_#__L12*/ curfnum[11] = - ((/*_.PRECLA__V43*/ curfptr[42]) == (/*_.FCLA__V42*/ curfptr[41]));; - MELT_LOCATION("warmelt-normal.melt:2570:/ cond"); - /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2570:/ cond.then"); - /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2570:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2570:/ block"); - /*block*/{ - /*_#SUBCLASS_OF__L13*/ curfnum[12] = - melt_is_subclass_of((meltobject_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]), (meltobject_ptr_t)(/*_.FCLA__V42*/ curfptr[41]));; - MELT_LOCATION("warmelt-normal.melt:2573:/ cond"); - /*cond*/ if (/*_#SUBCLASS_OF__L13*/ curfnum[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2573:/ cond.then"); - /*_.IFELSE___V46*/ curfptr[45] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2573:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2573:/ block"); - /*block*/{ - /*_#SUBCLASS_OF__L14*/ curfnum[13] = - melt_is_subclass_of((meltobject_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), (meltobject_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]));; - MELT_LOCATION("warmelt-normal.melt:2576:/ cond"); - /*cond*/ if (/*_#SUBCLASS_OF__L14*/ curfnum[13]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2576:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2576:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2577:/ locexp"); - meltgc_box_put((melt_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]));} - ; - /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2576:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2576:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2580:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2580:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[14] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2580:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg"); - argtab[0].bp_cstring = "normexp_put_fields bad fld"; - MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14]; - MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg"); - argtab[3].bp_long = 2580; - /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2580:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2580:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2580:/ cppif.else"); - /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2581:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2581:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L16*/ curfnum[14] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2581:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg"); - argtab[0].bp_cstring = "normexp_put_fields bad fcla"; - MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14]; - MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg"); - argtab[3].bp_long = 2581; - /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2581:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2581:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2581:/ cppif.else"); - /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2582:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2582:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L17*/ curfnum[14] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2582:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg"); - argtab[0].bp_cstring = "normexp_put_fields bad precla"; - MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[14]; - MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg"); - argtab[3].bp_long = 2582; - /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2582:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2582:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2582:/ cppif.else"); - /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2583:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[51] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:2583:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad field name in PUT_FIELD"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[51]));} - ; - MELT_LOCATION("warmelt-normal.melt:2584:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]), 1, "NAMED_NAME");/*_.NAMED_NAME__V54*/ curfptr[53] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:2584:/ locexp"); - melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "PUT_FIELD expecting field of class"), (melt_ptr_t)(/*_.NAMED_NAME__V54*/ curfptr[53]));} - ; - MELT_LOCATION("warmelt-normal.melt:2585:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[16])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2585:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2585:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), 1, "NAMED_NAME");/*_.NAMED_NAME__V55*/ curfptr[54] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:2585:/ cond.else"); - - /*_.NAMED_NAME__V55*/ curfptr[54] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:2585:/ locexp"); - melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "PUT_FIELD got field of class"), (melt_ptr_t)(/*_.NAMED_NAME__V55*/ curfptr[54]));} - ; - MELT_LOCATION("warmelt-normal.melt:2579:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2576:/ clear"); - /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2576:/ clear"); - /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2576:/ clear"); - /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2576:/ clear"); - /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2576:/ clear"); - /*clear*/ /*_.NAMED_NAME__V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2576:/ clear"); - /*clear*/ /*_.NAMED_NAME__V55*/ curfptr[54] = 0 ;} - ; - } - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2573:/ clear"); - /*clear*/ /*_#SUBCLASS_OF__L14*/ curfnum[13] = 0 ;} - ; - } - ; - /*_.IFELSE___V45*/ curfptr[44] = /*_.IFELSE___V46*/ curfptr[45];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2570:/ clear"); - /*clear*/ /*_#SUBCLASS_OF__L13*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2570:/ clear"); - /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;} - ; - } - ; - /*_.IFELSE___V44*/ curfptr[43] = /*_.IFELSE___V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2567:/ clear"); - /*clear*/ /*_#__L12*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2567:/ clear"); - /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;} - ; - } - ; - /*_.LET___V41*/ curfptr[39] = /*_.IFELSE___V44*/ curfptr[43];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2564:/ clear"); - /*clear*/ /*_.FCLA__V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2564:/ clear"); - /*clear*/ /*_.PRECLA__V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2564:/ clear"); - /*clear*/ /*_#NULL__L11*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2564:/ clear"); - /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2589:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V57*/ curfptr[47];MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.send"); - /*_.NEXP__V56*/ curfptr[46] = meltgc_send ((melt_ptr_t)(/*_.EXP__V38*/ curfptr[37]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[12]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2589:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2592:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2592:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V57*/ curfptr[47]; - /*_.LIST_APPEND2LIST__V58*/ curfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2593:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2593:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2593:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[17])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V60*/ curfptr[53] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2593:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ curfptr[53]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2593:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NFLA_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ curfptr[53]), (1), (/*_.FLD__V37*/ curfptr[35]), "NFLA_FIELD"); - ; - MELT_LOCATION("warmelt-normal.melt:2593:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NFLA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ curfptr[53]), (2), (/*_.NEXP__V56*/ curfptr[46]), "NFLA_VAL"); - ; - /*_.NFLA__V59*/ curfptr[51] = /*_.INST__V60*/ curfptr[53];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2597:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.NFIELDS__V18*/ curfptr[17]), (/*_#IX__L6*/ curfnum[5]), (melt_ptr_t)(/*_.NFLA__V59*/ curfptr[51]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2593:/ clear"); - /*clear*/ /*_.NFLA__V59*/ curfptr[51] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2589:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V58*/ curfptr[49] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2589:/ clear"); - /*clear*/ /*_.NEXPBIND__V57*/ curfptr[47] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2561:/ clear"); - /*clear*/ /*_.FLD__V37*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2561:/ clear"); - /*clear*/ /*_.EXP__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2561:/ clear"); - /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2561:/ clear"); - /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;} - ; - if (/*_#IX__L6*/ curfnum[5]<0) break; - } /* end cit1__EACHTUP */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:2555:/ clear"); - /*clear*/ /*_.FLA__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2555:/ clear"); - /*clear*/ /*_#IX__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2555:/ clear"); - /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2555:/ clear"); - /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2555:/ clear"); - /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - MELT_LOCATION("warmelt-normal.melt:2599:/ block"); - /*block*/{ - /*_.BOX_CONTENT__V62*/ curfptr[45] = - melt_box_content((meltbox_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]));; - MELT_LOCATION("warmelt-normal.melt:2600:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2600:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:2600:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:2600:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NCLA__V63*/ curfptr[44] = meltgc_send((melt_ptr_t)(/*_.BOX_CONTENT__V62*/ curfptr[45]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2601:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2601:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[18])), (3), "CLASS_NREP_UNSAFE_PUT_FIELDS");/*_.INST__V65*/ curfptr[42] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2601:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[42])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[42]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2601:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[42])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[42]), (1), (/*_.NOBJ__V27*/ curfptr[26]), "NUPUT_OBJ"); - ; - MELT_LOCATION("warmelt-normal.melt:2601:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[42])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[42]), (2), (/*_.NFIELDS__V18*/ curfptr[17]), "NUPUT_FIELDS"); - ; - /*_.NPUF__V64*/ curfptr[41] = /*_.INST__V65*/ curfptr[42];;} - ; - MELT_LOCATION("warmelt-normal.melt:2605:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2605:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IFISA*/ curfrout->tabval[19])), (6), "CLASS_NREP_IFISA");/*_.INST__V67*/ curfptr[51] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2605:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2605:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NIFA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (4), (/*_.NOBJ__V27*/ curfptr[26]), "NIFA_VAL"); - ; - MELT_LOCATION("warmelt-normal.melt:2605:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NIFA_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (5), (/*_.NCLA__V63*/ curfptr[44]), "NIFA_CLASS"); - ; - MELT_LOCATION("warmelt-normal.melt:2605:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (2), (/*_.NPUF__V64*/ curfptr[41]), "NIF_THEN"); - ; - MELT_LOCATION("warmelt-normal.melt:2605:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NEXPR_CTYP"); - ; - /*_.NIF__V66*/ curfptr[43] = /*_.INST__V67*/ curfptr[51];;} - ; - MELT_LOCATION("warmelt-normal.melt:2613:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2613:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CBIND__V21*/ curfptr[20]), (2), (/*_.NIF__V66*/ curfptr[43]), "LETBIND_EXPR"); - ; - MELT_LOCATION("warmelt-normal.melt:2613:/ touch"); - meltgc_touch(/*_.CBIND__V21*/ curfptr[20]); - ; - /*epilog*/} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2614:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2615:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2615:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L18*/ curfnum[14] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2615:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg"); - argtab[0].bp_cstring = "normexp_put_fields result clocc"; - MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[14]; - MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg"); - argtab[3].bp_long = 2615; - /*_.DEBUG_MSG_FUN__V69*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V68*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2615:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2615:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[46] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2615:/ cppif.else"); - /*_.IFCPP___V68*/ curfptr[49] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2616:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2616:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L19*/ curfnum[13] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2616:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg"); - argtab[0].bp_cstring = "normexp_put_fields result nbindlist"; - MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[13]; - MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg"); - argtab[3].bp_long = 2616; - /*_.DEBUG_MSG_FUN__V71*/ curfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V70*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V71*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2616:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2616:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ curfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2616:/ cppif.else"); - /*_.IFCPP___V70*/ curfptr[47] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2617:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V23*/ curfptr[22];; - MELT_LOCATION("warmelt-normal.melt:2617:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDLIST__V19*/ curfptr[18]); - ; - MELT_LOCATION("warmelt-normal.melt:2617:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V61*/ curfptr[54] = /*_.RETURN___V72*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2599:/ clear"); - /*clear*/ /*_.BOX_CONTENT__V62*/ curfptr[45] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2599:/ clear"); - /*clear*/ /*_.NCLA__V63*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2599:/ clear"); - /*clear*/ /*_.NPUF__V64*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2599:/ clear"); - /*clear*/ /*_.NIF__V66*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2599:/ clear"); - /*clear*/ /*_.IFCPP___V68*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2599:/ clear"); - /*clear*/ /*_.IFCPP___V70*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2599:/ clear"); - /*clear*/ /*_.RETURN___V72*/ curfptr[37] = 0 ;} - ; - /*_.MULTI___V26*/ curfptr[25] = /*_.LET___V61*/ curfptr[54];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2551:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2551:/ clear"); - /*clear*/ /*_.LET___V61*/ curfptr[54] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2551:/ clear"); - /*clear*/ /*_.NOBJBIND__V28*/ curfptr[27] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.SFIELDS__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_#NBFIELDS__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.NFIELDS__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.NBINDLIST__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.CSYM__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.CBIND__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.CLOCC__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.CLABOX__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2531:/ clear"); - /*clear*/ /*_.MULTI___V26*/ curfptr[25] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2526:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:2526:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2526:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2526:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2526:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2526:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2526:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_PUT_FIELDS", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_69_warmelt_normal_NORMEXP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_69_warmelt_normal_NORMEXP_SETQ_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 49 - void* varptr[49]; -#define CURFRAM_NBVARNUM 11 - long varnum[11]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<49; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 49; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_SETQ", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2622:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2622:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2622:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:2622:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2622:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2623:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2623:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_SETQ*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2623:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2623:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2623:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2623:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2623:/ locexp"); - melt_assert_failed(( "check setq recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2623)?(2623):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2623:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2623:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2623:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2624:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2624:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2624:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2624:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2624:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2624:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2624:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2624)?(2624):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2624:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2624:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2624:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2625:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2625:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2625:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2625:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2625:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2625:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2625:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2625)?(2625):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2625:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2625:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2625:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2626:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2626:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2626:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg"); - argtab[0].bp_cstring = "normexp setq recv"; - MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg"); - argtab[3].bp_long = 2626; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2626:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2626:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2626:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2627:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2627:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2628:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SSTQ_VAR");/*_.SVAR__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2629:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SSTQ_EXPR");/*_.SEXP__V17*/ curfptr[16] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2630:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2630:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:2630:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2630:/ cond.then"); - /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2630:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2630:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2630:/ locexp"); - melt_assert_failed(( "check svar"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2630)?(2630):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2630:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2630:/ clear"); - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2630:/ cppif.else"); - /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2631:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2631:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2631:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:2631:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:2631:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NVAR__V21*/ curfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2632:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2632:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - /*_.VARCTYP__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.NVAR__V21*/ curfptr[20]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2634:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2634:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2634:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg"); - argtab[0].bp_cstring = "normexp_setq varctyp"; - MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg"); - argtab[3].bp_long = 2634; - /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2634:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2634:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2634:/ cppif.else"); - /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2635:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2635:/ block"); - /*block*/{ - /*_#IS_A__L7*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:2635:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2635:/ cond.then"); - /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2635:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2635:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2635:/ locexp"); - melt_assert_failed(( "check varctyp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2635)?(2635):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2635:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2635:/ clear"); - /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2635:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2636:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V29*/ curfptr[28];MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.send"); - /*_.NEXP__V28*/ curfptr[27] = meltgc_send ((melt_ptr_t)(/*_.SEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2636:/ block"); - /*block*/{ - /*_#NULL__L8*/ curfnum[0] = - ((/*_.NBIND__V29*/ curfptr[28]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:2639:/ cond"); - /*cond*/ if (/*_#NULL__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2639:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2639:/ block"); - /*block*/{ - /*_.MAKE_LIST__V31*/ curfptr[30] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; - MELT_LOCATION("warmelt-normal.melt:2639:/ compute"); - /*_.NBIND__V29*/ curfptr[28] = /*_.SETQ___V32*/ curfptr[31] = /*_.MAKE_LIST__V31*/ curfptr[30];; - /*_.IF___V30*/ curfptr[29] = /*_.SETQ___V32*/ curfptr[31];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2639:/ clear"); - /*clear*/ /*_.MAKE_LIST__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2639:/ clear"); - /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2639:/ cond.else"); - - /*_.IF___V30*/ curfptr[29] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:2640:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2640:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2640:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - /*_.EXPCTYP__V33*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.NEXP__V28*/ curfptr[27]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2642:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2642:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2642:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg"); - argtab[0].bp_cstring = "normexp_setq expctyp"; - MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg"); - argtab[3].bp_long = 2642; - /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V34*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2642:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2642:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2642:/ cppif.else"); - /*_.IFCPP___V34*/ curfptr[31] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2643:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2643:/ block"); - /*block*/{ - /*_#IS_A__L10*/ curfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:2643:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2643:/ cond.then"); - /*_.IFELSE___V37*/ curfptr[36] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2643:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2643:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2643:/ locexp"); - melt_assert_failed(( "check expctyp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2643)?(2643):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V36*/ curfptr[34] = /*_.IFELSE___V37*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2643:/ clear"); - /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2643:/ clear"); - /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2643:/ cppif.else"); - /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#__L11*/ curfnum[8] = - ((/*_.VARCTYP__V22*/ curfptr[21]) != (/*_.EXPCTYP__V33*/ curfptr[30]));; - MELT_LOCATION("warmelt-normal.melt:2644:/ cond"); - /*cond*/ if (/*_#__L11*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2644:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2644:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2647:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ curfptr[36] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:2646:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "incompatible type for SETQ"), (melt_ptr_t)(/*_.NAMED_NAME__V38*/ curfptr[36]));} - ; - MELT_LOCATION("warmelt-normal.melt:2649:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V39*/ curfptr[38] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:2648:/ locexp"); - melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "left [var] type for incomatible SETQ"), (melt_ptr_t)(/*_.NAMED_NAME__V39*/ curfptr[38]));} - ; - MELT_LOCATION("warmelt-normal.melt:2651:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:2650:/ locexp"); - melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "right [expr] type for incomatible SETQ"), (melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[39]));} - ; - MELT_LOCATION("warmelt-normal.melt:2645:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2644:/ clear"); - /*clear*/ /*_.NAMED_NAME__V38*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2644:/ clear"); - /*clear*/ /*_.NAMED_NAME__V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2644:/ clear"); - /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ;} - ; - } /*noelse*/ - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2640:/ clear"); - /*clear*/ /*_.EXPCTYP__V33*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2640:/ clear"); - /*clear*/ /*_.IFCPP___V34*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2640:/ clear"); - /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2640:/ clear"); - /*clear*/ /*_#__L11*/ curfnum[8] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2653:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2653:/ apply"); - /*apply*/{ - /*_.CSYM__V42*/ curfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_SETQ_*/ curfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2659:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2659:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_SETQ*/ curfrout->tabval[13])), (3), "CLASS_NREP_SETQ");/*_.INST__V44*/ curfptr[30] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2659:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V44*/ curfptr[30]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2659:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTQ_VAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V44*/ curfptr[30]), (1), (/*_.NVAR__V21*/ curfptr[20]), "NSTQ_VAR"); - ; - MELT_LOCATION("warmelt-normal.melt:2659:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTQ_EXP", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V44*/ curfptr[30]), (2), (/*_.NEXP__V28*/ curfptr[27]), "NSTQ_EXP"); - ; - /*_.INST___V43*/ curfptr[39] = /*_.INST__V44*/ curfptr[30];;} - ; - MELT_LOCATION("warmelt-normal.melt:2654:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2654:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V46*/ curfptr[34] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2654:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (0), (/*_.CSYM__V42*/ curfptr[38]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:2654:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2654:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (1), (/*_.VARCTYP__V22*/ curfptr[21]), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:2654:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (2), (/*_.INST___V43*/ curfptr[39]), "LETBIND_EXPR"); - ; - /*_.CBIND__V45*/ curfptr[31] = /*_.INST__V46*/ curfptr[34];;} - ; - MELT_LOCATION("warmelt-normal.melt:2663:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2663:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[14])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V48*/ curfptr[47] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2663:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2663:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (2), (/*_.VARCTYP__V22*/ curfptr[21]), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:2663:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (1), (/*_.CSYM__V42*/ curfptr[38]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:2663:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (3), (/*_.CBIND__V45*/ curfptr[31]), "NOCC_BIND"); - ; - /*_.CLOCC__V47*/ curfptr[46] = /*_.INST__V48*/ curfptr[47];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2669:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NBIND__V29*/ curfptr[28]), (melt_ptr_t)(/*_.CBIND__V45*/ curfptr[31]));} - ; - MELT_LOCATION("warmelt-normal.melt:2670:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V47*/ curfptr[46];; - MELT_LOCATION("warmelt-normal.melt:2670:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBIND__V29*/ curfptr[28]); - ; - MELT_LOCATION("warmelt-normal.melt:2670:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V41*/ curfptr[36] = /*_.RETURN___V49*/ curfptr[48];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2653:/ clear"); - /*clear*/ /*_.CSYM__V42*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2653:/ clear"); - /*clear*/ /*_.INST___V43*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2653:/ clear"); - /*clear*/ /*_.CBIND__V45*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2653:/ clear"); - /*clear*/ /*_.CLOCC__V47*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2653:/ clear"); - /*clear*/ /*_.RETURN___V49*/ curfptr[48] = 0 ;} - ; - /*_.MULTI___V27*/ curfptr[25] = /*_.LET___V41*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2636:/ clear"); - /*clear*/ /*_#NULL__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2636:/ clear"); - /*clear*/ /*_.IF___V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2636:/ clear"); - /*clear*/ /*_.LET___V41*/ curfptr[36] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2636:/ clear"); - /*clear*/ /*_.NBIND__V29*/ curfptr[28] = 0 ;} - ; - /*_.LET___V20*/ curfptr[18] = /*_.MULTI___V27*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2631:/ clear"); - /*clear*/ /*_.NVAR__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2631:/ clear"); - /*clear*/ /*_.VARCTYP__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2631:/ clear"); - /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2631:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2631:/ clear"); - /*clear*/ /*_.MULTI___V27*/ curfptr[25] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.LET___V20*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2627:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2627:/ clear"); - /*clear*/ /*_.SVAR__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2627:/ clear"); - /*clear*/ /*_.SEXP__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2627:/ clear"); - /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2627:/ clear"); - /*clear*/ /*_.LET___V20*/ curfptr[18] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2622:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:2622:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2622:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2622:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2622:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2622:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2622:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_SETQ", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_69_warmelt_normal_NORMEXP_SETQ*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_70_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_70_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 5 - void* varptr[5]; -/*no varnum*/ -#define CURFRAM_NBVARNUM /*none*/0 -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<5; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 5; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2674:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2674:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2674:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:2675:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NSTQ_VAR");/*_.NSTQ_VAR__V4*/ curfptr[3] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2675:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2675:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - /*_.GET_CTYPE__V5*/ curfptr[4] = meltgc_send((melt_ptr_t)(/*_.NSTQ_VAR__V4*/ curfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2674:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_CTYPE__V5*/ curfptr[4];; - MELT_LOCATION("warmelt-normal.melt:2674:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2674:/ clear"); - /*clear*/ /*_.NSTQ_VAR__V4*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2674:/ clear"); - /*clear*/ /*_.GET_CTYPE__V5*/ curfptr[4] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_70_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_71_warmelt_normal_NORMEXP_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_71_warmelt_normal_NORMEXP_INSTANCE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 43 - void* varptr[43]; -#define CURFRAM_NBVARNUM 10 - long varnum[10]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<43; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 43; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_INSTANCE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2681:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2681:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2681:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:2681:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2681:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2682:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2682:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2682:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2682:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2682:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2682:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2682:/ locexp"); - melt_assert_failed(( "check instance recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2682)?(2682):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2682:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2682:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2682:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2683:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2683:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2683:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2683:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2683:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2683:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2683:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2683)?(2683):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2683:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2683:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2683:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2684:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2684:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2684:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2684:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2684:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2684:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2684:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2684)?(2684):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2684:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2684:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2684:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2685:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2685:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2685:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg"); - argtab[0].bp_cstring = "normexp_instance recv"; - MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg"); - argtab[3].bp_long = 2685; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2685:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2685:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2685:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2686:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2686:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2687:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMINS_CLASS");/*_.SCLASS__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2688:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMINS_CLABIND");/*_.SCLABIND__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2689:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SMINS_FIELDS");/*_.SFIELDS__V18*/ curfptr[17] = slot; }; - ; - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:2690:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2690:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2690:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2690:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLABIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V20*/ curfptr[19] = slot; }; - ; - /*_.SCLASYM__V19*/ curfptr[18] = /*_.BINDER__V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2690:/ clear"); - /*clear*/ /*_.BINDER__V20*/ curfptr[19] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2690:/ cond.else"); - - /*_.SCLASYM__V19*/ curfptr[18] = NULL;; - } - ; - /*_#IS_A__L6*/ curfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.SCLASYM__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:2691:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2691:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2691:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2692:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2692:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:2692:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:2692:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NORMAL_EXP__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.SCLASYM__V19*/ curfptr[18]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.CLADATA__V21*/ curfptr[19] = /*_.NORMAL_EXP__V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2691:/ clear"); - /*clear*/ /*_.NORMAL_EXP__V22*/ curfptr[21] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2691:/ cond.else"); - - /*_.CLADATA__V21*/ curfptr[19] = NULL;; - } - ; - /*_.BINDLIST__V23*/ curfptr[21] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[7]))));; - /*_#IS_A__L7*/ curfnum[6] = - melt_is_instance_of((melt_ptr_t)(/*_.CLADATA__V21*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[8])));; - /*_#NOT__L8*/ curfnum[7] = - (!(/*_#IS_A__L7*/ curfnum[6]));; - MELT_LOCATION("warmelt-normal.melt:2696:/ cond"); - /*cond*/ if (/*_#NOT__L8*/ curfnum[7]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2696:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2696:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2698:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLASS__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:2698:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in (INSTANCE ..)"), (melt_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24]));} - ; - MELT_LOCATION("warmelt-normal.melt:2699:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normal.melt:2699:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:2697:/ block"); - /*block*/{ - /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[25];;} - ; - /*_.IF___V24*/ curfptr[23] = /*_.PROGN___V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2696:/ clear"); - /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2696:/ clear"); - /*clear*/ /*_.RETURN___V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2696:/ clear"); - /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2696:/ cond.else"); - - /*_.IF___V24*/ curfptr[23] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:2700:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2703:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2703:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[26] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (4)); - ; - MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[0] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); - ; - MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]); - ; - MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[2] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]); - ; - MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[3] = (melt_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]); - ; - /*_.LAMBDA___V29*/ curfptr[25] = /*_.LAMBDA___V30*/ curfptr[26];;} - ; - MELT_LOCATION("warmelt-normal.melt:2701:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2701:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[25]; - /*_.NFIELDS__V31*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SFIELDS__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2720:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2720:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_INSTANCE*/ curfrout->tabval[15])), (4), "CLASS_NREP_INSTANCE");/*_.INST__V33*/ curfptr[32] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2720:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2720:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NMINS_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.SCLASS__V16*/ curfptr[15]), "NMINS_CLASS"); - ; - MELT_LOCATION("warmelt-normal.melt:2720:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NMINS_CLADATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.CLADATA__V21*/ curfptr[19]), "NMINS_CLADATA"); - ; - MELT_LOCATION("warmelt-normal.melt:2720:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NMINS_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.NFIELDS__V31*/ curfptr[30]), "NMINS_FIELDS"); - ; - /*_.NMKINS__V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;} - ; - MELT_LOCATION("warmelt-normal.melt:2725:/ apply"); - /*apply*/{ - /*_.CSYM__V34*/ curfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[16])), (melt_ptr_t)((/*!konst_17_INST_*/ curfrout->tabval[17])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2726:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2726:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[18])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V36*/ curfptr[35] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2726:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.CSYM__V34*/ curfptr[33]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:2726:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2726:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[19])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:2726:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.NMKINS__V32*/ curfptr[31]), "LETBIND_EXPR"); - ; - /*_.CBIND__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} - ; - MELT_LOCATION("warmelt-normal.melt:2731:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2731:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[20])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V38*/ curfptr[37] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2731:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2731:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[19])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:2731:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.CSYM__V34*/ curfptr[33]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:2731:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (3), (/*_.CBIND__V35*/ curfptr[34]), "NOCC_BIND"); - ; - /*_.CLOCC__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2737:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]), (melt_ptr_t)(/*_.CBIND__V35*/ curfptr[34]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2738:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2738:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2738:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg"); - argtab[0].bp_cstring = "normexp_instance result clocc"; - MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg"); - argtab[3].bp_long = 2738; - /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2738:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2738:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2738:/ cppif.else"); - /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2739:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2739:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2739:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg"); - argtab[0].bp_cstring = "normexp_instance result bindlist"; - MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg"); - argtab[3].bp_long = 2739; - /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2739:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2739:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2739:/ cppif.else"); - /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2740:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V37*/ curfptr[36];; - MELT_LOCATION("warmelt-normal.melt:2740:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V23*/ curfptr[21]); - ; - MELT_LOCATION("warmelt-normal.melt:2740:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V28*/ curfptr[24] = /*_.RETURN___V43*/ curfptr[41];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2700:/ clear"); - /*clear*/ /*_.LAMBDA___V29*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2700:/ clear"); - /*clear*/ /*_.NFIELDS__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2700:/ clear"); - /*clear*/ /*_.NMKINS__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2700:/ clear"); - /*clear*/ /*_.CSYM__V34*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2700:/ clear"); - /*clear*/ /*_.CBIND__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2700:/ clear"); - /*clear*/ /*_.CLOCC__V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2700:/ clear"); - /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2700:/ clear"); - /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2700:/ clear"); - /*clear*/ /*_.RETURN___V43*/ curfptr[41] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.LET___V28*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_.SCLASS__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_.SCLABIND__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_.SFIELDS__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_.SCLASYM__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_.CLADATA__V21*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_.BINDLIST__V23*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_.IF___V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2686:/ clear"); - /*clear*/ /*_.LET___V28*/ curfptr[24] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2681:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:2681:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2681:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2681:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2681:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2681:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2681:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_INSTANCE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_71_warmelt_normal_NORMEXP_INSTANCE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_72_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_72_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 18 - void* varptr[18]; -#define CURFRAM_NBVARNUM 4 - long varnum[4]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<18; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 18; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2703:/ getarg"); - /*_.CURFLDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2703:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2703:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2704:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2704:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2704:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2704:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2704:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2704:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2704:/ locexp"); - melt_assert_failed(( "check curflda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2704)?(2704):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2704:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2704:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2704:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2705:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2705:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.CURFLOC__V6*/ curfptr[5] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2706:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.CURFIELD__V7*/ curfptr[6] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2707:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V8*/ curfptr[7] = slot; }; - ; - /*_#NULL__L3*/ curfnum[1] = - ((/*_.CURFLOC__V6*/ curfptr[5]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:2708:/ cond"); - /*cond*/ if (/*_#NULL__L3*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2708:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2708:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2708:/ compute"); - /*_.CURFLOC__V6*/ curfptr[5] = /*_.SETQ___V10*/ curfptr[9] = (/*~SLOC*/ curfclos->tabval[0]);; - /*_.IF___V9*/ curfptr[8] = /*_.SETQ___V10*/ curfptr[9];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2708:/ clear"); - /*clear*/ /*_.SETQ___V10*/ curfptr[9] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2708:/ cond.else"); - - /*_.IF___V9*/ curfptr[8] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:2709:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CURFLOC__V6*/ curfptr[5]; - MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V13*/ curfptr[12];MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.send"); - /*_.NEXP__V12*/ curfptr[11] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2709:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2712:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2712:/ block"); - /*block*/{ - /*_#IS_LIST_OR_NULL__L4*/ curfnum[3] = - ((/*_.NBIND__V13*/ curfptr[12]) == NULL - || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBIND__V13*/ curfptr[12])) == OBMAG_LIST));; - MELT_LOCATION("warmelt-normal.melt:2712:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L4*/ curfnum[3]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2712:/ cond.then"); - /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2712:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2712:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2712:/ locexp"); - melt_assert_failed(( "check nbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2712)?(2712):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2712:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L4*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2712:/ clear"); - /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2712:/ cppif.else"); - /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2713:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2713:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V13*/ curfptr[12]; - /*_.LIST_APPEND2LIST__V16*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (melt_ptr_t)((/*~BINDLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2714:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2714:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[3])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V18*/ curfptr[17] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2714:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.CURFLOC__V6*/ curfptr[5]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2714:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NFLA_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.CURFIELD__V7*/ curfptr[6]), "NFLA_FIELD"); - ; - MELT_LOCATION("warmelt-normal.melt:2714:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NFLA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), (/*_.NEXP__V12*/ curfptr[11]), "NFLA_VAL"); - ; - /*_.INST___V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;} - ; - /*_.MULTI___V11*/ curfptr[9] = /*_.INST___V17*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2709:/ clear"); - /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2709:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V16*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2709:/ clear"); - /*clear*/ /*_.INST___V17*/ curfptr[16] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2709:/ clear"); - /*clear*/ /*_.NBIND__V13*/ curfptr[12] = 0 ;} - ; - /*_.LET___V5*/ curfptr[3] = /*_.MULTI___V11*/ curfptr[9];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2705:/ clear"); - /*clear*/ /*_.CURFLOC__V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2705:/ clear"); - /*clear*/ /*_.CURFIELD__V7*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2705:/ clear"); - /*clear*/ /*_.CUREXP__V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2705:/ clear"); - /*clear*/ /*_#NULL__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2705:/ clear"); - /*clear*/ /*_.IF___V9*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2705:/ clear"); - /*clear*/ /*_.MULTI___V11*/ curfptr[9] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2703:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; - MELT_LOCATION("warmelt-normal.melt:2703:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2703:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2703:/ clear"); - /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_72_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_73_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_73_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 3 - void* varptr[3]; -/*no varnum*/ -#define CURFRAM_NBVARNUM /*none*/0 -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<3; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 3; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2746:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2746:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2746:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:2746:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[0]);; - MELT_LOCATION("warmelt-normal.melt:2746:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_73_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_74_warmelt_normal_NORMEXP_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_74_warmelt_normal_NORMEXP_FOREVER_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 73 - void* varptr[73]; -#define CURFRAM_NBVARNUM 22 - long varnum[22]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<73; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 73; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_FOREVER", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2751:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2751:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2751:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:2751:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2751:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2752:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2752:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FOREVER*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2752:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2752:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2752:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2752:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2752:/ locexp"); - melt_assert_failed(( "check forever recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2752)?(2752):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2752:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2752:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2752:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2753:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2753:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2753:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2753:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2753:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2753:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2753:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2753)?(2753):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2753:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2753:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2753:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2754:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2754:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2754:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2754:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2754:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2754:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2754:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2754)?(2754):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2754:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2754:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2754:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2755:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2755:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2755:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg"); - argtab[0].bp_cstring = "normexp_forever recv"; - MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg"); - argtab[3].bp_long = 2755; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2755:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2755:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2755:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2756:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2756:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2757:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLABEL_BIND");/*_.SLBIND__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2758:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SFRV_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2759:/ apply"); - /*apply*/{ - /*_.NEWENV__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2761:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2761:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:2761:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2761:/ cond.then"); - /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2761:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2761:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2761:/ locexp"); - melt_assert_failed(( "check slbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2761)?(2761):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2761:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2761:/ clear"); - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2761:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2762:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2762:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLBIND__V16*/ curfptr[15]; - /*_.PUT_ENV__V21*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2763:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2763:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 0, "BINDER");/*_.BINDER__V23*/ curfptr[22] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2763:/ apply"); - /*apply*/{ - /*_.RESY__V24*/ curfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.BINDER__V23*/ curfptr[22]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2764:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2764:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2764:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg"); - argtab[0].bp_cstring = "normexp_forever putting resy.."; - MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg"); - argtab[3].bp_long = 2764; - /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2764:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2764:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2764:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2765:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2765:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2765:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg"); - argtab[0].bp_cstring = "..normexp_forever in slbind"; - MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg"); - argtab[3].bp_long = 2765; - /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2765:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2765:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2765:/ cppif.else"); - /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2766:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2766:/ block"); - /*block*/{ - /*_#IS_OBJECT__L8*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.RESY__V24*/ curfptr[23])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-normal.melt:2766:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2766:/ cond.then"); - /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2766:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2766:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2766:/ locexp"); - melt_assert_failed(( "check resy obj1"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2766)?(2766):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2766:/ clear"); - /*clear*/ /*_#IS_OBJECT__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2766:/ clear"); - /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2766:/ cppif.else"); - /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2767:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2767:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LABIND_CLONSY", melt_magic_discr((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15])) == OBMAG_OBJECT); - melt_putfield_object((/*_.SLBIND__V16*/ curfptr[15]), (2), (/*_.RESY__V24*/ curfptr[23]), "LABIND_CLONSY"); - ; - MELT_LOCATION("warmelt-normal.melt:2767:/ touch"); - meltgc_touch(/*_.SLBIND__V16*/ curfptr[15]); - ; - /*epilog*/} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2768:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2768:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2768:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg"); - argtab[0].bp_cstring = "normexp_forever updated slbind"; - MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg"); - argtab[3].bp_long = 2768; - /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2768:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2768:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2768:/ cppif.else"); - /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2769:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2769:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2769:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg"); - argtab[0].bp_cstring = "normexp_forever clonsy put resy"; - MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg"); - argtab[3].bp_long = 2769; - /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2769:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2769:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2769:/ cppif.else"); - /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2770:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2770:/ block"); - /*block*/{ - /*_#IS_A__L11*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[8])));; - MELT_LOCATION("warmelt-normal.melt:2770:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2770:/ cond.then"); - /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2770:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2770:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2770:/ locexp"); - melt_assert_failed(( "check resy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2770)?(2770):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2770:/ clear"); - /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2770:/ clear"); - /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2770:/ cppif.else"); - /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2771:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2771:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2771:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V38*/ curfptr[37] = slot; }; - ; - /*_#THE_CALLCOUNT__L12*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2771:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg"); - argtab[0].bp_cstring = "normexp_forever got1 clonsy"; - MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg"); - argtab[3].bp_long = 2771; - /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LABIND_CLONSY__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2771:/ clear"); - /*clear*/ /*_.LABIND_CLONSY__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2771:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2771:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2771:/ cppif.else"); - /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2772:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2772:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2772:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V41*/ curfptr[38] = slot; }; - ; - /*_#__L13*/ curfnum[0] = - ((/*_.LABIND_CLONSY__V41*/ curfptr[38]) == (/*_.RESY__V24*/ curfptr[23]));; - MELT_LOCATION("warmelt-normal.melt:2772:/ cond"); - /*cond*/ if (/*_#__L13*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2772:/ cond.then"); - /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2772:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2772:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2772:/ locexp"); - melt_assert_failed(( "check did1 put resy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2772)?(2772):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V40*/ curfptr[37] = /*_.IFELSE___V42*/ curfptr[41];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2772:/ clear"); - /*clear*/ /*_.LABIND_CLONSY__V41*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2772:/ clear"); - /*clear*/ /*_#__L13*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2772:/ clear"); - /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2772:/ cppif.else"); - /*_.IFCPP___V40*/ curfptr[37] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2773:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2773:/ block"); - /*block*/{ - /*_#IS_OBJECT__L14*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.RESY__V24*/ curfptr[23])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-normal.melt:2773:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L14*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2773:/ cond.then"); - /*_.IFELSE___V44*/ curfptr[41] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2773:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2773:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2773:/ locexp"); - melt_assert_failed(( "check resy obj2"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2773)?(2773):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V44*/ curfptr[41] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V43*/ curfptr[38] = /*_.IFELSE___V44*/ curfptr[41];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2773:/ clear"); - /*clear*/ /*_#IS_OBJECT__L14*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2773:/ clear"); - /*clear*/ /*_.IFELSE___V44*/ curfptr[41] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2773:/ cppif.else"); - /*_.IFCPP___V43*/ curfptr[38] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2774:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17];MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V47*/ curfptr[46]; - MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.appl"); - /*_.NBODY__V46*/ curfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2774:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2777:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2777:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2777:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg"); - argtab[0].bp_cstring = "normexp_forever again slbind"; - MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg"); - argtab[3].bp_long = 2777; - /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2777:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2777:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2777:/ cppif.else"); - /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2778:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2778:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2778:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V51*/ curfptr[50] = slot; }; - ; - /*_#__L16*/ curfnum[0] = - ((/*_.LABIND_CLONSY__V51*/ curfptr[50]) == (/*_.RESY__V24*/ curfptr[23]));; - MELT_LOCATION("warmelt-normal.melt:2778:/ cond"); - /*cond*/ if (/*_#__L16*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2778:/ cond.then"); - /*_.IFELSE___V52*/ curfptr[51] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2778:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2778:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2778:/ locexp"); - melt_assert_failed(( "check did2 put resy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2778)?(2778):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V52*/ curfptr[51];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2778:/ clear"); - /*clear*/ /*_.LABIND_CLONSY__V51*/ curfptr[50] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2778:/ clear"); - /*clear*/ /*_#__L16*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2778:/ clear"); - /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2778:/ cppif.else"); - /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2779:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2779:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2779:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V54*/ curfptr[51] = slot; }; - ; - /*_#THE_CALLCOUNT__L17*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2779:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg"); - argtab[0].bp_cstring = "normexp_forever got2 clonsy"; - MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg"); - argtab[3].bp_long = 2779; - /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LABIND_CLONSY__V54*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V53*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2779:/ clear"); - /*clear*/ /*_.LABIND_CLONSY__V54*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2779:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2779:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2779:/ cppif.else"); - /*_.IFCPP___V53*/ curfptr[50] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2780:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2780:/ block"); - /*block*/{ - /*_#GET_INT__L18*/ curfnum[0] = - (melt_get_int((melt_ptr_t)((/*!LABIND_CLONSY*/ curfrout->tabval[10]))));; - /*_#OBJECT_LENGTH__L19*/ curfnum[18] = - ((long)melt_object_length((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15])));; - /*_#I__L20*/ curfnum[19] = - ((/*_#GET_INT__L18*/ curfnum[0]) < (/*_#OBJECT_LENGTH__L19*/ curfnum[18]));; - MELT_LOCATION("warmelt-normal.melt:2780:/ cond"); - /*cond*/ if (/*_#I__L20*/ curfnum[19]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2780:/ cond.then"); - /*_.IFELSE___V57*/ curfptr[54] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2780:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2780:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2780:/ locexp"); - melt_assert_failed(( "check size slbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2780)?(2780):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V57*/ curfptr[54] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V56*/ curfptr[51] = /*_.IFELSE___V57*/ curfptr[54];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2780:/ clear"); - /*clear*/ /*_#GET_INT__L18*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2780:/ clear"); - /*clear*/ /*_#OBJECT_LENGTH__L19*/ curfnum[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2780:/ clear"); - /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2780:/ clear"); - /*clear*/ /*_.IFELSE___V57*/ curfptr[54] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2780:/ cppif.else"); - /*_.IFCPP___V56*/ curfptr[51] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2781:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2783:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2783:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V47*/ curfptr[46]; - MELT_LOCATION("warmelt-normal.melt:2783:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.RESBODY__V60*/ curfptr[59] = - (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58])));; - MELT_LOCATION("warmelt-normal.melt:2784:/ apply"); - /*apply*/{ - /*_.CSYM__V61*/ curfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (melt_ptr_t)((/*!konst_13_FOREVER_*/ curfrout->tabval[13])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2785:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2785:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FOREVER*/ curfrout->tabval[14])), (4), "CLASS_NREP_FOREVER");/*_.INST__V63*/ curfptr[62] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2785:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2785:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NFOREVER_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.SLBIND__V16*/ curfptr[15]), "NFOREVER_BIND"); - ; - MELT_LOCATION("warmelt-normal.melt:2785:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NFOREVER_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.RESBODY__V60*/ curfptr[59]), "NFOREVER_BODY"); - ; - MELT_LOCATION("warmelt-normal.melt:2785:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NFOREVER_RESULT", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (3), (/*_.RESY__V24*/ curfptr[23]), "NFOREVER_RESULT"); - ; - /*_.NFOREVER__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;} - ; - MELT_LOCATION("warmelt-normal.melt:2790:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2790:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[15])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V65*/ curfptr[64] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2790:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (0), (/*_.CSYM__V61*/ curfptr[60]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:2790:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2790:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:2790:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (2), (/*_.NFOREVER__V62*/ curfptr[61]), "LETBIND_EXPR"); - ; - /*_.CBIND__V64*/ curfptr[63] = /*_.INST__V65*/ curfptr[64];;} - ; - MELT_LOCATION("warmelt-normal.melt:2795:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2795:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V67*/ curfptr[66] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2795:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2795:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:2795:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (1), (/*_.CSYM__V61*/ curfptr[60]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:2795:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (3), (/*_.CBIND__V64*/ curfptr[63]), "NOCC_BIND"); - ; - /*_.CLOCC__V66*/ curfptr[65] = /*_.INST__V67*/ curfptr[66];;} - ; - /*_.NFORBINDINGS__V68*/ curfptr[67] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[18]))));; - - { - MELT_LOCATION("warmelt-normal.melt:2802:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NFORBINDINGS__V68*/ curfptr[67]), (melt_ptr_t)(/*_.CBIND__V64*/ curfptr[63]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2803:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2803:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L21*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2803:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg"); - argtab[0].bp_cstring = "normexp_forever return nforever"; - MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg"); - argtab[3].bp_long = 2803; - /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V66*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V69*/ curfptr[68] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2803:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2803:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2803:/ cppif.else"); - /*_.IFCPP___V69*/ curfptr[68] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2804:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2804:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L22*/ curfnum[18] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2804:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg"); - argtab[0].bp_cstring = "normexp_forever return nforever"; - MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[18]; - MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg"); - argtab[3].bp_long = 2804; - /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V66*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V71*/ curfptr[69] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[71];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2804:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2804:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2804:/ cppif.else"); - /*_.IFCPP___V71*/ curfptr[69] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2805:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V66*/ curfptr[65];; - MELT_LOCATION("warmelt-normal.melt:2805:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NFORBINDINGS__V68*/ curfptr[67]); - ; - MELT_LOCATION("warmelt-normal.melt:2805:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V58*/ curfptr[54] = /*_.RETURN___V73*/ curfptr[71];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.RESBODY__V60*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.CSYM__V61*/ curfptr[60] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.NFOREVER__V62*/ curfptr[61] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.CBIND__V64*/ curfptr[63] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.CLOCC__V66*/ curfptr[65] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.NFORBINDINGS__V68*/ curfptr[67] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.IFCPP___V69*/ curfptr[68] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.IFCPP___V71*/ curfptr[69] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2781:/ clear"); - /*clear*/ /*_.RETURN___V73*/ curfptr[71] = 0 ;} - ; - /*_.MULTI___V45*/ curfptr[41] = /*_.LET___V58*/ curfptr[54];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2774:/ clear"); - /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2774:/ clear"); - /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2774:/ clear"); - /*clear*/ /*_.IFCPP___V53*/ curfptr[50] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2774:/ clear"); - /*clear*/ /*_.IFCPP___V56*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2774:/ clear"); - /*clear*/ /*_.LET___V58*/ curfptr[54] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2774:/ clear"); - /*clear*/ /*_.NBODBINDINGS__V47*/ curfptr[46] = 0 ;} - ; - /*_.LET___V22*/ curfptr[21] = /*_.MULTI___V45*/ curfptr[41];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.BINDER__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.RESY__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.IFCPP___V40*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.IFCPP___V43*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2763:/ clear"); - /*clear*/ /*_.MULTI___V45*/ curfptr[41] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.LET___V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2756:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2756:/ clear"); - /*clear*/ /*_.SLBIND__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2756:/ clear"); - /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2756:/ clear"); - /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2756:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2756:/ clear"); - /*clear*/ /*_.PUT_ENV__V21*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2756:/ clear"); - /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2751:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:2751:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2751:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2751:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2751:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2751:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2751:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_FOREVER", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_74_warmelt_normal_NORMEXP_FOREVER*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_75_warmelt_normal_NORMEXP_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_75_warmelt_normal_NORMEXP_EXIT_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 41 - void* varptr[41]; -#define CURFRAM_NBVARNUM 10 - long varnum[10]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<41; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 41; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_EXIT", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2815:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2815:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2815:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:2815:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2815:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2816:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2816:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXIT*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2816:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2816:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2816:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2816:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2816:/ locexp"); - melt_assert_failed(( "check exit recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2816)?(2816):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2816:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2816:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2816:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2817:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2817:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2817:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2817:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2817:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2817:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2817:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2817)?(2817):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2817:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2817:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2817:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2818:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2818:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2818:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2818:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2818:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2818:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2818:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2818)?(2818):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2818:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2818:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2818:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2819:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2819:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2819:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg"); - argtab[0].bp_cstring = "normexp_exit recv"; - MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg"); - argtab[3].bp_long = 2819; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2819:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2819:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2819:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2820:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2820:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2821:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLABEL_BIND");/*_.SLBIND__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2822:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXI_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2823:/ apply"); - /*apply*/{ - /*_.NEWENV__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2825:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2825:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:2825:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2825:/ cond.then"); - /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2825:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2825:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2825:/ locexp"); - melt_assert_failed(( "check slbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2825)?(2825):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2825:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2825:/ clear"); - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2825:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2826:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2826:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLBIND__V16*/ curfptr[15]; - /*_.PUT_ENV__V21*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2827:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17];MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V24*/ curfptr[23]; - MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.appl"); - /*_.NBODY__V23*/ curfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2827:/ block"); - /*block*/{ - /*_#NULL__L6*/ curfnum[0] = - ((/*_.NBODBINDINGS__V24*/ curfptr[23]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:2830:/ cond"); - /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2830:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2830:/ block"); - /*block*/{ - /*_.MAKE_LIST__V26*/ curfptr[25] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; - MELT_LOCATION("warmelt-normal.melt:2831:/ compute"); - /*_.NBODBINDINGS__V24*/ curfptr[23] = /*_.SETQ___V27*/ curfptr[26] = /*_.MAKE_LIST__V26*/ curfptr[25];; - /*_.IF___V25*/ curfptr[24] = /*_.SETQ___V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2830:/ clear"); - /*clear*/ /*_.MAKE_LIST__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2830:/ clear"); - /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2830:/ cond.else"); - - /*_.IF___V25*/ curfptr[24] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:2833:/ block"); - /*block*/{ - /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = - (melt_multiple_length((melt_ptr_t)(/*_.NBODY__V23*/ curfptr[22])));; - /*_#I__L8*/ curfnum[7] = - ((/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]) - (1));; - /*_.MULTIPLE_NTH__V29*/ curfptr[26] = - (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V23*/ curfptr[22]), (/*_#I__L8*/ curfnum[7])));; - MELT_LOCATION("warmelt-normal.melt:2833:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2833:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_EXIT*/ curfrout->tabval[9])), (3), "CLASS_NREP_EXIT");/*_.INST__V31*/ curfptr[30] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2833:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2833:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXIT_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.SLBIND__V16*/ curfptr[15]), "NEXIT_BIND"); - ; - MELT_LOCATION("warmelt-normal.melt:2833:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXIT_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.MULTIPLE_NTH__V29*/ curfptr[26]), "NEXIT_VAL"); - ; - /*_.NEXIT__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;} - ; - MELT_LOCATION("warmelt-normal.melt:2837:/ apply"); - /*apply*/{ - /*_.CSYM__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_EXIT_*/ curfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2838:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2838:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V34*/ curfptr[33] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2838:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.CSYM__V32*/ curfptr[31]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:2838:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2838:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[13])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:2838:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.NEXIT__V30*/ curfptr[29]), "LETBIND_EXPR"); - ; - /*_.CBIND__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} - ; - MELT_LOCATION("warmelt-normal.melt:2843:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2843:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[14])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V36*/ curfptr[35] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2843:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2843:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[13])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:2843:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.CSYM__V32*/ curfptr[31]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:2843:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.CBIND__V33*/ curfptr[32]), "NOCC_BIND"); - ; - /*_.CLOCC__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2849:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NBODBINDINGS__V24*/ curfptr[23]), (melt_ptr_t)(/*_.CBIND__V33*/ curfptr[32]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2850:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2850:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2850:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg"); - argtab[0].bp_cstring = "normexp_exit nexit"; - MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg"); - argtab[3].bp_long = 2850; - /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXIT__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2850:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2850:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2850:/ cppif.else"); - /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2851:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2851:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2851:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg"); - argtab[0].bp_cstring = "normexp_exit nbodbindings"; - MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg"); - argtab[3].bp_long = 2851; - /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODBINDINGS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V39*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2851:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2851:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2851:/ cppif.else"); - /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2852:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V35*/ curfptr[34];; - MELT_LOCATION("warmelt-normal.melt:2852:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBODBINDINGS__V24*/ curfptr[23]); - ; - MELT_LOCATION("warmelt-normal.melt:2852:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V28*/ curfptr[25] = /*_.RETURN___V41*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_.MULTIPLE_NTH__V29*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_.NEXIT__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_.CSYM__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_.CBIND__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_.CLOCC__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2833:/ clear"); - /*clear*/ /*_.RETURN___V41*/ curfptr[39] = 0 ;} - ; - /*_.MULTI___V22*/ curfptr[21] = /*_.LET___V28*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2827:/ clear"); - /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2827:/ clear"); - /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2827:/ clear"); - /*clear*/ /*_.LET___V28*/ curfptr[25] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2827:/ clear"); - /*clear*/ /*_.NBODBINDINGS__V24*/ curfptr[23] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2820:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2820:/ clear"); - /*clear*/ /*_.SLBIND__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2820:/ clear"); - /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2820:/ clear"); - /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2820:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2820:/ clear"); - /*clear*/ /*_.PUT_ENV__V21*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2820:/ clear"); - /*clear*/ /*_.MULTI___V22*/ curfptr[21] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2815:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:2815:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2815:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2815:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2815:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2815:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2815:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_EXIT", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_75_warmelt_normal_NORMEXP_EXIT*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 25 - void* varptr[25]; -#define CURFRAM_NBVARNUM 6 - long varnum[6]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<25; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 25; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_COMPILEWARNING", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2858:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2858:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2858:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:2858:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2858:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2859:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2859:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_COMPILEWARNING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2859:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2859:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2859:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2859:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2859:/ locexp"); - melt_assert_failed(( "check compilewarn recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2859)?(2859):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2859:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2859:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2859:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2860:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2860:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2860:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2860:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2860:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2860:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2860:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2860)?(2860):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2860:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2860:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2860:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2861:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2861:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2861:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2861:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2861:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2861:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2861:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2861)?(2861):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2861:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2861:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2861:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2862:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2862:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2862:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg"); - argtab[0].bp_cstring = "normexp_compile_warning recv"; - MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg"); - argtab[3].bp_long = 2862; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2862:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2862:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2862:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2863:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2863:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2864:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SCWARN_MSG");/*_.SWMSG__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2865:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCWARN_EXPR");/*_.SWEXP__V17*/ curfptr[16] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:2867:/ locexp"); - melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "COMPILE_WARNING:"), (melt_ptr_t)(/*_.SWMSG__V16*/ curfptr[15]));} - ; - MELT_LOCATION("warmelt-normal.melt:2868:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V20*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.send"); - /*_.NEXP__V19*/ curfptr[18] = meltgc_send ((melt_ptr_t)(/*_.SWEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[4]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:2868:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2871:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2871:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2871:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg"); - argtab[0].bp_cstring = "normexp_compile_warning nesult nexp"; - MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg"); - argtab[3].bp_long = 2871; - /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2871:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2871:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2871:/ cppif.else"); - /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2872:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2872:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2872:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg"); - argtab[0].bp_cstring = "normexp_compile_warning result nbind"; - MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg"); - argtab[3].bp_long = 2872; - /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBIND__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V23*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2872:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2872:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2872:/ cppif.else"); - /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2873:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NEXP__V19*/ curfptr[18];; - MELT_LOCATION("warmelt-normal.melt:2873:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBIND__V20*/ curfptr[19]); - ; - MELT_LOCATION("warmelt-normal.melt:2873:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.MULTI___V18*/ curfptr[17] = /*_.RETURN___V25*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2868:/ clear"); - /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2868:/ clear"); - /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2868:/ clear"); - /*clear*/ /*_.RETURN___V25*/ curfptr[23] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2868:/ clear"); - /*clear*/ /*_.NBIND__V20*/ curfptr[19] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2863:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2863:/ clear"); - /*clear*/ /*_.SWMSG__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2863:/ clear"); - /*clear*/ /*_.SWEXP__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2863:/ clear"); - /*clear*/ /*_.MULTI___V18*/ curfptr[17] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2858:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:2858:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2858:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2858:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2858:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2858:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2858:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_COMPILEWARNING", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_77_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_77_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 5 - void* varptr[5]; -/*no varnum*/ -#define CURFRAM_NBVARNUM /*none*/0 -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<5; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 5; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2878:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2878:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2878:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:2878:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCWARN_EXPR");/*_.SCWARN_EXPR__V4*/ curfptr[3] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2878:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2878:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - /*_.GET_CTYPE__V5*/ curfptr[4] = meltgc_send((melt_ptr_t)(/*_.SCWARN_EXPR__V4*/ curfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2878:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_CTYPE__V5*/ curfptr[4];; - MELT_LOCATION("warmelt-normal.melt:2878:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2878:/ clear"); - /*clear*/ /*_.SCWARN_EXPR__V4*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2878:/ clear"); - /*clear*/ /*_.GET_CTYPE__V5*/ curfptr[4] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_77_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 57 - void* varptr[57]; -#define CURFRAM_NBVARNUM 17 - long varnum[17]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<57; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 57; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("REPLACE_LAST_BY_RETURN", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2882:/ getarg"); - /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2882:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2882:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2882:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2883:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2883:/ block"); - /*block*/{ - /*_#IS_MULTIPLE__L1*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normal.melt:2883:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2883:/ cond.then"); - /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2883:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2883:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2883:/ locexp"); - melt_assert_failed(( "check tup"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2883)?(2883):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2883:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2883:/ clear"); - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2883:/ cppif.else"); - /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2884:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2884:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2884:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2884:/ cond.then"); - /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2884:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2884:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2884:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2884)?(2884):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2884:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2884:/ clear"); - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2884:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2885:/ block"); - /*block*/{ - /*_#TUPLEN__L3*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])));; - /*_#I__L4*/ curfnum[3] = - ((/*_#TUPLEN__L3*/ curfnum[0]) > (0));; - MELT_LOCATION("warmelt-normal.melt:2886:/ cond"); - /*cond*/ if (/*_#I__L4*/ curfnum[3]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2886:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2886:/ block"); - /*block*/{ - /*_#I__L5*/ curfnum[4] = - ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));; - /*_.MULTIPLE_NTH__V11*/ curfptr[10] = - (melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L5*/ curfnum[4])));; - /*_.LASTCOMP__V10*/ curfptr[9] = /*_.MULTIPLE_NTH__V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2886:/ clear"); - /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2886:/ clear"); - /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2886:/ cond.else"); - - /*_.LASTCOMP__V10*/ curfptr[9] = NULL;; - } - ; - /*_#IS_A__L6*/ curfnum[4] = - melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2889:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2889:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2889:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2890:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; - MELT_LOCATION("warmelt-normal.melt:2890:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.IFELSE___V12*/ curfptr[10] = /*_.RETURN___V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2889:/ clear"); - /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2889:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2889:/ block"); - /*block*/{ - /*_#IS_A__L7*/ curfnum[6] = - melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2893:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2893:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2893:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2894:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V15*/ curfptr[14] = slot; }; - ; - /*_#__L8*/ curfnum[7] = - ((/*_.NOCC_CTYP__V15*/ curfptr[14]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:2894:/ cond"); - /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2894:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2894:/ block"); - /*block*/{ - /*_#I__L9*/ curfnum[8] = - ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));; - MELT_LOCATION("warmelt-normal.melt:2897:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2897:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V17*/ curfptr[16] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2897:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2897:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LASTCOMP__V10*/ curfptr[9]), "NRET_MAIN"); - ; - /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2895:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L9*/ curfnum[8]), (melt_ptr_t)(/*_.INST___V16*/ curfptr[15]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2894:/ clear"); - /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2894:/ clear"); - /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ;} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-normal.melt:2900:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; - MELT_LOCATION("warmelt-normal.melt:2900:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:2893:/ block"); - /*block*/{ - /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[15];;} - ; - /*_.IFELSE___V14*/ curfptr[12] = /*_.PROGN___V19*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2893:/ clear"); - /*clear*/ /*_.NOCC_CTYP__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2893:/ clear"); - /*clear*/ /*_#__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2893:/ clear"); - /*clear*/ /*_.RETURN___V18*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2893:/ clear"); - /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2893:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2893:/ block"); - /*block*/{ - /*_#IS_A__L10*/ curfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:2903:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2903:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2903:/ block"); - /*block*/{ - /*_#I__L11*/ curfnum[7] = - ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));; - MELT_LOCATION("warmelt-normal.melt:2906:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2906:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V22*/ curfptr[18] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2906:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[18]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2906:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[18]), (1), (/*_.LASTCOMP__V10*/ curfptr[9]), "NRET_MAIN"); - ; - /*_.INST___V21*/ curfptr[15] = /*_.INST__V22*/ curfptr[18];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:2904:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L11*/ curfnum[7]), (melt_ptr_t)(/*_.INST___V21*/ curfptr[15]));} - ; - MELT_LOCATION("warmelt-normal.melt:2909:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; - MELT_LOCATION("warmelt-normal.melt:2909:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:2903:/ block"); - /*block*/{ - /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;} - ; - /*_.IFELSE___V20*/ curfptr[14] = /*_.PROGN___V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2903:/ clear"); - /*clear*/ /*_#I__L11*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2903:/ clear"); - /*clear*/ /*_.INST___V21*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2903:/ clear"); - /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2903:/ clear"); - /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2903:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2903:/ block"); - /*block*/{ - /*_#NULL__L12*/ curfnum[7] = - ((/*_.LASTCOMP__V10*/ curfptr[9]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:2912:/ cond"); - /*cond*/ if (/*_#NULL__L12*/ curfnum[7]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2912:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2912:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2913:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; - MELT_LOCATION("warmelt-normal.melt:2913:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.IFELSE___V25*/ curfptr[15] = /*_.RETURN___V26*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2912:/ clear"); - /*clear*/ /*_.RETURN___V26*/ curfptr[22] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2912:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2912:/ block"); - /*block*/{ - /*_#IS_A__L13*/ curfnum[12] = - melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:2916:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2916:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2916:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2917:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2917:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 2, "NLET_BODY");/*_.LBODY__V29*/ curfptr[28] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2918:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 1, "NLET_BINDINGS");/*_.LBINDING__V30*/ curfptr[29] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2919:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 0, "NREP_LOC");/*_.LLOC__V31*/ curfptr[30] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2920:/ apply"); - /*apply*/{ - /*_.NEWENV__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2924:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2924:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V34*/ curfptr[33] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:2924:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ curfptr[33])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ curfptr[33]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[33])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V32*/ curfptr[31]); - ; - /*_.LAMBDA___V33*/ curfptr[32] = /*_.LAMBDA___V34*/ curfptr[33];;} - ; - MELT_LOCATION("warmelt-normal.melt:2922:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2922:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ curfptr[32]; - /*_.MULTIPLE_EVERY__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.LBINDING__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#IS_MULTIPLE__L14*/ curfnum[13] = - (melt_magic_discr((melt_ptr_t)(/*_.LBODY__V29*/ curfptr[28])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normal.melt:2927:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L14*/ curfnum[13]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2927:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2927:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2928:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2928:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V32*/ curfptr[31]; - MELT_LOCATION("warmelt-normal.melt:2928:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LLOC__V31*/ curfptr[30]; - /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.LBODY__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IF___V36*/ curfptr[35] = /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2927:/ clear"); - /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2927:/ cond.else"); - - /*_.IF___V36*/ curfptr[35] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:2929:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; - MELT_LOCATION("warmelt-normal.melt:2929:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V28*/ curfptr[22] = /*_.RETURN___V38*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2917:/ clear"); - /*clear*/ /*_.LBODY__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2917:/ clear"); - /*clear*/ /*_.LBINDING__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2917:/ clear"); - /*clear*/ /*_.LLOC__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2917:/ clear"); - /*clear*/ /*_.NEWENV__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2917:/ clear"); - /*clear*/ /*_.LAMBDA___V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2917:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2917:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L14*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2917:/ clear"); - /*clear*/ /*_.IF___V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2917:/ clear"); - /*clear*/ /*_.RETURN___V38*/ curfptr[36] = 0 ;} - ; - /*_.IFELSE___V27*/ curfptr[23] = /*_.LET___V28*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2916:/ clear"); - /*clear*/ /*_.LET___V28*/ curfptr[22] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2916:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2916:/ block"); - /*block*/{ - /*_#IS_A__L15*/ curfnum[13] = - melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[11])));; - MELT_LOCATION("warmelt-normal.melt:2933:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ curfnum[13]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2933:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2933:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2934:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2934:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2934:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - /*_.LASTYP__V41*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2935:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 0, "NREP_LOC");/*_.LOC__V42*/ curfptr[31] = slot; }; - ; - /*_#__L16*/ curfnum[15] = - ((/*_.LASTYP__V41*/ curfptr[30]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:2937:/ cond"); - /*cond*/ if (/*_#__L16*/ curfnum[15]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2937:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:2937:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2938:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2938:/ apply"); - /*apply*/{ - /*_.RCLOSYM__V45*/ curfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[13])), (melt_ptr_t)((/*!konst_14_RETVAL_*/ curfrout->tabval[14])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2939:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2939:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V47*/ curfptr[22] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2939:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V47*/ curfptr[22]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2939:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V47*/ curfptr[22]), (1), (/*_.RCLOSYM__V45*/ curfptr[35]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:2939:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V47*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "NOCC_CTYP"); - ; - /*_.RCLOCC__V46*/ curfptr[36] = /*_.INST__V47*/ curfptr[22];;} - ; - MELT_LOCATION("warmelt-normal.melt:2943:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2943:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V49*/ curfptr[48] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2943:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2943:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), (/*_.RCLOCC__V46*/ curfptr[36]), "NRET_MAIN"); - ; - /*_.RETN__V48*/ curfptr[47] = /*_.INST__V49*/ curfptr[48];;} - ; - MELT_LOCATION("warmelt-normal.melt:2947:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2947:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[16])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V51*/ curfptr[50] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2947:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (0), (/*_.RCLOSYM__V45*/ curfptr[35]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:2947:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:2947:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.LASTCOMP__V10*/ curfptr[9]), "LETBIND_EXPR"); - ; - MELT_LOCATION("warmelt-normal.melt:2947:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.LOC__V42*/ curfptr[31]), "LETBIND_LOC"); - ; - /*_.RBIND__V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;} - ; - /*_.RBINTUP__V52*/ curfptr[51] = - (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.RBIND__V50*/ curfptr[49])));; - /*_.MAKE_TUPLE1__V53*/ curfptr[52] = - (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.RETN__V48*/ curfptr[47])));; - MELT_LOCATION("warmelt-normal.melt:2954:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2954:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[5])), (3), "CLASS_NREP_LET");/*_.INST__V55*/ curfptr[54] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2954:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2954:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (1), (/*_.RBINTUP__V52*/ curfptr[51]), "NLET_BINDINGS"); - ; - MELT_LOCATION("warmelt-normal.melt:2954:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), (/*_.MAKE_TUPLE1__V53*/ curfptr[52]), "NLET_BODY"); - ; - /*_.RLET__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;} - ; - MELT_LOCATION("warmelt-normal.melt:2959:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2959:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.RCLOCC__V46*/ curfptr[36])) == OBMAG_OBJECT); - melt_putfield_object((/*_.RCLOCC__V46*/ curfptr[36]), (3), (/*_.RBIND__V50*/ curfptr[49]), "NOCC_BIND"); - ; - MELT_LOCATION("warmelt-normal.melt:2959:/ touch"); - meltgc_touch(/*_.RCLOCC__V46*/ curfptr[36]); - ; - /*epilog*/} - ; - /*_#I__L17*/ curfnum[16] = - ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));; - - { - MELT_LOCATION("warmelt-normal.melt:2960:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L17*/ curfnum[16]), (melt_ptr_t)(/*_.RLET__V54*/ curfptr[53]));} - ; - MELT_LOCATION("warmelt-normal.melt:2963:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; - MELT_LOCATION("warmelt-normal.melt:2963:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V44*/ curfptr[34] = /*_.RETURN___V56*/ curfptr[55];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2938:/ clear"); - /*clear*/ /*_.RCLOSYM__V45*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2938:/ clear"); - /*clear*/ /*_.RCLOCC__V46*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2938:/ clear"); - /*clear*/ /*_.RETN__V48*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2938:/ clear"); - /*clear*/ /*_.RBIND__V50*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2938:/ clear"); - /*clear*/ /*_.RBINTUP__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2938:/ clear"); - /*clear*/ /*_.MAKE_TUPLE1__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2938:/ clear"); - /*clear*/ /*_.RLET__V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2938:/ clear"); - /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2938:/ clear"); - /*clear*/ /*_.RETURN___V56*/ curfptr[55] = 0 ;} - ; - /*_.IF___V43*/ curfptr[32] = /*_.LET___V44*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2937:/ clear"); - /*clear*/ /*_.LET___V44*/ curfptr[34] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2937:/ cond.else"); - - /*_.IF___V43*/ curfptr[32] = NULL;; - } - ; - /*_.LET___V40*/ curfptr[29] = /*_.IF___V43*/ curfptr[32];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2934:/ clear"); - /*clear*/ /*_.LASTYP__V41*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2934:/ clear"); - /*clear*/ /*_.LOC__V42*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2934:/ clear"); - /*clear*/ /*_#__L16*/ curfnum[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2934:/ clear"); - /*clear*/ /*_.IF___V43*/ curfptr[32] = 0 ;} - ; - /*_.IFELSE___V39*/ curfptr[28] = /*_.LET___V40*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2933:/ clear"); - /*clear*/ /*_.LET___V40*/ curfptr[29] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:2933:/ cond.else"); - - /*_.IFELSE___V39*/ curfptr[28] = NULL;; - } - ; - /*_.IFELSE___V27*/ curfptr[23] = /*_.IFELSE___V39*/ curfptr[28];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2916:/ clear"); - /*clear*/ /*_#IS_A__L15*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2916:/ clear"); - /*clear*/ /*_.IFELSE___V39*/ curfptr[28] = 0 ;} - ; - } - ; - /*_.IFELSE___V25*/ curfptr[15] = /*_.IFELSE___V27*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2912:/ clear"); - /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2912:/ clear"); - /*clear*/ /*_.IFELSE___V27*/ curfptr[23] = 0 ;} - ; - } - ; - /*_.IFELSE___V20*/ curfptr[14] = /*_.IFELSE___V25*/ curfptr[15];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2903:/ clear"); - /*clear*/ /*_#NULL__L12*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2903:/ clear"); - /*clear*/ /*_.IFELSE___V25*/ curfptr[15] = 0 ;} - ; - } - ; - /*_.IFELSE___V14*/ curfptr[12] = /*_.IFELSE___V20*/ curfptr[14];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2893:/ clear"); - /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2893:/ clear"); - /*clear*/ /*_.IFELSE___V20*/ curfptr[14] = 0 ;} - ; - } - ; - /*_.IFELSE___V12*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2889:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2889:/ clear"); - /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:2965:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; - MELT_LOCATION("warmelt-normal.melt:2965:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V9*/ curfptr[7] = /*_.RETURN___V57*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2885:/ clear"); - /*clear*/ /*_#TUPLEN__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2885:/ clear"); - /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2885:/ clear"); - /*clear*/ /*_.LASTCOMP__V10*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2885:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2885:/ clear"); - /*clear*/ /*_.IFELSE___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2885:/ clear"); - /*clear*/ /*_.RETURN___V57*/ curfptr[35] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2882:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - MELT_LOCATION("warmelt-normal.melt:2882:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2882:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2882:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2882:/ clear"); - /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("REPLACE_LAST_BY_RETURN", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_79_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_79_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 3 - void* varptr[3]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<3; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 3; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2924:/ getarg"); - /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2924:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2924:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:2925:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2925:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BND__V2*/ curfptr[1]; - /*_.PUT_ENV__V3*/ curfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2924:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - MELT_LOCATION("warmelt-normal.melt:2924:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2924:/ clear"); - /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_79_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_80_warmelt_normal_NORMEXP_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_80_warmelt_normal_NORMEXP_DEFUN_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 63 - void* varptr[63]; -#define CURFRAM_NBVARNUM 9 - long varnum[9]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<63; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 63; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_DEFUN", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:2973:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:2973:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:2973:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:2973:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:2973:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2974:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2974:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:2974:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2974:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2974:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2974:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2974:/ locexp"); - melt_assert_failed(( "check defun recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2974)?(2974):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2974:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2974:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2974:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2975:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2975:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:2975:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2975:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2975:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2975:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2975:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2975)?(2975):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2975:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2975:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2975:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2976:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2976:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:2976:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:2976:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:2976:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:2976:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:2976:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (2976)?(2976):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2976:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2976:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2976:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:2977:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:2977:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:2977:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defun recv"; - MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg"); - argtab[3].bp_long = 2977; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2977:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2977:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:2977:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:2978:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2978:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2979:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAM__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2980:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMALS__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2981:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SFUN_BODY");/*_.SBODY__V18*/ curfptr[17] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2982:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:2982:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAM__V16*/ curfptr[15]; - /*_.SFUBIND__V19*/ curfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2983:/ apply"); - /*apply*/{ - /*_.NEWENV__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2984:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.OLDPROC__V21*/ curfptr[20] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:2985:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.OLDSYMBCACHE__V22*/ curfptr[21] = slot; }; - ; - /*_.CLOSBLIS__V23*/ curfptr[22] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; - /*_.MAKE_LIST__V24*/ curfptr[23] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; - /*_.MAKE_LIST__V25*/ curfptr[24] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; - MELT_LOCATION("warmelt-normal.melt:2987:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2987:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DEFUNROUTPROC*/ curfrout->tabval[7])), (9), "CLASS_NREP_DEFUNROUTPROC");/*_.INST__V27*/ curfptr[26] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2987:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:2987:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), ((/*nil*/NULL)), "NPROC_BODY"); - ; - MELT_LOCATION("warmelt-normal.melt:2987:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.SNAM__V16*/ curfptr[15]), "NRPRO_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:2987:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_ARGB", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (3), (/*_.SFORMALS__V17*/ curfptr[16]), "NRPRO_ARGB"); - ; - MELT_LOCATION("warmelt-normal.melt:2987:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_CLOSEDB", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (4), (/*_.CLOSBLIS__V23*/ curfptr[22]), "NRPRO_CLOSEDB"); - ; - MELT_LOCATION("warmelt-normal.melt:2987:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_CONST", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.MAKE_LIST__V24*/ curfptr[23]), "NRPRO_CONST"); - ; - MELT_LOCATION("warmelt-normal.melt:2987:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_THUNKLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (8), (/*_.MAKE_LIST__V25*/ curfptr[24]), "NRPRO_THUNKLIST"); - ; - MELT_LOCATION("warmelt-normal.melt:2987:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (6), ((/*nil*/NULL)), "NRPRO_DATAROUT"); - ; - MELT_LOCATION("warmelt-normal.melt:2987:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_DATACLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (7), ((/*nil*/NULL)), "NRPRO_DATACLOS"); - ; - /*_.NPROC__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;} - ; - MELT_LOCATION("warmelt-normal.melt:3001:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3001:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3001:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:3001:/ apply.arg"); - argtab[2].bp_cstring = "discr_routine"; - /*_.NORMAL_PREDEF__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[9])), (melt_ptr_t)((/*!DISCR_ROUTINE*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:2999:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:2999:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[8])), (6), "CLASS_NREP_DATAROUTINE");/*_.INST__V30*/ curfptr[29] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:2999:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.SNAM__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:2999:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.NORMAL_PREDEF__V28*/ curfptr[27]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:2999:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDROU_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (5), (/*_.NPROC__V26*/ curfptr[25]), "NDROU_PROC"); - ; - /*_.NDATAROUT__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} - ; - MELT_LOCATION("warmelt-normal.melt:3006:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3006:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3006:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:3006:/ apply.arg"); - argtab[2].bp_cstring = "discr_closure"; - /*_.NORMAL_PREDEF__V31*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[9])), (melt_ptr_t)((/*!DISCR_CLOSURE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3004:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3004:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ curfrout->tabval[11])), (7), "CLASS_NREP_DATACLOSURE");/*_.INST__V33*/ curfptr[32] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3004:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.SNAM__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:3004:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.NORMAL_PREDEF__V31*/ curfptr[30]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:3004:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDCLO_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (5), (/*_.NPROC__V26*/ curfptr[25]), "NDCLO_PROC"); - ; - MELT_LOCATION("warmelt-normal.melt:3004:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDCLO_CLOSV", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (6), ((/*nil*/NULL)), "NDCLO_CLOSV"); - ; - /*_.NDATACLOS__V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;} - ; - /*_.MAKE_MAPOBJECT__V34*/ curfptr[33] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[13])), (40)));; - MELT_LOCATION("warmelt-normal.melt:3011:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3011:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.NPROC__V26*/ curfptr[25]), "NCTX_CURPROC"); - ; - MELT_LOCATION("warmelt-normal.melt:3011:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.MAKE_MAPOBJECT__V34*/ curfptr[33]), "NCTX_SYMBCACHEMAP"); - ; - MELT_LOCATION("warmelt-normal.melt:3011:/ touch"); - meltgc_touch(/*_.NCX__V4*/ curfptr[3]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:3014:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3014:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V29*/ curfptr[28]; - /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3015:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3015:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NDATACLOS__V32*/ curfptr[31]; - /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3016:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3016:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ curfrout->tabval[15])));; - MELT_LOCATION("warmelt-normal.melt:3016:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3016:/ cond.then"); - /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3016:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3016:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3016:/ locexp"); - melt_assert_failed(( "check sfubind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3016)?(3016):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V37*/ curfptr[36] = /*_.IFELSE___V38*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3016:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3016:/ clear"); - /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3016:/ cppif.else"); - /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3017:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3017:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NPROC__V26*/ curfptr[25]), (6), (/*_.NDATAROUT__V29*/ curfptr[28]), "NRPRO_DATAROUT"); - ; - MELT_LOCATION("warmelt-normal.melt:3017:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_DATACLOS", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NPROC__V26*/ curfptr[25]), (7), (/*_.NDATACLOS__V32*/ curfptr[31]), "NRPRO_DATACLOS"); - ; - MELT_LOCATION("warmelt-normal.melt:3017:/ touch"); - meltgc_touch(/*_.NPROC__V26*/ curfptr[25]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:3020:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3020:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V40*/ curfptr[39] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:3020:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]); - ; - /*_.LAMBDA___V39*/ curfptr[37] = /*_.LAMBDA___V40*/ curfptr[39];;} - ; - MELT_LOCATION("warmelt-normal.melt:3018:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3018:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V39*/ curfptr[37]; - /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.SFORMALS__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3023:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3023:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @ENV_PROC", melt_magic_discr((melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NEWENV__V20*/ curfptr[19]), (2), (/*_.NPROC__V26*/ curfptr[25]), "ENV_PROC"); - ; - MELT_LOCATION("warmelt-normal.melt:3023:/ touch"); - meltgc_touch(/*_.NEWENV__V20*/ curfptr[19]); - ; - /*epilog*/} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3024:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3024:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3024:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defun updated :env_proc of of newenv"; - MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg"); - argtab[3].bp_long = 3024; - /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3024:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3024:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3024:/ cppif.else"); - /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3026:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 1, "NCTX_PROCLIST");/*_.NCTX_PROCLIST__V44*/ curfptr[42] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3026:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NCTX_PROCLIST__V44*/ curfptr[42]), (melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25]));} - ; - MELT_LOCATION("warmelt-normal.melt:3027:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V47*/ curfptr[46]; - MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.appl"); - /*_.NBODY__V46*/ curfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[20])), (melt_ptr_t)(/*_.SBODY__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:3027:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3030:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3030:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3030:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defun nbody before replace_last_by_return"; - MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg"); - argtab[3].bp_long = 3030; - /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3030:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3030:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3030:/ cppif.else"); - /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3033:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3033:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V51*/ curfptr[50] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:3033:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V51*/ curfptr[50])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V51*/ curfptr[50]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V51*/ curfptr[50])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]); - ; - /*_.LAMBDA___V50*/ curfptr[48] = /*_.LAMBDA___V51*/ curfptr[50];;} - ; - MELT_LOCATION("warmelt-normal.melt:3031:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3031:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V50*/ curfptr[48]; - /*_.MULTIPLE_EVERY__V52*/ curfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NBINDINGS__V47*/ curfptr[46]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3035:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3035:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3035:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19]; - MELT_LOCATION("warmelt-normal.melt:3035:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NRBODY__V54*/ curfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3036:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3036:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V47*/ curfptr[46]; - MELT_LOCATION("warmelt-normal.melt:3036:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NPBODY__V55*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.NRBODY__V54*/ curfptr[53]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3038:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3038:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NPROC__V26*/ curfptr[25]), (1), (/*_.NPBODY__V55*/ curfptr[54]), "NPROC_BODY"); - ; - MELT_LOCATION("warmelt-normal.melt:3038:/ touch"); - meltgc_touch(/*_.NPROC__V26*/ curfptr[25]); - ; - /*epilog*/} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3039:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3039:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3039:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defun npbody after replace_last_by_return"; - MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg"); - argtab[3].bp_long = 3039; - /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPBODY__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3039:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3039:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3039:/ cppif.else"); - /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V53*/ curfptr[52] = /*_.IFCPP___V56*/ curfptr[55];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3035:/ clear"); - /*clear*/ /*_.NRBODY__V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3035:/ clear"); - /*clear*/ /*_.NPBODY__V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3035:/ clear"); - /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3041:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3041:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.OLDPROC__V21*/ curfptr[20]), "NCTX_CURPROC"); - ; - MELT_LOCATION("warmelt-normal.melt:3041:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.OLDSYMBCACHE__V22*/ curfptr[21]), "NCTX_SYMBCACHEMAP"); - ; - MELT_LOCATION("warmelt-normal.melt:3041:/ touch"); - meltgc_touch(/*_.NCX__V4*/ curfptr[3]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:3042:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3046:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3046:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V59*/ curfptr[53] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_29*/ curfrout->tabval[29])), (3)); - ; - MELT_LOCATION("warmelt-normal.melt:3046:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[53])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[53]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[53])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]); - ; - MELT_LOCATION("warmelt-normal.melt:3046:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[53])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[53]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[53])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]); - ; - MELT_LOCATION("warmelt-normal.melt:3046:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[53])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[53]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[53])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); - ; - /*_.LAMBDA___V58*/ curfptr[56] = /*_.LAMBDA___V59*/ curfptr[53];;} - ; - MELT_LOCATION("warmelt-normal.melt:3043:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3043:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[26]); - MELT_LOCATION("warmelt-normal.melt:3043:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V58*/ curfptr[56]; - /*_.CLOVTUP__V60*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.CLOSBLIS__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3055:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3055:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDCLO_CLOSV", melt_magic_discr((melt_ptr_t)(/*_.NDATACLOS__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NDATACLOS__V32*/ curfptr[31]), (6), (/*_.CLOVTUP__V60*/ curfptr[54]), "NDCLO_CLOSV"); - ; - MELT_LOCATION("warmelt-normal.melt:3055:/ touch"); - meltgc_touch(/*_.NDATACLOS__V32*/ curfptr[31]); - ; - /*epilog*/} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3042:/ clear"); - /*clear*/ /*_.LAMBDA___V58*/ curfptr[56] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3042:/ clear"); - /*clear*/ /*_.CLOVTUP__V60*/ curfptr[54] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3057:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3057:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.SFUBIND__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.SFUBIND__V19*/ curfptr[18]), (1), (/*_.NDATACLOS__V32*/ curfptr[31]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:3057:/ touch"); - meltgc_touch(/*_.SFUBIND__V19*/ curfptr[18]); - ; - /*epilog*/} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3060:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3060:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3060:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defun return nproc"; - MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg"); - argtab[3].bp_long = 3060; - /*_.DEBUG_MSG_FUN__V62*/ curfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V61*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[56];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3060:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3060:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[56] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3060:/ cppif.else"); - /*_.IFCPP___V61*/ curfptr[55] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3061:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NPROC__V26*/ curfptr[25];; - MELT_LOCATION("warmelt-normal.melt:3061:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) ((/*nil*/NULL)); - ; - MELT_LOCATION("warmelt-normal.melt:3061:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.MULTI___V45*/ curfptr[44] = /*_.RETURN___V63*/ curfptr[54];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3027:/ clear"); - /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3027:/ clear"); - /*clear*/ /*_.LAMBDA___V50*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3027:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3027:/ clear"); - /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3027:/ clear"); - /*clear*/ /*_.IFCPP___V61*/ curfptr[55] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3027:/ clear"); - /*clear*/ /*_.RETURN___V63*/ curfptr[54] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3027:/ clear"); - /*clear*/ /*_.NBINDINGS__V47*/ curfptr[46] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.SNAM__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.SBODY__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.SFUBIND__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.NEWENV__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.OLDPROC__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.OLDSYMBCACHE__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.CLOSBLIS__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.MAKE_LIST__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.MAKE_LIST__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.NPROC__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.NDATAROUT__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.NDATACLOS__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.MAKE_MAPOBJECT__V34*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.LAMBDA___V39*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.NCTX_PROCLIST__V44*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2978:/ clear"); - /*clear*/ /*_.MULTI___V45*/ curfptr[44] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:2973:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:2973:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:2973:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2973:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2973:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2973:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:2973:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_DEFUN", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_80_warmelt_normal_NORMEXP_DEFUN*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_81_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_81_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 5 - void* varptr[5]; -#define CURFRAM_NBVARNUM 2 - long varnum[2]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<5; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 5; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3020:/ getarg"); - /*_.FBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3020:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3020:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3021:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3021:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.FBI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3021:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3021:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3021:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3021:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3021:/ locexp"); - melt_assert_failed(( "check fbi"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3021)?(3021):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3021:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3021:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3021:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3022:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3022:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FBI__V2*/ curfptr[1]; - /*_.PUT_ENV__V5*/ curfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3020:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V5*/ curfptr[3];; - MELT_LOCATION("warmelt-normal.melt:3020:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3020:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3020:/ clear"); - /*clear*/ /*_.PUT_ENV__V5*/ curfptr[3] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_81_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_82_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_82_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 3 - void* varptr[3]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<3; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 3; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3033:/ getarg"); - /*_.NBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3033:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3033:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:3034:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3034:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBI__V2*/ curfptr[1]; - /*_.PUT_ENV__V3*/ curfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3033:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - MELT_LOCATION("warmelt-normal.melt:3033:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3033:/ clear"); - /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_82_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_83_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_83_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 7 - void* varptr[7]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<7; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 7; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3046:/ getarg"); - /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3046:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3047:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3047:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3047:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3047:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3047:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3047:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3047:/ locexp"); - melt_assert_failed(( "normexp_defun check bnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3047)?(3047):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3047:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3047:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3047:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3048:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3048:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.SY__V6*/ curfptr[5] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3051:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3051:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - MELT_LOCATION("warmelt-normal.melt:3051:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); - MELT_LOCATION("warmelt-normal.melt:3051:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); - /*_.NSY__V7*/ curfptr[6] = meltgc_send((melt_ptr_t)(/*_.SY__V6*/ curfptr[5]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.LET___V5*/ curfptr[3] = /*_.NSY__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3048:/ clear"); - /*clear*/ /*_.SY__V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3048:/ clear"); - /*clear*/ /*_.NSY__V7*/ curfptr[6] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3046:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; - MELT_LOCATION("warmelt-normal.melt:3046:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3046:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3046:/ clear"); - /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_83_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_84_warmelt_normal_NORMALIZE_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_84_warmelt_normal_NORMALIZE_LAMBDA_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 62 - void* varptr[62]; -#define CURFRAM_NBVARNUM 9 - long varnum[9]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<62; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 62; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMALIZE_LAMBDA", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3073:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3073:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3073:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NEWENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3073:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:3073:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ curfptr[5])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3073:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3074:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3074:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3074:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3074:/ cond.then"); - /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3074:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3074:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3074:/ locexp"); - melt_assert_failed(( "check lambda recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3074)?(3074):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3074:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3074:/ clear"); - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3074:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3075:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3075:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3075:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3075:/ cond.then"); - /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3075:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3075:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3075:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3075)?(3075):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3075:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3075:/ clear"); - /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3075:/ cppif.else"); - /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3076:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3076:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3076:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3076:/ cond.then"); - /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3076:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3076:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3076:/ locexp"); - melt_assert_failed(( "check newenv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3076)?(3076):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3076:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3076:/ clear"); - /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3076:/ cppif.else"); - /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3077:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3077:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3077:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3077:/ cond.then"); - /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3077:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3077:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3077:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3077)?(3077):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3077:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3077:/ clear"); - /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3077:/ cppif.else"); - /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3078:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3078:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3078:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg"); - argtab[0].bp_cstring = "normalize_lambda recv"; - MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg"); - argtab[3].bp_long = 3078; - /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3078:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3078:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3078:/ cppif.else"); - /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3079:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3079:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3079:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg"); - argtab[0].bp_cstring = "normalize_lambda env"; - MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg"); - argtab[3].bp_long = 3079; - /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3079:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3079:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3079:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3080:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3080:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3080:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg"); - argtab[0].bp_cstring = "normalize_lambda newenv"; - MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg"); - argtab[3].bp_long = 3080; - /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3080:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3080:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3080:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3081:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3081:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V22*/ curfptr[21] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3082:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLAM_ARGBIND");/*_.SARGS__V23*/ curfptr[22] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3083:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SLAM_BODY");/*_.SBODY__V24*/ curfptr[23] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3084:/ apply"); - /*apply*/{ - /*_.CSYM__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[4])), (melt_ptr_t)((/*!konst_5_LAMBDA_*/ curfrout->tabval[5])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3085:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3085:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V27*/ curfptr[26] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3085:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3085:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:3085:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.CSYM__V25*/ curfptr[24]), "NOCC_SYMB"); - ; - /*_.CLOCC__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;} - ; - MELT_LOCATION("warmelt-normal.melt:3089:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), 10, "NCTX_CURPROC");/*_.OLDPROC__V28*/ curfptr[27] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3090:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), 6, "NCTX_SYMBCACHEMAP");/*_.SAVEDCACHEMAP__V29*/ curfptr[28] = slot; }; - ; - /*_.CLOSEDBLIST__V30*/ curfptr[29] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; - /*_.MAKE_LIST__V31*/ curfptr[30] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; - /*_.MAKE_LIST__V32*/ curfptr[31] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; - MELT_LOCATION("warmelt-normal.melt:3092:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3092:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LAMBDAROUTPROC*/ curfrout->tabval[9])), (9), "CLASS_NREP_LAMBDAROUTPROC");/*_.INST__V34*/ curfptr[33] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3092:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3092:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), ((/*nil*/NULL)), "NPROC_BODY"); - ; - MELT_LOCATION("warmelt-normal.melt:3092:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.CSYM__V25*/ curfptr[24]), "NRPRO_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:3092:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_ARGB", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (3), (/*_.SARGS__V23*/ curfptr[22]), "NRPRO_ARGB"); - ; - MELT_LOCATION("warmelt-normal.melt:3092:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_CLOSEDB", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (4), (/*_.CLOSEDBLIST__V30*/ curfptr[29]), "NRPRO_CLOSEDB"); - ; - MELT_LOCATION("warmelt-normal.melt:3092:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_CONST", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (5), (/*_.MAKE_LIST__V31*/ curfptr[30]), "NRPRO_CONST"); - ; - MELT_LOCATION("warmelt-normal.melt:3092:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (6), ((/*nil*/NULL)), "NRPRO_DATAROUT"); - ; - MELT_LOCATION("warmelt-normal.melt:3092:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_DATACLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (7), ((/*nil*/NULL)), "NRPRO_DATACLOS"); - ; - MELT_LOCATION("warmelt-normal.melt:3092:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_THUNKLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (8), (/*_.MAKE_LIST__V32*/ curfptr[31]), "NRPRO_THUNKLIST"); - ; - /*_.NPROC__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} - ; - MELT_LOCATION("warmelt-normal.melt:3105:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3105:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:3105:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21]; - MELT_LOCATION("warmelt-normal.melt:3105:/ apply.arg"); - argtab[2].bp_cstring = "discr_routine"; - /*_.NORMAL_PREDEF__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[11])), (melt_ptr_t)((/*!DISCR_ROUTINE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3103:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3103:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[10])), (6), "CLASS_NREP_DATAROUTINE");/*_.INST__V37*/ curfptr[36] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3103:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.CSYM__V25*/ curfptr[24]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:3103:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.NORMAL_PREDEF__V35*/ curfptr[34]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:3103:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDROU_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), (/*_.NPROC__V33*/ curfptr[32]), "NDROU_PROC"); - ; - /*_.NDATAROUT__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} - ; - MELT_LOCATION("warmelt-normal.melt:3109:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3109:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V36*/ curfptr[35]; - /*_.ADD_NCTX_DATA__V38*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.MAKE_MAPOBJECT__V39*/ curfptr[38] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[14])), (40)));; - MELT_LOCATION("warmelt-normal.melt:3111:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3111:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (10), (/*_.NPROC__V33*/ curfptr[32]), "NCTX_CURPROC"); - ; - MELT_LOCATION("warmelt-normal.melt:3111:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (6), (/*_.MAKE_MAPOBJECT__V39*/ curfptr[38]), "NCTX_SYMBCACHEMAP"); - ; - MELT_LOCATION("warmelt-normal.melt:3111:/ touch"); - meltgc_touch(/*_.NCX__V5*/ curfptr[4]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:3114:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3114:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NPROC__V33*/ curfptr[32]), (6), (/*_.NDATAROUT__V36*/ curfptr[35]), "NRPRO_DATAROUT"); - ; - MELT_LOCATION("warmelt-normal.melt:3114:/ touch"); - meltgc_touch(/*_.NPROC__V33*/ curfptr[32]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:3117:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3117:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V41*/ curfptr[40] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:3117:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V41*/ curfptr[40])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V41*/ curfptr[40]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V41*/ curfptr[40])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]); - ; - /*_.LAMBDA___V40*/ curfptr[39] = /*_.LAMBDA___V41*/ curfptr[40];;} - ; - MELT_LOCATION("warmelt-normal.melt:3115:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3115:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V40*/ curfptr[39]; - /*_.MULTIPLE_EVERY__V42*/ curfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SARGS__V23*/ curfptr[22]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3120:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3120:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @ENV_PROC", melt_magic_discr((melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NEWENV__V4*/ curfptr[3]), (2), (/*_.NPROC__V33*/ curfptr[32]), "ENV_PROC"); - ; - MELT_LOCATION("warmelt-normal.melt:3120:/ touch"); - meltgc_touch(/*_.NEWENV__V4*/ curfptr[3]); - ; - /*epilog*/} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3121:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3121:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3121:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg"); - argtab[0].bp_cstring = "normalize_lambda updated :env_proc of newenv"; - MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg"); - argtab[3].bp_long = 3121; - /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3121:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3121:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3121:/ cppif.else"); - /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3122:/ locexp"); - -#if ENABLE_CHECKING - if (flag_melt_debug) - melt_dbgshortbacktrace(( "normalize_lambda"), (15)); -#endif -;} - ; - MELT_LOCATION("warmelt-normal.melt:3124:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), 1, "NCTX_PROCLIST");/*_.NCTX_PROCLIST__V45*/ curfptr[43] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3124:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NCTX_PROCLIST__V45*/ curfptr[43]), (melt_ptr_t)(/*_.NPROC__V33*/ curfptr[32]));} - ; - MELT_LOCATION("warmelt-normal.melt:3125:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21]; - MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V48*/ curfptr[47]; - MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.appl"); - /*_.NBODY__V47*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.SBODY__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:3125:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3130:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3130:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V50*/ curfptr[49] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:3130:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V50*/ curfptr[49])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V50*/ curfptr[49]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V50*/ curfptr[49])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]); - ; - /*_.LAMBDA___V49*/ curfptr[48] = /*_.LAMBDA___V50*/ curfptr[49];;} - ; - MELT_LOCATION("warmelt-normal.melt:3128:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3128:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V49*/ curfptr[48]; - /*_.MULTIPLE_EVERY__V51*/ curfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.NBINDINGS__V48*/ curfptr[47]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3134:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21]; - /*_.REPLACE_LAST_BY_RETURN__V52*/ curfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3134:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V48*/ curfptr[47]; - MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21]; - /*_.WRAP_NORMAL_LETSEQ__V53*/ curfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.REPLACE_LAST_BY_RETURN__V52*/ curfptr[51]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3132:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3132:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V33*/ curfptr[32])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NPROC__V33*/ curfptr[32]), (1), (/*_.WRAP_NORMAL_LETSEQ__V53*/ curfptr[52]), "NPROC_BODY"); - ; - MELT_LOCATION("warmelt-normal.melt:3132:/ touch"); - meltgc_touch(/*_.NPROC__V33*/ curfptr[32]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:3137:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3137:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (6), (/*_.SAVEDCACHEMAP__V29*/ curfptr[28]), "NCTX_SYMBCACHEMAP"); - ; - MELT_LOCATION("warmelt-normal.melt:3137:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (10), (/*_.OLDPROC__V28*/ curfptr[27]), "NCTX_CURPROC"); - ; - MELT_LOCATION("warmelt-normal.melt:3137:/ touch"); - meltgc_touch(/*_.NCX__V5*/ curfptr[4]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:3141:/ block"); - /*block*/{ - /*_#INSIDEFLAG__L9*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.OLDPROC__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[24])));; - MELT_LOCATION("warmelt-normal.melt:3144:/ cond"); - /*cond*/ if (/*_#INSIDEFLAG__L9*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3144:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3144:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3145:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3145:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[25])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V57*/ curfptr[56] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3145:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3145:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL"); - ; - MELT_LOCATION("warmelt-normal.melt:3145:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (3), (/*_.NDATAROUT__V36*/ curfptr[35]), "NCONST_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:3145:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (2), (/*_.OLDPROC__V28*/ curfptr[27]), "NCONST_PROC"); - ; - /*_.INST___V56*/ curfptr[55] = /*_.INST__V57*/ curfptr[56];;} - ; - /*_.KROUT__V55*/ curfptr[54] = /*_.INST___V56*/ curfptr[55];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3144:/ clear"); - /*clear*/ /*_.INST___V56*/ curfptr[55] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3144:/ cond.else"); - - /*_.KROUT__V55*/ curfptr[54] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3153:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3153:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V59*/ curfptr[58] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_30*/ curfrout->tabval[30])), (3)); - ; - MELT_LOCATION("warmelt-normal.melt:3153:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[58])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]); - ; - MELT_LOCATION("warmelt-normal.melt:3153:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[58])->tabval[1] = (melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]); - ; - MELT_LOCATION("warmelt-normal.melt:3153:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[58])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V22*/ curfptr[21]); - ; - /*_.LAMBDA___V58*/ curfptr[55] = /*_.LAMBDA___V59*/ curfptr[58];;} - ; - MELT_LOCATION("warmelt-normal.melt:3151:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3151:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[27]); - MELT_LOCATION("warmelt-normal.melt:3151:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V58*/ curfptr[55]; - /*_.CLOVTUP__V60*/ curfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.CLOSEDBLIST__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3161:/ cond"); - /*cond*/ if (/*_#INSIDEFLAG__L9*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3161:/ cond.then"); - /*_.CONSTROUT__V61*/ curfptr[60] = /*_.KROUT__V55*/ curfptr[54];; - } else {MELT_LOCATION("warmelt-normal.melt:3161:/ cond.else"); - - /*_.CONSTROUT__V61*/ curfptr[60] = /*_.NDATAROUT__V36*/ curfptr[35];; - } - ; - MELT_LOCATION("warmelt-normal.melt:3163:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NPROC__V33*/ curfptr[32];; - MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.CSYM__V25*/ curfptr[24]); - ; - MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[1] != BPAR_PTR) goto labend_rout; - if (xrestab_[1].bp_aptr) *(xrestab_[1].bp_aptr) = (melt_ptr_t) (/*_.CLOCC__V26*/ curfptr[25]); - ; - MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[2] != BPAR_PTR) goto labend_rout; - if (xrestab_[2].bp_aptr) *(xrestab_[2].bp_aptr) = (melt_ptr_t) (/*_.CONSTROUT__V61*/ curfptr[60]); - ; - MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[3] != BPAR_PTR) goto labend_rout; - if (xrestab_[3].bp_aptr) *(xrestab_[3].bp_aptr) = (melt_ptr_t) (/*_.CLOVTUP__V60*/ curfptr[59]); - ; - MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[4] != BPAR_PTR) goto labend_rout; - if (xrestab_[4].bp_aptr) *(xrestab_[4].bp_aptr) = (melt_ptr_t) (/*_.SLOC__V22*/ curfptr[21]); - ; - MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[5] != BPAR_PTR) goto labend_rout; - if (xrestab_[5].bp_aptr) *(xrestab_[5].bp_aptr) = (melt_ptr_t) (/*_.OLDPROC__V28*/ curfptr[27]); - ; - MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[6] != BPAR_PTR) goto labend_rout; - if (xrestab_[6].bp_aptr) *(xrestab_[6].bp_aptr) = (melt_ptr_t) (/*_.NDATAROUT__V36*/ curfptr[35]); - ; - MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[7] != BPAR_LONG) goto labend_rout; - if (xrestab_[7].bp_longptr) *(xrestab_[7].bp_longptr) = (/*_#INSIDEFLAG__L9*/ curfnum[0]); - ; - MELT_LOCATION("warmelt-normal.melt:3163:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V54*/ curfptr[53] = /*_.RETURN___V62*/ curfptr[61];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3141:/ clear"); - /*clear*/ /*_#INSIDEFLAG__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3141:/ clear"); - /*clear*/ /*_.KROUT__V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3141:/ clear"); - /*clear*/ /*_.LAMBDA___V58*/ curfptr[55] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3141:/ clear"); - /*clear*/ /*_.CLOVTUP__V60*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3141:/ clear"); - /*clear*/ /*_.CONSTROUT__V61*/ curfptr[60] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3141:/ clear"); - /*clear*/ /*_.RETURN___V62*/ curfptr[61] = 0 ;} - ; - /*_.MULTI___V46*/ curfptr[45] = /*_.LET___V54*/ curfptr[53];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3125:/ clear"); - /*clear*/ /*_.LAMBDA___V49*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3125:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V51*/ curfptr[50] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3125:/ clear"); - /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3125:/ clear"); - /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3125:/ clear"); - /*clear*/ /*_.LET___V54*/ curfptr[53] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3125:/ clear"); - /*clear*/ /*_.NBINDINGS__V48*/ curfptr[47] = 0 ;} - ; - /*_.LET___V21*/ curfptr[19] = /*_.MULTI___V46*/ curfptr[45];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.SLOC__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.SARGS__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.SBODY__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.CSYM__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.CLOCC__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.OLDPROC__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.SAVEDCACHEMAP__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.CLOSEDBLIST__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.MAKE_LIST__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.MAKE_LIST__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.NPROC__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.NDATAROUT__V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.MAKE_MAPOBJECT__V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.LAMBDA___V40*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.NCTX_PROCLIST__V45*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3081:/ clear"); - /*clear*/ /*_.MULTI___V46*/ curfptr[45] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3073:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V21*/ curfptr[19];; - MELT_LOCATION("warmelt-normal.melt:3073:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3073:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3073:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3073:/ clear"); - /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3073:/ clear"); - /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3073:/ clear"); - /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3073:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3073:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3073:/ clear"); - /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMALIZE_LAMBDA", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_84_warmelt_normal_NORMALIZE_LAMBDA*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_85_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_85_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 5 - void* varptr[5]; -#define CURFRAM_NBVARNUM 2 - long varnum[2]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<5; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 5; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3117:/ getarg"); - /*_.FBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3117:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3117:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3118:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3118:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.FBI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3118:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3118:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3118:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3118:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3118:/ locexp"); - melt_assert_failed(( "check fbi"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3118)?(3118):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3118:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3118:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3118:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3119:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3119:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FBI__V2*/ curfptr[1]; - /*_.PUT_ENV__V5*/ curfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3117:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V5*/ curfptr[3];; - MELT_LOCATION("warmelt-normal.melt:3117:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3117:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3117:/ clear"); - /*clear*/ /*_.PUT_ENV__V5*/ curfptr[3] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_85_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_86_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_86_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 3 - void* varptr[3]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<3; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 3; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3130:/ getarg"); - /*_.NBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3130:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3130:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:3131:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3131:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBI__V2*/ curfptr[1]; - /*_.PUT_ENV__V3*/ curfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3130:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - MELT_LOCATION("warmelt-normal.melt:3130:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3130:/ clear"); - /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_86_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_87_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_87_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 7 - void* varptr[7]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<7; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 7; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3153:/ getarg"); - /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3153:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3154:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3154:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3154:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3154:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3154:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3154:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3154:/ locexp"); - melt_assert_failed(( "normalize_lambda check bnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3154)?(3154):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3154:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3154:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3154:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3155:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3155:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.SY__V6*/ curfptr[5] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3158:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3158:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - MELT_LOCATION("warmelt-normal.melt:3158:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); - MELT_LOCATION("warmelt-normal.melt:3158:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); - /*_.NSY__V7*/ curfptr[6] = meltgc_send((melt_ptr_t)(/*_.SY__V6*/ curfptr[5]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.LET___V5*/ curfptr[3] = /*_.NSY__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3155:/ clear"); - /*clear*/ /*_.SY__V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3155:/ clear"); - /*clear*/ /*_.NSY__V7*/ curfptr[6] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3153:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; - MELT_LOCATION("warmelt-normal.melt:3153:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3153:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3153:/ clear"); - /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_87_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_88_warmelt_normal_NORMEXP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_88_warmelt_normal_NORMEXP_LAMBDA_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 38 - void* varptr[38]; -#define CURFRAM_NBVARNUM 8 - long varnum[8]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<38; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 38; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_LAMBDA", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3167:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3167:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3167:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3167:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3167:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3168:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3168:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3168:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3168:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3168:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3168:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3168:/ locexp"); - melt_assert_failed(( "check lambda recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3168)?(3168):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3168:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3168:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3168:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3169:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3169:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3169:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3169:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3169:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3169:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3169:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3169)?(3169):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3169:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3169:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3169:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3170:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3170:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3170:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3170:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3170:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3170:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3170:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3170)?(3170):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3170:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3170:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3170:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3171:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3171:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3171:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg"); - argtab[0].bp_cstring = "normexp_lambda recv"; - MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg"); - argtab[3].bp_long = 3171; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3171:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3171:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3171:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3172:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3173:/ apply"); - /*apply*/{ - /*_.NEWENV__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3175:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply"); - /*multiapply 5args, 8x.res*/ { - union meltparam_un argtab[4]; - - union meltparam_un restab[8]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V15*/ curfptr[14];MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.CSYM__V18*/ curfptr[17]; - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres"); - restab[1].bp_aptr = (melt_ptr_t*) &/*_.CLOCC__V19*/ curfptr[18]; - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres"); - restab[2].bp_aptr = (melt_ptr_t*) &/*_.CONSTROUT__V20*/ curfptr[19]; - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres"); - restab[3].bp_aptr = (melt_ptr_t*) &/*_.CLOVTUP__V21*/ curfptr[20]; - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres"); - restab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21]; - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres"); - restab[5].bp_aptr = (melt_ptr_t*) &/*_.OLDPROC__V23*/ curfptr[22]; - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres"); - restab[6].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V24*/ curfptr[23]; - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres"); - restab[7].bp_longptr = & /*_#INSIDEFLAG__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.appl"); - /*_.NPROC__V17*/ curfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_LAMBDA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:3175:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3178:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3178:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[5] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3178:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg"); - argtab[0].bp_cstring = "normexp_lambda after normalize_lambda nproc"; - MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg"); - argtab[3].bp_long = 3178; - /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPROC__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3178:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3178:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3178:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3179:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3180:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3180:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LAMBDA*/ curfrout->tabval[6])), (4), "CLASS_NREP_LAMBDA");/*_.INST__V29*/ curfptr[28] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3180:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3180:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLAMBDA_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.NPROC__V17*/ curfptr[16]), "NLAMBDA_PROC"); - ; - MELT_LOCATION("warmelt-normal.melt:3180:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLAMBDA_CONSTROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.CONSTROUT__V20*/ curfptr[19]), "NLAMBDA_CONSTROUT"); - ; - MELT_LOCATION("warmelt-normal.melt:3180:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLAMBDA_CLOSEDV", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (3), (/*_.CLOVTUP__V21*/ curfptr[20]), "NLAMBDA_CLOSEDV"); - ; - /*_.NLAMBDA__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;} - ; - MELT_LOCATION("warmelt-normal.melt:3186:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3186:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V31*/ curfptr[30] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3186:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), (/*_.SLOC__V22*/ curfptr[21]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3186:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.CSYM__V18*/ curfptr[17]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:3186:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:3186:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NLAMBDA__V28*/ curfptr[27]), "LETBIND_EXPR"); - ; - /*_.CBIND__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;} - ; - /*_.NBINDLIST__V32*/ curfptr[31] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; - MELT_LOCATION("warmelt-normal.melt:3193:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3193:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.CLOCC__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CLOCC__V19*/ curfptr[18]), (3), (/*_.CBIND__V30*/ curfptr[29]), "NOCC_BIND"); - ; - MELT_LOCATION("warmelt-normal.melt:3193:/ touch"); - meltgc_touch(/*_.CLOCC__V19*/ curfptr[18]); - ; - /*epilog*/} - ; - - { - MELT_LOCATION("warmelt-normal.melt:3194:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NBINDLIST__V32*/ curfptr[31]), (melt_ptr_t)(/*_.CBIND__V30*/ curfptr[29]));} - ; - MELT_LOCATION("warmelt-normal.melt:3195:/ cond"); - /*cond*/ if (/*_#INSIDEFLAG__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3195:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3195:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3196:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.OLDPROC__V23*/ curfptr[22]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V33*/ curfptr[32] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3196:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V33*/ curfptr[32]), (melt_ptr_t)(/*_.NDATAROUT__V24*/ curfptr[23]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3195:/ clear"); - /*clear*/ /*_.NRPRO_CONST__V33*/ curfptr[32] = 0 ;} - ; - } /*noelse*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3197:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3197:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[5] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3197:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg"); - argtab[0].bp_cstring = "normexp_lambda return clocc"; - MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; - MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg"); - argtab[3].bp_long = 3197; - /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V34*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3197:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3197:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3197:/ cppif.else"); - /*_.IFCPP___V34*/ curfptr[32] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3198:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3198:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[5] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3198:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg"); - argtab[0].bp_cstring = "normexp_lambda return nbindlist"; - MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; - MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg"); - argtab[3].bp_long = 3198; - /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDLIST__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V36*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3198:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3198:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3198:/ cppif.else"); - /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3199:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V19*/ curfptr[18];; - MELT_LOCATION("warmelt-normal.melt:3199:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDLIST__V32*/ curfptr[31]); - ; - MELT_LOCATION("warmelt-normal.melt:3199:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V27*/ curfptr[25] = /*_.RETURN___V38*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3179:/ clear"); - /*clear*/ /*_.NLAMBDA__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3179:/ clear"); - /*clear*/ /*_.CBIND__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3179:/ clear"); - /*clear*/ /*_.NBINDLIST__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3179:/ clear"); - /*clear*/ /*_.IFCPP___V34*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3179:/ clear"); - /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3179:/ clear"); - /*clear*/ /*_.RETURN___V38*/ curfptr[36] = 0 ;} - ; - /*_.MULTI___V16*/ curfptr[15] = /*_.LET___V27*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.CSYM__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.CLOCC__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.CONSTROUT__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.CLOVTUP__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.SLOC__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.OLDPROC__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_.NDATAROUT__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3175:/ clear"); - /*clear*/ /*_#INSIDEFLAG__L5*/ curfnum[0] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V16*/ curfptr[15];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3172:/ clear"); - /*clear*/ /*_.NEWENV__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3172:/ clear"); - /*clear*/ /*_.MULTI___V16*/ curfptr[15] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3167:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3167:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3167:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3167:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3167:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3167:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3167:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_LAMBDA", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_88_warmelt_normal_NORMEXP_LAMBDA*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_89_warmelt_normal_NORMEXP_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_89_warmelt_normal_NORMEXP_MULTICALL_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 105 - void* varptr[105]; -#define CURFRAM_NBVARNUM 22 - long varnum[22]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<105; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 105; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_MULTICALL", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3204:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3204:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3204:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3204:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3204:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3205:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3205:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_MULTICALL*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3205:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3205:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3205:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3205:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3205:/ locexp"); - melt_assert_failed(( "check multicall recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3205)?(3205):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3205:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3205:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3205:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3206:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3206:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3206:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3206:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3206:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3206:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3206:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3206)?(3206):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3206:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3206:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3206:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3207:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3207:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3207:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3207:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3207:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3207:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3207:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3207)?(3207):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3207:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3207:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3207:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3208:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3208:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3208:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall recv"; - MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg"); - argtab[3].bp_long = 3208; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3208:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3208:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3208:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3209:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3209:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3210:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMULC_RESBIND");/*_.SRESBIND__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3211:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMULC_CALL");/*_.SCALL__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3212:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SMULC_BODY");/*_.SBODY__V18*/ curfptr[17] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3213:/ apply"); - /*apply*/{ - /*_.NEWENV__V19*/ curfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3215:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3215:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3215:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall scall"; - MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg"); - argtab[3].bp_long = 3215; - /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3215:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3215:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3215:/ cppif.else"); - /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3216:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NCALLBINDINGS__V24*/ curfptr[23];MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.send"); - /*_.NCALL__V23*/ curfptr[22] = meltgc_send ((melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:3216:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3219:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3219:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3219:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall ncall"; - MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg"); - argtab[3].bp_long = 3219; - /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCALL__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3219:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3219:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3219:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3220:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3220:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3220:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall ncallbindings"; - MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg"); - argtab[3].bp_long = 3220; - /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCALLBINDINGS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3220:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3220:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3220:/ cppif.else"); - /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3224:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3224:/ block"); - /*block*/{ - /*_#IS_A__L8*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCALL__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])));; - MELT_LOCATION("warmelt-normal.melt:3224:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3224:/ cond.then"); - /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3224:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3224:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3224:/ locexp"); - melt_assert_failed(( "normexp_multicall check ncall"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3224)?(3224):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3224:/ clear"); - /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3224:/ clear"); - /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3224:/ cppif.else"); - /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3225:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3225:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCALL__V23*/ curfptr[22]), 1, "NOCC_SYMB");/*_.NCALLSYM__V32*/ curfptr[31] = slot; }; - ; - /*_.NBOXCALL__V33*/ curfptr[32] = - meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)));; - /*_.NREALCALL__V34*/ curfptr[33] = (/*nil*/NULL);; - /*_.NINCALLBINDINGS__V35*/ curfptr[34] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; - MELT_LOCATION("warmelt-normal.melt:3232:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3232:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (3)); - ; - MELT_LOCATION("warmelt-normal.melt:3232:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[0] = (melt_ptr_t)(/*_.NCALLSYM__V32*/ curfptr[31]); - ; - MELT_LOCATION("warmelt-normal.melt:3232:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[1] = (melt_ptr_t)(/*_.NBOXCALL__V33*/ curfptr[32]); - ; - MELT_LOCATION("warmelt-normal.melt:3232:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[2] = (melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]); - ; - /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;} - ; - MELT_LOCATION("warmelt-normal.melt:3230:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3230:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35]; - /*_.LIST_ITERATE_TEST__V38*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!LIST_ITERATE_TEST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCALLBINDINGS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.BOX_CONTENT__V39*/ curfptr[38] = - melt_box_content((meltbox_ptr_t)(/*_.NBOXCALL__V33*/ curfptr[32]));; - MELT_LOCATION("warmelt-normal.melt:3239:/ compute"); - /*_.NREALCALL__V34*/ curfptr[33] = /*_.SETQ___V40*/ curfptr[39] = /*_.BOX_CONTENT__V39*/ curfptr[38];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3240:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3240:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3240:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall got nrealcall"; - MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg"); - argtab[3].bp_long = 3240; - /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V41*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3240:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3240:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3240:/ cppif.else"); - /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3243:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3243:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[43] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:3243:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V44*/ curfptr[43])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V44*/ curfptr[43]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[43])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V19*/ curfptr[18]); - ; - /*_.LAMBDA___V43*/ curfptr[41] = /*_.LAMBDA___V44*/ curfptr[43];;} - ; - MELT_LOCATION("warmelt-normal.melt:3241:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3241:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[41]; - /*_.MULTIPLE_EVERY__V45*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.SRESBIND__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3245:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V19*/ curfptr[18];MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODYBINDINGS__V48*/ curfptr[47]; - MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.appl"); - /*_.NBODY__V47*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SBODY__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:3245:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3248:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3248:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3248:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall nbody"; - MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg"); - argtab[3].bp_long = 3248; - /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V49*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3248:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3248:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3248:/ cppif.else"); - /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3249:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3249:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L11*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3249:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall nbodybindings"; - MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg"); - argtab[3].bp_long = 3249; - /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODYBINDINGS__V48*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3249:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3249:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3249:/ cppif.else"); - /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3250:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3250:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3250:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODYBINDINGS__V48*/ curfptr[47]; - MELT_LOCATION("warmelt-normal.melt:3250:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.WNBODYLET__V54*/ curfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3252:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3252:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V56*/ curfptr[55] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3254:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3254:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V58*/ curfptr[57] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:3254:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[0] = (melt_ptr_t)(/*_.SYCMAP__V56*/ curfptr[55]); - ; - /*_.LAMBDA___V57*/ curfptr[56] = /*_.LAMBDA___V58*/ curfptr[57];;} - ; - MELT_LOCATION("warmelt-normal.melt:3253:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3253:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V57*/ curfptr[56]; - /*_.MULTIPLE_EVERY__V59*/ curfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.SRESBIND__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.LET___V55*/ curfptr[54] = /*_.MULTIPLE_EVERY__V59*/ curfptr[58];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3252:/ clear"); - /*clear*/ /*_.SYCMAP__V56*/ curfptr[55] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3252:/ clear"); - /*clear*/ /*_.LAMBDA___V57*/ curfptr[56] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3252:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V59*/ curfptr[58] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3257:/ block"); - /*block*/{ - /*_.LASTNBODY__V61*/ curfptr[56] = - (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (-1)));; - MELT_LOCATION("warmelt-normal.melt:3259:/ cond"); - /*cond*/ if (/*_.LASTNBODY__V61*/ curfptr[56]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3259:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3259:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3259:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3259:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V19*/ curfptr[18]; - /*_.GET_CTYPE__V63*/ curfptr[62] = meltgc_send((melt_ptr_t)(/*_.LASTNBODY__V61*/ curfptr[56]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[18])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.LASTNTYPE__V62*/ curfptr[58] = /*_.GET_CTYPE__V63*/ curfptr[62];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3259:/ clear"); - /*clear*/ /*_.GET_CTYPE__V63*/ curfptr[62] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3259:/ cond.else"); - - /*_.LASTNTYPE__V62*/ curfptr[58] = (/*!CTYPE_VOID*/ curfrout->tabval[19]);; - } - ; - MELT_LOCATION("warmelt-normal.melt:3260:/ apply"); - /*apply*/{ - /*_.CSYM__V64*/ curfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[20])), (melt_ptr_t)((/*!konst_21_MULTI_*/ curfrout->tabval[21])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3261:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3261:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V66*/ curfptr[65] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3261:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (0), (/*_.CSYM__V64*/ curfptr[62]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:3261:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3261:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (1), (/*_.LASTNTYPE__V62*/ curfptr[58]), "LETBIND_TYPE"); - ; - /*_.CBIND__V65*/ curfptr[64] = /*_.INST__V66*/ curfptr[65];;} - ; - MELT_LOCATION("warmelt-normal.melt:3267:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3267:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V68*/ curfptr[67] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3267:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3267:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), (/*_.LASTNTYPE__V62*/ curfptr[58]), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:3267:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (1), (/*_.CSYM__V64*/ curfptr[62]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:3267:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (3), (/*_.CBIND__V65*/ curfptr[64]), "NOCC_BIND"); - ; - /*_.CLOCC__V67*/ curfptr[66] = /*_.INST__V68*/ curfptr[67];;} - ; - /*_#IS_A__L12*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[23])));; - MELT_LOCATION("warmelt-normal.melt:3275:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3275:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3275:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3276:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3276:/ block"); - /*block*/{ - /*_#IS_A__L13*/ curfnum[12] = - melt_is_instance_of((melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[24])));; - MELT_LOCATION("warmelt-normal.melt:3276:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3276:/ cond.then"); - /*_.IFELSE___V71*/ curfptr[70] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3276:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3276:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3276:/ locexp"); - melt_assert_failed(( "normexp_multicall check nrealcall apply"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3276)?(3276):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V71*/ curfptr[70] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V70*/ curfptr[69] = /*_.IFELSE___V71*/ curfptr[70];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3276:/ clear"); - /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3276:/ clear"); - /*clear*/ /*_.IFELSE___V71*/ curfptr[70] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3276:/ cppif.else"); - /*_.IFCPP___V70*/ curfptr[69] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3277:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3279:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 3, "NAPP_FUN");/*_.NAPP_FUN__V73*/ curfptr[72] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3280:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 2, "NEXPR_ARGS");/*_.NEXPR_ARGS__V74*/ curfptr[73] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3277:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3277:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTIAPPLY*/ curfrout->tabval[25])), (6), "CLASS_NREP_MULTIAPPLY");/*_.INST__V76*/ curfptr[75] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3277:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3277:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (3), (/*_.NAPP_FUN__V73*/ curfptr[72]), "NAPP_FUN"); - ; - MELT_LOCATION("warmelt-normal.melt:3277:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (2), (/*_.NEXPR_ARGS__V74*/ curfptr[73]), "NEXPR_ARGS"); - ; - MELT_LOCATION("warmelt-normal.melt:3277:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.LASTNTYPE__V62*/ curfptr[58]), "NEXPR_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:3277:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NMULAPP_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (4), (/*_.SRESBIND__V16*/ curfptr[15]), "NMULAPP_BINDINGS"); - ; - MELT_LOCATION("warmelt-normal.melt:3277:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NMULAPP_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (5), (/*_.WNBODYLET__V54*/ curfptr[53]), "NMULAPP_BODY"); - ; - /*_.NRES__V75*/ curfptr[74] = /*_.INST__V76*/ curfptr[75];;} - ; - MELT_LOCATION("warmelt-normal.melt:3284:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3284:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CBIND__V65*/ curfptr[64]), (2), (/*_.NRES__V75*/ curfptr[74]), "LETBIND_EXPR"); - ; - MELT_LOCATION("warmelt-normal.melt:3284:/ touch"); - meltgc_touch(/*_.CBIND__V65*/ curfptr[64]); - ; - /*epilog*/} - ; - - { - MELT_LOCATION("warmelt-normal.melt:3285:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3286:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3286:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L14*/ curfnum[12] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3286:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall multiapply result clocc"; - MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12]; - MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg"); - argtab[3].bp_long = 3286; - /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V67*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V77*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3286:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3286:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3286:/ cppif.else"); - /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3287:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3287:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[12] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3287:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall multiapply result nincallbindings"; - MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12]; - MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg"); - argtab[3].bp_long = 3287; - /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V79*/ curfptr[77] = /*_.DEBUG_MSG_FUN__V80*/ curfptr[79];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3287:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3287:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3287:/ cppif.else"); - /*_.IFCPP___V79*/ curfptr[77] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3288:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V67*/ curfptr[66];; - MELT_LOCATION("warmelt-normal.melt:3288:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NINCALLBINDINGS__V35*/ curfptr[34]); - ; - MELT_LOCATION("warmelt-normal.melt:3288:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V72*/ curfptr[70] = /*_.RETURN___V81*/ curfptr[79];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3277:/ clear"); - /*clear*/ /*_.NAPP_FUN__V73*/ curfptr[72] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3277:/ clear"); - /*clear*/ /*_.NEXPR_ARGS__V74*/ curfptr[73] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3277:/ clear"); - /*clear*/ /*_.NRES__V75*/ curfptr[74] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3277:/ clear"); - /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3277:/ clear"); - /*clear*/ /*_.IFCPP___V79*/ curfptr[77] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3277:/ clear"); - /*clear*/ /*_.RETURN___V81*/ curfptr[79] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3275:/ block"); - /*block*/{ - /*_.PROGN___V82*/ curfptr[72] = /*_.LET___V72*/ curfptr[70];;} - ; - /*_.IFELSE___V69*/ curfptr[68] = /*_.PROGN___V82*/ curfptr[72];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3275:/ clear"); - /*clear*/ /*_.IFCPP___V70*/ curfptr[69] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3275:/ clear"); - /*clear*/ /*_.LET___V72*/ curfptr[70] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3275:/ clear"); - /*clear*/ /*_.PROGN___V82*/ curfptr[72] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3275:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3275:/ block"); - /*block*/{ - /*_#IS_A__L16*/ curfnum[12] = - melt_is_instance_of((melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SOURCE_MSEND*/ curfrout->tabval[26])));; - MELT_LOCATION("warmelt-normal.melt:3291:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ curfnum[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3291:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3291:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3292:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3292:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L17*/ curfnum[16] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3292:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall multicall nrealcall"; - MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[16]; - MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg"); - argtab[3].bp_long = 3292; - /*_.DEBUG_MSG_FUN__V85*/ curfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V84*/ curfptr[74] = /*_.DEBUG_MSG_FUN__V85*/ curfptr[76];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3292:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3292:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[76] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3292:/ cppif.else"); - /*_.IFCPP___V84*/ curfptr[74] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3294:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3294:/ block"); - /*block*/{ - /*_#IS_A__L18*/ curfnum[16] = - melt_is_instance_of((melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[27])));; - MELT_LOCATION("warmelt-normal.melt:3294:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ curfnum[16]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3294:/ cond.then"); - /*_.IFELSE___V87*/ curfptr[79] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3294:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3294:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3294:/ locexp"); - melt_assert_failed(( "normexp_multicall check nrealcall send"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3294)?(3294):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V87*/ curfptr[79] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V86*/ curfptr[77] = /*_.IFELSE___V87*/ curfptr[79];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3294:/ clear"); - /*clear*/ /*_#IS_A__L18*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3294:/ clear"); - /*clear*/ /*_.IFELSE___V87*/ curfptr[79] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3294:/ cppif.else"); - /*_.IFCPP___V86*/ curfptr[77] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3295:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3295:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[27])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3295:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3295:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 4, "NSEND_RECV");/*_.NRECV__V89*/ curfptr[70] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3295:/ cond.else"); - - /*_.NRECV__V89*/ curfptr[70] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3299:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 3, "NSEND_SEL");/*_.NSEND_SEL__V90*/ curfptr[72] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3301:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 2, "NEXPR_ARGS");/*_.NEXPR_ARGS__V91*/ curfptr[76] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3296:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3296:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTIMSEND*/ curfrout->tabval[28])), (7), "CLASS_NREP_MULTIMSEND");/*_.INST__V93*/ curfptr[92] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3296:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3296:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (1), (/*_.LASTNTYPE__V62*/ curfptr[58]), "NEXPR_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:3296:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSEND_SEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (3), (/*_.NSEND_SEL__V90*/ curfptr[72]), "NSEND_SEL"); - ; - MELT_LOCATION("warmelt-normal.melt:3296:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSEND_RECV", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (4), (/*_.NRECV__V89*/ curfptr[70]), "NSEND_RECV"); - ; - MELT_LOCATION("warmelt-normal.melt:3296:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (2), (/*_.NEXPR_ARGS__V91*/ curfptr[76]), "NEXPR_ARGS"); - ; - MELT_LOCATION("warmelt-normal.melt:3296:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NMULSEND_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (5), (/*_.SRESBIND__V16*/ curfptr[15]), "NMULSEND_BINDINGS"); - ; - MELT_LOCATION("warmelt-normal.melt:3296:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NMULSEND_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (6), (/*_.WNBODYLET__V54*/ curfptr[53]), "NMULSEND_BODY"); - ; - /*_.NRES__V92*/ curfptr[79] = /*_.INST__V93*/ curfptr[92];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3305:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3305:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L19*/ curfnum[16] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3305:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall nrecv from multicall"; - MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[16]; - MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg"); - argtab[3].bp_long = 3305; - /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NRECV__V89*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V94*/ curfptr[93] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3305:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3305:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3305:/ cppif.else"); - /*_.IFCPP___V94*/ curfptr[93] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3306:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3306:/ block"); - /*block*/{ - /*_#IS_OBJECT__L20*/ curfnum[16] = - (melt_magic_discr((melt_ptr_t)(/*_.NRECV__V89*/ curfptr[70])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-normal.melt:3306:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L20*/ curfnum[16]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3306:/ cond.then"); - /*_.IFELSE___V97*/ curfptr[96] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3306:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3306:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3306:/ locexp"); - melt_assert_failed(( "check nrecv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3306)?(3306):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V97*/ curfptr[96] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V96*/ curfptr[94] = /*_.IFELSE___V97*/ curfptr[96];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3306:/ clear"); - /*clear*/ /*_#IS_OBJECT__L20*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3306:/ clear"); - /*clear*/ /*_.IFELSE___V97*/ curfptr[96] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3306:/ cppif.else"); - /*_.IFCPP___V96*/ curfptr[94] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3307:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3307:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CBIND__V65*/ curfptr[64]), (2), (/*_.NRES__V92*/ curfptr[79]), "LETBIND_EXPR"); - ; - MELT_LOCATION("warmelt-normal.melt:3307:/ touch"); - meltgc_touch(/*_.CBIND__V65*/ curfptr[64]); - ; - /*epilog*/} - ; - - { - MELT_LOCATION("warmelt-normal.melt:3308:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3309:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3309:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L21*/ curfnum[16] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3309:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall multisend result clocc"; - MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[16]; - MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg"); - argtab[3].bp_long = 3309; - /*_.DEBUG_MSG_FUN__V99*/ curfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V67*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V98*/ curfptr[96] = /*_.DEBUG_MSG_FUN__V99*/ curfptr[98];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3309:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3309:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V99*/ curfptr[98] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3309:/ cppif.else"); - /*_.IFCPP___V98*/ curfptr[96] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3310:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3310:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L22*/ curfnum[16] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3310:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg"); - argtab[0].bp_cstring = "normexp_multicall multisend result nincallbindings"; - MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[16]; - MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg"); - argtab[3].bp_long = 3310; - /*_.DEBUG_MSG_FUN__V101*/ curfptr[100] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V100*/ curfptr[98] = /*_.DEBUG_MSG_FUN__V101*/ curfptr[100];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3310:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3310:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V101*/ curfptr[100] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3310:/ cppif.else"); - /*_.IFCPP___V100*/ curfptr[98] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3311:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V67*/ curfptr[66];; - MELT_LOCATION("warmelt-normal.melt:3311:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NINCALLBINDINGS__V35*/ curfptr[34]); - ; - MELT_LOCATION("warmelt-normal.melt:3311:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V88*/ curfptr[69] = /*_.RETURN___V102*/ curfptr[100];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3295:/ clear"); - /*clear*/ /*_.NRECV__V89*/ curfptr[70] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3295:/ clear"); - /*clear*/ /*_.NSEND_SEL__V90*/ curfptr[72] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3295:/ clear"); - /*clear*/ /*_.NEXPR_ARGS__V91*/ curfptr[76] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3295:/ clear"); - /*clear*/ /*_.NRES__V92*/ curfptr[79] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3295:/ clear"); - /*clear*/ /*_.IFCPP___V94*/ curfptr[93] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3295:/ clear"); - /*clear*/ /*_.IFCPP___V96*/ curfptr[94] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3295:/ clear"); - /*clear*/ /*_.IFCPP___V98*/ curfptr[96] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3295:/ clear"); - /*clear*/ /*_.IFCPP___V100*/ curfptr[98] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3295:/ clear"); - /*clear*/ /*_.RETURN___V102*/ curfptr[100] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3291:/ block"); - /*block*/{ - /*_.PROGN___V103*/ curfptr[70] = /*_.LET___V88*/ curfptr[69];;} - ; - /*_.IFELSE___V83*/ curfptr[73] = /*_.PROGN___V103*/ curfptr[70];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3291:/ clear"); - /*clear*/ /*_.IFCPP___V84*/ curfptr[74] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3291:/ clear"); - /*clear*/ /*_.IFCPP___V86*/ curfptr[77] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3291:/ clear"); - /*clear*/ /*_.LET___V88*/ curfptr[69] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3291:/ clear"); - /*clear*/ /*_.PROGN___V103*/ curfptr[70] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3291:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3291:/ block"); - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3315:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "multi-called expression neither apply nor send"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-normal.melt:3316:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normal.melt:3316:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:3314:/ block"); - /*block*/{ - /*_.PROGN___V105*/ curfptr[76] = /*_.RETURN___V104*/ curfptr[72];;} - ; - /*_.IFELSE___V83*/ curfptr[73] = /*_.PROGN___V105*/ curfptr[76];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3291:/ clear"); - /*clear*/ /*_.RETURN___V104*/ curfptr[72] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3291:/ clear"); - /*clear*/ /*_.PROGN___V105*/ curfptr[76] = 0 ;} - ; - } - ; - /*_.IFELSE___V69*/ curfptr[68] = /*_.IFELSE___V83*/ curfptr[73];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3275:/ clear"); - /*clear*/ /*_#IS_A__L16*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3275:/ clear"); - /*clear*/ /*_.IFELSE___V83*/ curfptr[73] = 0 ;} - ; - } - ; - /*_.LET___V60*/ curfptr[55] = /*_.IFELSE___V69*/ curfptr[68];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3257:/ clear"); - /*clear*/ /*_.LASTNBODY__V61*/ curfptr[56] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3257:/ clear"); - /*clear*/ /*_.LASTNTYPE__V62*/ curfptr[58] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3257:/ clear"); - /*clear*/ /*_.CSYM__V64*/ curfptr[62] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3257:/ clear"); - /*clear*/ /*_.CBIND__V65*/ curfptr[64] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3257:/ clear"); - /*clear*/ /*_.CLOCC__V67*/ curfptr[66] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3257:/ clear"); - /*clear*/ /*_#IS_A__L12*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3257:/ clear"); - /*clear*/ /*_.IFELSE___V69*/ curfptr[68] = 0 ;} - ; - /*_.LET___V53*/ curfptr[51] = /*_.LET___V60*/ curfptr[55];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3250:/ clear"); - /*clear*/ /*_.WNBODYLET__V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3250:/ clear"); - /*clear*/ /*_.LET___V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3250:/ clear"); - /*clear*/ /*_.LET___V60*/ curfptr[55] = 0 ;} - ; - /*_.MULTI___V46*/ curfptr[45] = /*_.LET___V53*/ curfptr[51];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3245:/ clear"); - /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3245:/ clear"); - /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3245:/ clear"); - /*clear*/ /*_.LET___V53*/ curfptr[51] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3245:/ clear"); - /*clear*/ /*_.NBODYBINDINGS__V48*/ curfptr[47] = 0 ;} - ; - /*_.LET___V31*/ curfptr[29] = /*_.MULTI___V46*/ curfptr[45];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.NCALLSYM__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.NBOXCALL__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.NREALCALL__V34*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.NINCALLBINDINGS__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.LIST_ITERATE_TEST__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.BOX_CONTENT__V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.LAMBDA___V43*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V45*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3225:/ clear"); - /*clear*/ /*_.MULTI___V46*/ curfptr[45] = 0 ;} - ; - /*_.MULTI___V22*/ curfptr[20] = /*_.LET___V31*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3216:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3216:/ clear"); - /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3216:/ clear"); - /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3216:/ clear"); - /*clear*/ /*_.LET___V31*/ curfptr[29] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3216:/ clear"); - /*clear*/ /*_.NCALLBINDINGS__V24*/ curfptr[23] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V22*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3209:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3209:/ clear"); - /*clear*/ /*_.SRESBIND__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3209:/ clear"); - /*clear*/ /*_.SCALL__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3209:/ clear"); - /*clear*/ /*_.SBODY__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3209:/ clear"); - /*clear*/ /*_.NEWENV__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3209:/ clear"); - /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3209:/ clear"); - /*clear*/ /*_.MULTI___V22*/ curfptr[20] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3204:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3204:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3204:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3204:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3204:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3204:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3204:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_MULTICALL", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_89_warmelt_normal_NORMEXP_MULTICALL*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_90_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_90_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 9 - void* varptr[9]; -#define CURFRAM_NBVARNUM 2 - long varnum[2]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<9; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 9; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3232:/ getarg"); - /*_.CBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3232:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3233:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3233:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3233:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3233:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3233:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3233:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3233:/ locexp"); - melt_assert_failed(( "normexp_multicall check cbnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3233)?(3233):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3233:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3233:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3233:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3234:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V5*/ curfptr[3] = slot; }; - ; - /*_#__L2*/ curfnum[0] = - (((/*~NCALLSYM*/ curfclos->tabval[0])) == (/*_.BINDER__V5*/ curfptr[3]));; - MELT_LOCATION("warmelt-normal.melt:3234:/ cond"); - /*cond*/ if (/*_#__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3234:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3234:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3235:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3235:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NREALCALLEX__V8*/ curfptr[7] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3236:/ locexp"); - meltgc_box_put((melt_ptr_t)((/*~NBOXCALL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.NREALCALLEX__V8*/ curfptr[7]));} - ; - /*_.LET___V7*/ curfptr[6] = (/*nil*/NULL);; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3235:/ clear"); - /*clear*/ /*_.NREALCALLEX__V8*/ curfptr[7] = 0 ;} - ; - /*_.IFELSE___V6*/ curfptr[5] = /*_.LET___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3234:/ clear"); - /*clear*/ /*_.LET___V7*/ curfptr[6] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3234:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3234:/ block"); - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3238:/ locexp"); - meltgc_append_list((melt_ptr_t)((/*~NINCALLBINDINGS*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]));} - ; - MELT_LOCATION("warmelt-normal.melt:3238:/ block"); - /*block*/{ - /*_.PROGN___V9*/ curfptr[7] = /*_.CBND__V2*/ curfptr[1];;} - ; - /*_.IFELSE___V6*/ curfptr[5] = /*_.PROGN___V9*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3234:/ clear"); - /*clear*/ /*_.PROGN___V9*/ curfptr[7] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:3232:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V6*/ curfptr[5];; - MELT_LOCATION("warmelt-normal.melt:3232:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3232:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3232:/ clear"); - /*clear*/ /*_.BINDER__V5*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3232:/ clear"); - /*clear*/ /*_#__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3232:/ clear"); - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_90_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_91_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_91_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 3 - void* varptr[3]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<3; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 3; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3243:/ getarg"); - /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3243:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3243:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:3244:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3244:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BND__V2*/ curfptr[1]; - /*_.PUT_ENV__V3*/ curfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3243:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - MELT_LOCATION("warmelt-normal.melt:3243:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3243:/ clear"); - /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_91_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_92_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_92_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 3 - void* varptr[3]; -/*no varnum*/ -#define CURFRAM_NBVARNUM /*none*/0 -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<3; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 3; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3254:/ getarg"); - /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3254:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:3255:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V3*/ curfptr[2] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3255:/ locexp"); - meltgc_remove_mapobjects( (meltmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[0])), - (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3254:/ clear"); - /*clear*/ /*_.BINDER__V3*/ curfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_92_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_93_warmelt_normal_NORMEXP_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_93_warmelt_normal_NORMEXP_TUPLE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 25 - void* varptr[25]; -#define CURFRAM_NBVARNUM 6 - long varnum[6]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<25; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 25; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_TUPLE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3325:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3325:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3325:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3325:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3325:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3326:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3326:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3326:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3326:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3326:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3326:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3326:/ locexp"); - melt_assert_failed(( "check tuple recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3326)?(3326):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3326:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3326:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3326:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3327:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3327:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3327:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3327:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3327:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3327:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3327:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3327)?(3327):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3327:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3327:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3327:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3328:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3328:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3328:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3328:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3328:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3328:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3328:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3328)?(3328):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3328:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3328:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3328:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3329:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3329:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3329:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg"); - argtab[0].bp_cstring = "normexp_tuple recv"; - MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg"); - argtab[3].bp_long = 3329; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3329:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3329:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3329:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3330:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3330:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3331:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3333:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V19*/ curfptr[18]; - MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.appl"); - /*_.NARGS__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SARGS__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:3333:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3336:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3336:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3336:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg"); - argtab[0].bp_cstring = "normexp_tuple nargs"; - MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg"); - argtab[3].bp_long = 3336; - /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NARGS__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3336:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3336:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3336:/ cppif.else"); - /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3337:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3337:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3337:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg"); - argtab[0].bp_cstring = "normexp_tuple nbindings"; - MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg"); - argtab[3].bp_long = 3337; - /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDINGS__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3337:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3337:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3337:/ cppif.else"); - /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3341:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "unimplemented TUPLE normalization"), (melt_ptr_t)0);} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3342:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3342:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3342:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3342:/ cond.then"); - /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3342:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3342:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3342:/ locexp"); - melt_assert_failed(( "@$@unimplemented TUPLE"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3342)?(3342):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3342:/ clear"); - /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3342:/ cppif.else"); - /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.MULTI___V17*/ curfptr[16] = /*_.IFCPP___V24*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3333:/ clear"); - /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3333:/ clear"); - /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3333:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3333:/ clear"); - /*clear*/ /*_.NBINDINGS__V19*/ curfptr[18] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V17*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3330:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3330:/ clear"); - /*clear*/ /*_.SARGS__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3330:/ clear"); - /*clear*/ /*_.MULTI___V17*/ curfptr[16] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3325:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3325:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3325:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3325:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3325:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3325:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3325:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_TUPLE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_93_warmelt_normal_NORMEXP_TUPLE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_94_warmelt_normal_NORMEXP_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_94_warmelt_normal_NORMEXP_LIST_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 18 - void* varptr[18]; -#define CURFRAM_NBVARNUM 4 - long varnum[4]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<18; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 18; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_LIST", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3349:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3349:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3349:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3349:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3349:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3350:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3350:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LIST*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3350:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3350:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3350:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3350:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3350:/ locexp"); - melt_assert_failed(( "check list recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3350)?(3350):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3350:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3350:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3350:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3351:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3351:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3351:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3351:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3351:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3351:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3351:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3351)?(3351):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3351:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3351:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3351:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3352:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3352:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3352:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3352:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3352:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3352:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3352:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3352)?(3352):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3352:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3352:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3352:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3353:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3353:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3353:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg"); - argtab[0].bp_cstring = "normexp_list recv"; - MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg"); - argtab[3].bp_long = 3353; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3353:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3353:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3353:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3354:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3354:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3355:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V16*/ curfptr[15] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3358:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "unimplemented LIST normalization"), (melt_ptr_t)0);} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3359:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3359:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3359:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3359:/ cond.then"); - /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3359:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3359:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3359:/ locexp"); - melt_assert_failed(( "@$@unimplemented LIST"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3359)?(3359):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3359:/ clear"); - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3359:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V14*/ curfptr[12] = /*_.IFCPP___V17*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3354:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3354:/ clear"); - /*clear*/ /*_.SARGS__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3354:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3349:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3349:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3349:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3349:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3349:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3349:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3349:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_LIST", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_94_warmelt_normal_NORMEXP_LIST*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 14 - void* varptr[14]; -#define CURFRAM_NBVARNUM 2 - long varnum[2]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<14; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 14; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("BADMETH_PREPARE_CONSTRUCTOR_BINDING", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3372:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3372:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3372:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3372:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3372:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3373:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3373:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3373:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg"); - argtab[0].bp_cstring = "bad_prepare_constructor_binding recv"; - MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg"); - argtab[3].bp_long = 3373; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3373:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3373:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3373:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3374:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3374:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3374:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg"); - argtab[0].bp_cstring = "bad_prepare_constructor_binding symb"; - MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg"); - argtab[3].bp_long = 3374; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3374:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3374:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3374:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3375:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3375:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3375:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[8] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3375:/ cond.else"); - - /*_.NAMED_NAME__V10*/ curfptr[8] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:3375:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4]), ( "invalid constructor binding"), (melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[8]));} - ; - /*_.DISCRIM__V11*/ curfptr[10] = - (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; - MELT_LOCATION("warmelt-normal.melt:3377:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3377:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3377:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[11] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3377:/ cond.else"); - - /*_.NAMED_NAME__V12*/ curfptr[11] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:3376:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4]), ( "reciever unprepared to constructor binding"), (melt_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[11]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3378:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3378:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3378:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3378:/ cond.then"); - /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3378:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3378:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3378:/ locexp"); - melt_assert_failed(( "@$@badmeth_prepare_constructor_binding"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3378)?(3378):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3378:/ clear"); - /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3378:/ cppif.else"); - /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3372:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V13*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3372:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3372:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3372:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3372:/ clear"); - /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3372:/ clear"); - /*clear*/ /*_.DISCRIM__V11*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3372:/ clear"); - /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3372:/ clear"); - /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("BADMETH_PREPARE_CONSTRUCTOR_BINDING", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 18 - void* varptr[18]; -#define CURFRAM_NBVARNUM 3 - long varnum[3]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<18; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 18; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("BADMETH_NORMAL_LETREC_CONSTRUCTIVE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3391:/ getarg"); - /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3391:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3391:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3391:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:3391:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); - - - /*getarg#5*/ - MELT_LOCATION("warmelt-normal.melt:3391:/ getarg"); - if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3391:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3392:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3392:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3392:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg"); - argtab[0].bp_cstring = "badmeth_normal_letrec_constructive cexpr"; - MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg"); - argtab[3].bp_long = 3392; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3392:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3392:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3392:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3393:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3393:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3393:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg"); - argtab[0].bp_cstring = "badmeth_normal_letrec_constructive symb"; - MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg"); - argtab[3].bp_long = 3393; - /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3393:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3393:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3393:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3394:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3394:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3394:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg"); - argtab[0].bp_cstring = "badmeth_normal_letrec_constructive cbind"; - MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg"); - argtab[3].bp_long = 3394; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3394:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3394:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3394:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3395:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3395:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3395:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[12] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3395:/ cond.else"); - - /*_.NAMED_NAME__V14*/ curfptr[12] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:3395:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6]), ( "invalid letrec constructive symbol"), (melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[12]));} - ; - /*_.DISCRIM__V15*/ curfptr[14] = - (melt_discr((melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1])));; - MELT_LOCATION("warmelt-normal.melt:3397:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3397:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3397:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3397:/ cond.else"); - - /*_.NAMED_NAME__V16*/ curfptr[15] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:3396:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6]), ( "reciever unprepared to normal_letrec_constructive"), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3398:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3398:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3398:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3398:/ cond.then"); - /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3398:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3398:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3398:/ locexp"); - melt_assert_failed(( "@$@badmeth_normal_letrec_constructive"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3398)?(3398):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3398:/ clear"); - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3398:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3391:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V17*/ curfptr[16];; - MELT_LOCATION("warmelt-normal.melt:3391:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3391:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3391:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3391:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3391:/ clear"); - /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3391:/ clear"); - /*clear*/ /*_.DISCRIM__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3391:/ clear"); - /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3391:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("BADMETH_NORMAL_LETREC_CONSTRUCTIVE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_97_warmelt_normal_PREPCONS_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_97_warmelt_normal_PREPCONS_LAMBDA_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 18 - void* varptr[18]; -#define CURFRAM_NBVARNUM 4 - long varnum[4]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<18; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 18; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("PREPCONS_LAMBDA", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3403:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3403:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3403:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3403:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3403:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3404:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3404:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3404:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_lambda recv"; - MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg"); - argtab[3].bp_long = 3404; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3404:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3404:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3404:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3405:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3405:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3405:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_lambda symb"; - MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg"); - argtab[3].bp_long = 3405; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3405:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3405:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3405:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3406:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3406:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3406:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3406:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3406:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3406:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3406:/ locexp"); - melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3406)?(3406):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3406:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3406:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3406:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3407:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3410:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3410:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3410:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:3410:/ apply.arg"); - argtab[2].bp_cstring = "discr_closure"; - /*_.NORMAL_PREDEF__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_CLOSURE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3407:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3407:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[2])), (7), "CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING");/*_.INST__V15*/ curfptr[14] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3407:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:3407:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), (/*_.SLOC__V5*/ curfptr[4]), "NCONSB_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3407:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (2), (/*_.NORMAL_PREDEF__V13*/ curfptr[12]), "NCONSB_DISCR"); - ; - /*_.CONSLAM__V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3413:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3413:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3413:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_lambda gives conslam"; - MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg"); - argtab[3].bp_long = 3413; - /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSLAM__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3413:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3413:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3413:/ cppif.else"); - /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3414:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSLAM__V14*/ curfptr[13];; - MELT_LOCATION("warmelt-normal.melt:3414:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V18*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3407:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3407:/ clear"); - /*clear*/ /*_.CONSLAM__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3407:/ clear"); - /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3407:/ clear"); - /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3403:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - MELT_LOCATION("warmelt-normal.melt:3403:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3403:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3403:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3403:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3403:/ clear"); - /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("PREPCONS_LAMBDA", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_97_warmelt_normal_PREPCONS_LAMBDA*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_98_warmelt_normal_NORMLETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_98_warmelt_normal_NORMLETREC_LAMBDA_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 45 - void* varptr[45]; -#define CURFRAM_NBVARNUM 15 - long varnum[15]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<45; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 45; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMLETREC_LAMBDA", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3421:/ getarg"); - /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3421:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3421:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3421:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:3421:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); - - - /*getarg#5*/ - MELT_LOCATION("warmelt-normal.melt:3421:/ getarg"); - if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3421:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3422:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3422:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3422:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda cexpr"; - MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg"); - argtab[3].bp_long = 3422; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3422:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3422:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3422:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3423:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3423:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3423:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda symb"; - MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg"); - argtab[3].bp_long = 3423; - /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3423:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3423:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3423:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3424:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3424:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3424:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda cbind"; - MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg"); - argtab[3].bp_long = 3424; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3424:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3424:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3424:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3425:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3425:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3425:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda env"; - MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg"); - argtab[3].bp_long = 3425; - /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3425:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3425:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3425:/ cppif.else"); - /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3426:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3426:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3426:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3426:/ cond.then"); - /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3426:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3426:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3426:/ locexp"); - melt_assert_failed(( "check cbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3426)?(3426):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3426:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3426:/ clear"); - /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3426:/ cppif.else"); - /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3427:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3427:/ apply"); - /*apply*/{ - /*_.NEWENV__V18*/ curfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3429:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3429:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3429:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda newenv"; - MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg"); - argtab[3].bp_long = 3429; - /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3429:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3429:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3429:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3430:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3430:/ block"); - /*block*/{ - /*_#IS_A__L7*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:3430:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3430:/ cond.then"); - /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3430:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3430:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3430:/ locexp"); - melt_assert_failed(( "check newenv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3430)?(3430):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3430:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3430:/ clear"); - /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3430:/ cppif.else"); - /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3431:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply"); - /*multiapply 5args, 8x.res*/ { - union meltparam_un argtab[4]; - - union meltparam_un restab[8]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[16];MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[16];MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.CSYM__V24*/ curfptr[23]; - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres"); - restab[1].bp_aptr = (melt_ptr_t*) &/*_.CLOCC__V25*/ curfptr[24]; - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres"); - restab[2].bp_aptr = (melt_ptr_t*) &/*_.CONSTROUT__V26*/ curfptr[25]; - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres"); - restab[3].bp_aptr = (melt_ptr_t*) &/*_.CLOVTUP__V27*/ curfptr[26]; - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres"); - restab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V28*/ curfptr[27]; - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres"); - restab[5].bp_aptr = (melt_ptr_t*) &/*_.OLDPROC__V29*/ curfptr[28]; - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres"); - restab[6].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V30*/ curfptr[29]; - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres"); - restab[7].bp_longptr = & /*_#INSIDEFLAG__L8*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.appl"); - /*_.NPROC__V23*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_LAMBDA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:3431:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3435:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3435:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3435:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda after normalize_lambda csym"; - MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg"); - argtab[3].bp_long = 3435; - /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CSYM__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3435:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3435:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3435:/ cppif.else"); - /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3436:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3436:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3436:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda after normalize_lambda clocc"; - MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg"); - argtab[3].bp_long = 3436; - /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOCC__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3436:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3436:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3436:/ cppif.else"); - /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3437:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3437:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L11*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3437:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda after normalize_lambda constrout"; - MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg"); - argtab[3].bp_long = 3437; - /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTROUT__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V35*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3437:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3437:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3437:/ cppif.else"); - /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3438:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3438:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L12*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3438:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda after normalize_lambda clovtup"; - MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg"); - argtab[3].bp_long = 3438; - /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOVTUP__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3438:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3438:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3438:/ cppif.else"); - /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3439:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3439:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L13*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3439:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda after normalize_lambda oldproc"; - MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg"); - argtab[3].bp_long = 3439; - /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OLDPROC__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V39*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3439:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3439:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3439:/ cppif.else"); - /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3440:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3440:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L14*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3440:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda after normalize_lambda ndatarout"; - MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg"); - argtab[3].bp_long = 3440; - /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NDATAROUT__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3440:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3440:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3440:/ cppif.else"); - /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3441:/ cond"); - /*cond*/ if (/*_#INSIDEFLAG__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3441:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3441:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3442:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.OLDPROC__V29*/ curfptr[28]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V43*/ curfptr[41] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3442:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V43*/ curfptr[41]), (melt_ptr_t)(/*_.NDATAROUT__V30*/ curfptr[29]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3441:/ clear"); - /*clear*/ /*_.NRPRO_CONST__V43*/ curfptr[41] = 0 ;} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-normal.melt:3443:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[1])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3443:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3443:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3443:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLAMBDAB_NCLOSED", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CBIND__V4*/ curfptr[3]), (4), (/*_.CLOVTUP__V27*/ curfptr[26]), "NLAMBDAB_NCLOSED"); - ; - MELT_LOCATION("warmelt-normal.melt:3443:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLAMBDAB_CONSTROUT", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CBIND__V4*/ curfptr[3]), (5), (/*_.CONSTROUT__V26*/ curfptr[25]), "NLAMBDAB_CONSTROUT"); - ; - MELT_LOCATION("warmelt-normal.melt:3443:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLAMBDAB_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CBIND__V4*/ curfptr[3]), (6), (/*_.NDATAROUT__V30*/ curfptr[29]), "NLAMBDAB_DATAROUT"); - ; - MELT_LOCATION("warmelt-normal.melt:3443:/ touch"); - meltgc_touch(/*_.CBIND__V4*/ curfptr[3]); - ; - /*epilog*/} - ; - } /*noelse*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3447:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3447:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3447:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_lambda updated cbind"; - MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg"); - argtab[3].bp_long = 3447; - /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V44*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3447:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3447:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3447:/ cppif.else"); - /*_.IFCPP___V44*/ curfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3449:/ locexp"); - -#if ENABLE_CHECKING - if (flag_melt_debug) - melt_dbgshortbacktrace(( "normletrec_lambda ended"), (15)); -#endif -;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.IFCPP___V44*/ curfptr[41] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.CSYM__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.CLOCC__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.CONSTROUT__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.CLOVTUP__V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.SLOC__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.OLDPROC__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_.NDATAROUT__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3431:/ clear"); - /*clear*/ /*_#INSIDEFLAG__L8*/ curfnum[0] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3427:/ clear"); - /*clear*/ /*_.NEWENV__V18*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3427:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3427:/ clear"); - /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3421:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3421:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3421:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3421:/ clear"); - /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3421:/ clear"); - /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMLETREC_LAMBDA", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_98_warmelt_normal_NORMLETREC_LAMBDA*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_99_warmelt_normal_PREPCONS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_99_warmelt_normal_PREPCONS_TUPLE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 22 - void* varptr[22]; -#define CURFRAM_NBVARNUM 5 - long varnum[5]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<22; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 22; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("PREPCONS_TUPLE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3455:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3455:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3455:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3455:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3455:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3456:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3456:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3456:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_tuple recv"; - MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg"); - argtab[3].bp_long = 3456; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3456:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3456:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3456:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3457:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3457:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3457:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_tuple symb"; - MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg"); - argtab[3].bp_long = 3457; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3457:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3457:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3457:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3458:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3458:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3458:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3458:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3458:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3458:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3458:/ locexp"); - melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3458)?(3458):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3458:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3458:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3458:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3459:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3460:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[2])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3460:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3460:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3460:/ cond.else"); - - /*_.LOC__V13*/ curfptr[12] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3461:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_ARGUMENTED_OPERATOR*/ curfrout->tabval[3])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3461:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3461:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.TUPARG__V14*/ curfptr[13] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3461:/ cond.else"); - - /*_.TUPARG__V14*/ curfptr[13] = NULL;; - } - ; - /*_#NBTUPARG__L4*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.TUPARG__V14*/ curfptr[13])));; - /*_.NTUP__V15*/ curfptr[14] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBTUPARG__L4*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:3466:/ cond"); - /*cond*/ if (/*_.LOC__V13*/ curfptr[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3466:/ cond.then"); - /*_.OR___V16*/ curfptr[15] = /*_.LOC__V13*/ curfptr[12];; - } else {MELT_LOCATION("warmelt-normal.melt:3466:/ cond.else"); - - /*_.OR___V16*/ curfptr[15] = /*_.SLOC__V5*/ curfptr[4];; - } - ; - MELT_LOCATION("warmelt-normal.melt:3467:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3467:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3467:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:3467:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V17*/ curfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3464:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3464:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[5])), (5), "CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING");/*_.INST__V19*/ curfptr[18] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3464:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:3464:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.OR___V16*/ curfptr[15]), "NCONSB_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3464:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.NORMAL_PREDEF__V17*/ curfptr[16]), "NCONSB_DISCR"); - ; - MELT_LOCATION("warmelt-normal.melt:3464:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUPB_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (4), (/*_.NTUP__V15*/ curfptr[14]), "NTUPB_COMP"); - ; - /*_.CONSTUP__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3471:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3471:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[4] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3471:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_tuple gives constup"; - MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg"); - argtab[3].bp_long = 3471; - /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTUP__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3471:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3471:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3471:/ cppif.else"); - /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3472:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSTUP__V18*/ curfptr[17];; - MELT_LOCATION("warmelt-normal.melt:3472:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V22*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3459:/ clear"); - /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3459:/ clear"); - /*clear*/ /*_.TUPARG__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3459:/ clear"); - /*clear*/ /*_#NBTUPARG__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3459:/ clear"); - /*clear*/ /*_.NTUP__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3459:/ clear"); - /*clear*/ /*_.OR___V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3459:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3459:/ clear"); - /*clear*/ /*_.CONSTUP__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3459:/ clear"); - /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3459:/ clear"); - /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3455:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - MELT_LOCATION("warmelt-normal.melt:3455:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3455:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3455:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3455:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3455:/ clear"); - /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("PREPCONS_TUPLE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_99_warmelt_normal_PREPCONS_TUPLE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_100_warmelt_normal_NORMLETREC_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_100_warmelt_normal_NORMLETREC_TUPLE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 53 - void* varptr[53]; -#define CURFRAM_NBVARNUM 21 - long varnum[21]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<53; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 53; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMLETREC_TUPLE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3477:/ getarg"); - /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3477:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3477:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3477:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:3477:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); - - - /*getarg#5*/ - MELT_LOCATION("warmelt-normal.melt:3477:/ getarg"); - if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3477:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3478:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3478:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3478:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_tuple cexpr"; - MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg"); - argtab[3].bp_long = 3478; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3478:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3478:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3478:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3479:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3479:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3479:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_tuple symb"; - MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg"); - argtab[3].bp_long = 3479; - /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3479:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3479:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3479:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3480:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3480:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3480:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_tuple cbind"; - MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg"); - argtab[3].bp_long = 3480; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3480:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3480:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3480:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3481:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3481:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3481:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3481:/ cond.then"); - /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3481:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3481:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3481:/ locexp"); - melt_assert_failed(( "check cexpr"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3481)?(3481):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3481:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3481:/ clear"); - /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3481:/ cppif.else"); - /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3482:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3482:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3482:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3482:/ cond.then"); - /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3482:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3482:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3482:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3482)?(3482):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3482:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3482:/ clear"); - /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3482:/ cppif.else"); - /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3483:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3483:/ block"); - /*block*/{ - /*_#IS_A__L6*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:3483:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3483:/ cond.then"); - /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3483:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3483:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3483:/ locexp"); - melt_assert_failed(( "check cbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3483)?(3483):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3483:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3483:/ clear"); - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3483:/ cppif.else"); - /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3484:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3485:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[4])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3485:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3485:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ curfptr[18] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3485:/ cond.else"); - - /*_.LOCA_LOCATION__V20*/ curfptr[18] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3485:/ cond"); - /*cond*/ if (/*_.LOCA_LOCATION__V20*/ curfptr[18]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3485:/ cond.then"); - /*_.LOC__V21*/ curfptr[20] = /*_.LOCA_LOCATION__V20*/ curfptr[18];; - } else {MELT_LOCATION("warmelt-normal.melt:3485:/ cond.else"); - - /*_.LOC__V21*/ curfptr[20] = /*_.SLOC__V7*/ curfptr[6];; - } - ; - MELT_LOCATION("warmelt-normal.melt:3486:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V22*/ curfptr[21] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3487:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[3])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3487:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3487:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), 4, "NTUPB_COMP");/*_.BCOMP__V23*/ curfptr[22] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3487:/ cond.else"); - - /*_.BCOMP__V23*/ curfptr[22] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3488:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[5])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3488:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3488:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), 3, "NCONSB_NLETREC");/*_.NLETREC__V24*/ curfptr[23] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3488:/ cond.else"); - - /*_.NLETREC__V24*/ curfptr[23] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3489:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[6])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3489:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3489:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), 3, "NLETREC_BINDINGS");/*_.NRECBINDS__V25*/ curfptr[24] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3489:/ cond.else"); - - /*_.NRECBINDS__V25*/ curfptr[24] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3491:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3491:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3491:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_tuple sargs"; - MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg"); - argtab[3].bp_long = 3491; - /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SARGS__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3491:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3491:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3491:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3492:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3492:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3492:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_tuple bcomp"; - MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg"); - argtab[3].bp_long = 3492; - /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3492:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3492:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3492:/ cppif.else"); - /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3493:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3493:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3493:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_tuple nletrec"; - MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg"); - argtab[3].bp_long = 3493; - /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V30*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3493:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3493:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3493:/ cppif.else"); - /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3494:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3494:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3494:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_tuple nrecbinds"; - MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg"); - argtab[3].bp_long = 3494; - /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3494:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3494:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3494:/ cppif.else"); - /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3495:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3495:/ block"); - /*block*/{ - /*_#IS_A__L11*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[6])));; - MELT_LOCATION("warmelt-normal.melt:3495:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3495:/ cond.then"); - /*_.IFELSE___V35*/ curfptr[34] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3495:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3495:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3495:/ locexp"); - melt_assert_failed(( "check nletrec"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3495)?(3495):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V35*/ curfptr[34] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V34*/ curfptr[32] = /*_.IFELSE___V35*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3495:/ clear"); - /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3495:/ clear"); - /*clear*/ /*_.IFELSE___V35*/ curfptr[34] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3495:/ cppif.else"); - /*_.IFCPP___V34*/ curfptr[32] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3496:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3496:/ block"); - /*block*/{ - /*_#IS_LIST__L12*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:3496:/ cond"); - /*cond*/ if (/*_#IS_LIST__L12*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3496:/ cond.then"); - /*_.IFELSE___V37*/ curfptr[36] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3496:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3496:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3496:/ locexp"); - melt_assert_failed(( "check nrecbinds"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3496)?(3496):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V36*/ curfptr[34] = /*_.IFELSE___V37*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3496:/ clear"); - /*clear*/ /*_#IS_LIST__L12*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3496:/ clear"); - /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3496:/ cppif.else"); - /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3497:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V21*/ curfptr[20]; - MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V39*/ curfptr[38]; - MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.appl"); - /*_.NARGS__V38*/ curfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SARGS__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:3497:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3500:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3500:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L13*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3500:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg"); - argtab[0].bp_cstring = "normalize_tuple nargs"; - MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg"); - argtab[3].bp_long = 3500; - /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NARGS__V38*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3500:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3500:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3500:/ cppif.else"); - /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3501:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3501:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L14*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3501:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg"); - argtab[0].bp_cstring = "normalize_tuple nbinds"; - MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg"); - argtab[3].bp_long = 3501; - /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDS__V39*/ curfptr[38]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3501:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3501:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3501:/ cppif.else"); - /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3502:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3502:/ block"); - /*block*/{ - /*_#MULTIPLE_LENGTH__L15*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22])));; - /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = - (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V38*/ curfptr[36])));; - /*_#I__L17*/ curfnum[16] = - ((/*_#MULTIPLE_LENGTH__L15*/ curfnum[0]) == (/*_#MULTIPLE_LENGTH__L16*/ curfnum[15]));; - MELT_LOCATION("warmelt-normal.melt:3502:/ cond"); - /*cond*/ if (/*_#I__L17*/ curfnum[16]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3502:/ cond.then"); - /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3502:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3502:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3502:/ locexp"); - melt_assert_failed(( "check nargs & bcomp samelength"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3502)?(3502):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V44*/ curfptr[42] = /*_.IFELSE___V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3502:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3502:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3502:/ clear"); - /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3502:/ clear"); - /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3502:/ cppif.else"); - /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3503:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3503:/ block"); - /*block*/{ - /*_#IS_LIST_OR_NULL__L18*/ curfnum[0] = - ((/*_.NBINDS__V39*/ curfptr[38]) == NULL - || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDS__V39*/ curfptr[38])) == OBMAG_LIST));; - MELT_LOCATION("warmelt-normal.melt:3503:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L18*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3503:/ cond.then"); - /*_.IFELSE___V47*/ curfptr[46] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3503:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3503:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3503:/ locexp"); - melt_assert_failed(( "check nbinds"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3503)?(3503):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V46*/ curfptr[44] = /*_.IFELSE___V47*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3503:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L18*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3503:/ clear"); - /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3503:/ cppif.else"); - /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NARGS__V38*/ curfptr[36]); - for (/*_#NIX__L19*/ curfnum[15] = 0; - (/*_#NIX__L19*/ curfnum[15] >= 0) && (/*_#NIX__L19*/ curfnum[15] < cit1__EACHTUP_ln); - /*_#NIX__L19*/ curfnum[15]++) { - /*_.CURNARG__V48*/ curfptr[46] = melt_multiple_nth((melt_ptr_t)(/*_.NARGS__V38*/ curfptr[36]), /*_#NIX__L19*/ curfnum[15]); - - - - { - MELT_LOCATION("warmelt-normal.melt:3507:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22]), (/*_#NIX__L19*/ curfnum[15]), (melt_ptr_t)(/*_.CURNARG__V48*/ curfptr[46]));} - ; - if (/*_#NIX__L19*/ curfnum[15]<0) break; - } /* end cit1__EACHTUP */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:3504:/ clear"); - /*clear*/ /*_.CURNARG__V48*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3504:/ clear"); - /*clear*/ /*_#NIX__L19*/ curfnum[15] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3508:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3508:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L20*/ curfnum[16] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3508:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg"); - argtab[0].bp_cstring = "normalize_tuple updated bcomp"; - MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[16]; - MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg"); - argtab[3].bp_long = 3508; - /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V49*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3508:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3508:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3508:/ cppif.else"); - /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3509:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3509:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V39*/ curfptr[38]; - /*_.LIST_APPEND2LIST__V51*/ curfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3510:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3510:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L21*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3510:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg"); - argtab[0].bp_cstring = "normalize_tuple updated nrecbinds"; - MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg"); - argtab[3].bp_long = 3510; - /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3510:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3510:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3510:/ cppif.else"); - /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3511:/ locexp"); - -#if ENABLE_CHECKING - if (flag_melt_debug) - melt_dbgshortbacktrace(( "normletrec_tuple ended"), (15)); -#endif -;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3497:/ clear"); - /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3497:/ clear"); - /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3497:/ clear"); - /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3497:/ clear"); - /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3497:/ clear"); - /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3497:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V51*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3497:/ clear"); - /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3497:/ clear"); - /*clear*/ /*_.NBINDS__V39*/ curfptr[38] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V20*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.LOC__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.SARGS__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.BCOMP__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.NLETREC__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.NRECBINDS__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.IFCPP___V34*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3484:/ clear"); - /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3477:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3477:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3477:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3477:/ clear"); - /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3477:/ clear"); - /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3477:/ clear"); - /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMLETREC_TUPLE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_100_warmelt_normal_NORMLETREC_TUPLE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_101_warmelt_normal_PREPCONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_101_warmelt_normal_PREPCONS_LIST_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 34 - void* varptr[34]; -#define CURFRAM_NBVARNUM 8 - long varnum[8]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<34; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 34; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("PREPCONS_LIST", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3517:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3517:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3517:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3517:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3517:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3518:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3518:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3518:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_list recv"; - MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg"); - argtab[3].bp_long = 3518; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3518:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3518:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3518:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3519:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3519:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3519:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_list symb"; - MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg"); - argtab[3].bp_long = 3519; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3519:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3519:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3519:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3520:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3520:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LIST*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3520:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3520:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3520:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3520:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3520:/ locexp"); - melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3520)?(3520):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3520:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3520:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3520:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3521:/ block"); - /*block*/{ - /*_.RESLIST__V13*/ curfptr[12] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; - MELT_LOCATION("warmelt-normal.melt:3523:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[3])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3523:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3523:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V14*/ curfptr[13] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3523:/ cond.else"); - - /*_.LOC__V14*/ curfptr[13] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3524:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_ARGUMENTED_OPERATOR*/ curfrout->tabval[4])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3524:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3524:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.LISTARG__V15*/ curfptr[14] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3524:/ cond.else"); - - /*_.LISTARG__V15*/ curfptr[14] = NULL;; - } - ; - /*_#NBLISTARG__L4*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.LISTARG__V15*/ curfptr[14])));; - /*_.PAIRSB__V16*/ curfptr[15] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBLISTARG__L4*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:3529:/ cond"); - /*cond*/ if (/*_.LOC__V14*/ curfptr[13]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3529:/ cond.then"); - /*_.OR___V17*/ curfptr[16] = /*_.LOC__V14*/ curfptr[13];; - } else {MELT_LOCATION("warmelt-normal.melt:3529:/ cond.else"); - - /*_.OR___V17*/ curfptr[16] = /*_.SLOC__V5*/ curfptr[4];; - } - ; - MELT_LOCATION("warmelt-normal.melt:3530:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3530:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3530:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:3530:/ apply.arg"); - argtab[2].bp_cstring = "discr_list"; - /*_.NORMAL_PREDEF__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3527:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3527:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LIST_BINDING*/ curfrout->tabval[6])), (7), "CLASS_NORMAL_CONSTRUCTED_LIST_BINDING");/*_.INST__V20*/ curfptr[19] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:3527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.OR___V17*/ curfptr[16]), "NCONSB_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.NORMAL_PREDEF__V18*/ curfptr[17]), "NCONSB_DISCR"); - ; - MELT_LOCATION("warmelt-normal.melt:3527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLISTB_FIRST", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (4), ((/*nil*/NULL)), "NLISTB_FIRST"); - ; - MELT_LOCATION("warmelt-normal.melt:3527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLISTB_LAST", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (5), ((/*nil*/NULL)), "NLISTB_LAST"); - ; - MELT_LOCATION("warmelt-normal.melt:3527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLISTB_PAIRSB", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (6), (/*_.PAIRSB__V16*/ curfptr[15]), "NLISTB_PAIRSB"); - ; - /*_.CONSLIST__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;} - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.LISTARG__V15*/ curfptr[14]); - for (/*_#CURIX__L5*/ curfnum[4] = 0; - (/*_#CURIX__L5*/ curfnum[4] >= 0) && (/*_#CURIX__L5*/ curfnum[4] < cit1__EACHTUP_ln); - /*_#CURIX__L5*/ curfnum[4]++) { - /*_.CURARG__V21*/ curfptr[20] = melt_multiple_nth((melt_ptr_t)(/*_.LISTARG__V15*/ curfptr[14]), /*_#CURIX__L5*/ curfnum[4]); - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3539:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3539:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[5] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3539:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_list curarg"; - MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg"); - argtab[3].bp_long = 3539; - /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3539:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3539:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3539:/ cppif.else"); - /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3540:/ block"); - /*block*/{ - /*_#IS_A__L7*/ curfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[9])));; - MELT_LOCATION("warmelt-normal.melt:3540:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3540:/ cond.then"); - /*_.IFELSE___V24*/ curfptr[22] = /*_.CURARG__V21*/ curfptr[20];; - } else {MELT_LOCATION("warmelt-normal.melt:3540:/ cond.else"); - - /*_.IFELSE___V24*/ curfptr[22] = (/*!konst_10_PAIROFLIST*/ curfrout->tabval[10]);; - } - ; - MELT_LOCATION("warmelt-normal.melt:3540:/ apply"); - /*apply*/{ - /*_.PAIRSYMB__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.IFELSE___V24*/ curfptr[22]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3543:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[3])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3543:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3543:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V26*/ curfptr[25] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else"); - - /*_.LOCA_LOCATION__V26*/ curfptr[25] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3543:/ cond"); - /*cond*/ if (/*_.LOCA_LOCATION__V26*/ curfptr[25]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3543:/ cond.then"); - /*_.OR___V27*/ curfptr[26] = /*_.LOCA_LOCATION__V26*/ curfptr[25];; - } else {MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3543:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3543:/ cond"); - /*cond*/ if (/*_.LOC__V14*/ curfptr[13]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3543:/ cond.then"); - /*_.OR___V28*/ curfptr[27] = /*_.LOC__V14*/ curfptr[13];; - } else {MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else"); - - /*_.OR___V28*/ curfptr[27] = /*_.SLOC__V5*/ curfptr[4];; - } - ; - /*_.OR___V27*/ curfptr[26] = /*_.OR___V28*/ curfptr[27];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3543:/ clear"); - /*clear*/ /*_.OR___V28*/ curfptr[27] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:3544:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3544:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3544:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:3544:/ apply.arg"); - argtab[2].bp_cstring = "discr_pair"; - /*_.NORMAL_PREDEF__V29*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_PAIR*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3541:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3541:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING*/ curfrout->tabval[11])), (6), "CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING");/*_.INST__V31*/ curfptr[30] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3541:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.PAIRSYMB__V25*/ curfptr[24]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:3541:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.OR___V27*/ curfptr[26]), "NCONSB_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3541:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V29*/ curfptr[27]), "NCONSB_DISCR"); - ; - MELT_LOCATION("warmelt-normal.melt:3541:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NPAIRB_HEAD", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (4), ((/*nil*/NULL)), "NPAIRB_HEAD"); - ; - MELT_LOCATION("warmelt-normal.melt:3541:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NPAIRB_TAIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (5), ((/*nil*/NULL)), "NPAIRB_TAIL"); - ; - /*_.CONSPAIR__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:3549:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.PAIRSB__V16*/ curfptr[15]), (/*_#CURIX__L5*/ curfnum[4]), (melt_ptr_t)(/*_.CONSPAIR__V30*/ curfptr[29]));} - ; - - { - MELT_LOCATION("warmelt-normal.melt:3550:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V13*/ curfptr[12]), (melt_ptr_t)(/*_.CONSPAIR__V30*/ curfptr[29]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3540:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3540:/ clear"); - /*clear*/ /*_.IFELSE___V24*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3540:/ clear"); - /*clear*/ /*_.PAIRSYMB__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3540:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3540:/ clear"); - /*clear*/ /*_.OR___V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3540:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3540:/ clear"); - /*clear*/ /*_.CONSPAIR__V30*/ curfptr[29] = 0 ;} - ; - if (/*_#CURIX__L5*/ curfnum[4]<0) break; - } /* end cit1__EACHTUP */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:3536:/ clear"); - /*clear*/ /*_.CURARG__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3536:/ clear"); - /*clear*/ /*_#CURIX__L5*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3536:/ clear"); - /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3552:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V13*/ curfptr[12]), (melt_ptr_t)(/*_.CONSLIST__V19*/ curfptr[18]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3553:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3553:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[5] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3553:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_list gives reslist"; - MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; - MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg"); - argtab[3].bp_long = 3553; - /*_.DEBUG_MSG_FUN__V33*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESLIST__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V32*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3553:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3553:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3553:/ cppif.else"); - /*_.IFCPP___V32*/ curfptr[22] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3554:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.RESLIST__V13*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3554:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V34*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_.RESLIST__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_.LOC__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_.LISTARG__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_#NBLISTARG__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_.PAIRSB__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_.OR___V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_.CONSLIST__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_.IFCPP___V32*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3521:/ clear"); - /*clear*/ /*_.RETURN___V34*/ curfptr[25] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3517:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - MELT_LOCATION("warmelt-normal.melt:3517:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3517:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3517:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3517:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3517:/ clear"); - /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("PREPCONS_LIST", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_101_warmelt_normal_PREPCONS_LIST*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_102_warmelt_normal_NORMLETREC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_102_warmelt_normal_NORMLETREC_LIST_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 15 - void* varptr[15]; -#define CURFRAM_NBVARNUM 3 - long varnum[3]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<15; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 15; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMLETREC_LIST", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3559:/ getarg"); - /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3559:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3559:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3559:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:3559:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); - - - /*getarg#5*/ - MELT_LOCATION("warmelt-normal.melt:3559:/ getarg"); - if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3559:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3560:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3560:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3560:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_list cexpr"; - MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg"); - argtab[3].bp_long = 3560; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3560:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3560:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3560:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3561:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3561:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3561:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_list symb"; - MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg"); - argtab[3].bp_long = 3561; - /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3561:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3561:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3561:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3562:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3562:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3562:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_list cbind"; - MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg"); - argtab[3].bp_long = 3562; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3562:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3562:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3562:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3564:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3564:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3564:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3564:/ cond.then"); - /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3564:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3564:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3564:/ locexp"); - melt_assert_failed(( "@$@unimplemented normletrec_list"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3564)?(3564):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3564:/ clear"); - /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3564:/ cppif.else"); - /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3559:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3559:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3559:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3559:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3559:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3559:/ clear"); - /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMLETREC_LIST", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_102_warmelt_normal_NORMLETREC_LIST*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_103_warmelt_normal_PREPCONS_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_103_warmelt_normal_PREPCONS_INSTANCE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 27 - void* varptr[27]; -#define CURFRAM_NBVARNUM 7 - long varnum[7]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<27; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 27; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("PREPCONS_INSTANCE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3570:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3570:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3570:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3570:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3570:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3571:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3571:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3571:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_instance recv"; - MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg"); - argtab[3].bp_long = 3571; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3571:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3571:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3571:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3572:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3572:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3572:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_instance symb"; - MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg"); - argtab[3].bp_long = 3572; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3572:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3572:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3572:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3573:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3573:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3573:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3573:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3573:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3573:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3573:/ locexp"); - melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3573)?(3573):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3573:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3573:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3573:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3574:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3575:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[2])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3575:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3575:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3575:/ cond.else"); - - /*_.LOC__V13*/ curfptr[12] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3576:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[1])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3576:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3576:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMINS_CLASS");/*_.CLA__V14*/ curfptr[13] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3576:/ cond.else"); - - /*_.CLA__V14*/ curfptr[13] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3577:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[1])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3577:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3577:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMINS_CLABIND");/*_.CLABIND__V15*/ curfptr[14] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3577:/ cond.else"); - - /*_.CLABIND__V15*/ curfptr[14] = NULL;; - } - ; - /*_#IS_A__L4*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:3578:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3578:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3578:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3578:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CLABIND__V15*/ curfptr[14]), 0, "BINDER");/*_.BINDER__V17*/ curfptr[16] = slot; }; - ; - /*_.SCLASYM__V16*/ curfptr[15] = /*_.BINDER__V17*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3578:/ clear"); - /*clear*/ /*_.BINDER__V17*/ curfptr[16] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3578:/ cond.else"); - - /*_.SCLASYM__V16*/ curfptr[15] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3579:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3579:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3579:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V14*/ curfptr[13]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V18*/ curfptr[16] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3579:/ cond.else"); - - /*_.CLASS_FIELDS__V18*/ curfptr[16] = NULL;; - } - ; - /*_#NBCLAFLD__L5*/ curfnum[4] = - (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V18*/ curfptr[16])));; - /*_.TUPSLOT__V19*/ curfptr[18] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBCLAFLD__L5*/ curfnum[4])));; - MELT_LOCATION("warmelt-normal.melt:3583:/ cond"); - /*cond*/ if (/*_.LOC__V13*/ curfptr[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3583:/ cond.then"); - /*_.OR___V20*/ curfptr[19] = /*_.LOC__V13*/ curfptr[12];; - } else {MELT_LOCATION("warmelt-normal.melt:3583:/ cond.else"); - - /*_.OR___V20*/ curfptr[19] = /*_.SLOC__V5*/ curfptr[4];; - } - ; - MELT_LOCATION("warmelt-normal.melt:3581:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3581:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING*/ curfrout->tabval[6])), (6), "CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING");/*_.INST__V22*/ curfptr[21] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3581:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:3581:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.OR___V20*/ curfptr[19]), "NCONSB_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3581:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "NCONSB_DISCR"); - ; - MELT_LOCATION("warmelt-normal.melt:3581:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINSTB_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (4), (/*_.TUPSLOT__V19*/ curfptr[18]), "NINSTB_SLOTS"); - ; - MELT_LOCATION("warmelt-normal.melt:3581:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINSTB_CLABIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (5), (/*_.CLABIND__V15*/ curfptr[14]), "NINSTB_CLABIND"); - ; - /*_.CONSINST__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3589:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3589:/ block"); - /*block*/{ - /*_#IS_A__L6*/ curfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.CLA__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:3589:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3589:/ cond.then"); - /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3589:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3589:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3589:/ locexp"); - melt_assert_failed(( "prepcons_instance check class"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3589)?(3589):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3589:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3589:/ clear"); - /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3589:/ cppif.else"); - /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3590:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3590:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[5] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3590:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg"); - argtab[0].bp_cstring = "prepcons_instance gives consinst"; - MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; - MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg"); - argtab[3].bp_long = 3590; - /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSINST__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3590:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3590:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3590:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3591:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSINST__V21*/ curfptr[20];; - MELT_LOCATION("warmelt-normal.melt:3591:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V27*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.CLA__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.CLABIND__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.SCLASYM__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V18*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_#NBCLAFLD__L5*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.TUPSLOT__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.OR___V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.CONSINST__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3574:/ clear"); - /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3570:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - MELT_LOCATION("warmelt-normal.melt:3570:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3570:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3570:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3570:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3570:/ clear"); - /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("PREPCONS_INSTANCE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_103_warmelt_normal_PREPCONS_INSTANCE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_104_warmelt_normal_NORMLETREC_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_104_warmelt_normal_NORMLETREC_INSTANCE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 15 - void* varptr[15]; -#define CURFRAM_NBVARNUM 3 - long varnum[3]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<15; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 15; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMLETREC_INSTANCE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3597:/ getarg"); - /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3597:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3597:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3597:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:3597:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); - - - /*getarg#5*/ - MELT_LOCATION("warmelt-normal.melt:3597:/ getarg"); - if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3597:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3598:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3598:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3598:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_instance cexpr"; - MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg"); - argtab[3].bp_long = 3598; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3598:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3598:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3598:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3599:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3599:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3599:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_instance symb"; - MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg"); - argtab[3].bp_long = 3599; - /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3599:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3599:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3599:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3600:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3600:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3600:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg"); - argtab[0].bp_cstring = "normletrec_instance cbind"; - MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg"); - argtab[3].bp_long = 3600; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3600:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3600:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3600:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3602:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3602:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3602:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3602:/ cond.then"); - /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3602:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3602:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3602:/ locexp"); - melt_assert_failed(( "@$@unimplemented normletrec_instance"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3602)?(3602):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3602:/ clear"); - /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3602:/ cppif.else"); - /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3597:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3597:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3597:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3597:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3597:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3597:/ clear"); - /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMLETREC_INSTANCE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_104_warmelt_normal_NORMLETREC_INSTANCE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_105_warmelt_normal_NORMEXP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_105_warmelt_normal_NORMEXP_LETREC_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 154 - void* varptr[154]; -#define CURFRAM_NBVARNUM 49 - long varnum[49]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<154; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 154; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_LETREC", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3607:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3607:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3607:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3607:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3607:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3608:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3608:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LETREC*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3608:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3608:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3608:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3608:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3608:/ locexp"); - melt_assert_failed(( "check letrec recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3608)?(3608):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3608:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3608:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3608:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3609:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3609:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3609:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3609:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3609:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3609:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3609:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3609)?(3609):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3609:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3609:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3609:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3610:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3610:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3610:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3610:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3610:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3610:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3610:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3610)?(3610):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3610:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3610:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3610:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3611:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3611:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3611:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec recv"; - MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg"); - argtab[3].bp_long = 3611; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3611:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3611:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3611:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3612:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3612:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3613:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLET_BINDINGS");/*_.SBINDS__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3614:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SLET_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; }; - ; - /*_#NBBIND__L5*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.SBINDS__V16*/ curfptr[15])));; - /*_.BINDLIST__V18*/ curfptr[17] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; - /*_.CONSBINDLIST__V19*/ curfptr[18] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; - MELT_LOCATION("warmelt-normal.melt:3618:/ apply"); - /*apply*/{ - /*_.NEWENV__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - /*_#I__L6*/ curfnum[5] = - ((/*_#NBBIND__L5*/ curfnum[0]) * (2));; - /*_#MAPLEN__L7*/ curfnum[6] = - ((5) + (/*_#I__L6*/ curfnum[5]));; - /*_.SYMBEXPRMAP__V21*/ curfptr[20] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (/*_#MAPLEN__L7*/ curfnum[6])));; - /*_.SYMBINDMAP__V22*/ curfptr[21] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (/*_#MAPLEN__L7*/ curfnum[6])));; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SBINDS__V16*/ curfptr[15]); - for (/*_#SBIX__L8*/ curfnum[7] = 0; - (/*_#SBIX__L8*/ curfnum[7] >= 0) && (/*_#SBIX__L8*/ curfnum[7] < cit1__EACHTUP_ln); - /*_#SBIX__L8*/ curfnum[7]++) { - /*_.CURSBIND__V23*/ curfptr[22] = melt_multiple_nth((melt_ptr_t)(/*_.SBINDS__V16*/ curfptr[15]), /*_#SBIX__L8*/ curfnum[7]); - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3627:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3627:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3627:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec cursbind"; - MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg"); - argtab[3].bp_long = 3627; - /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3627:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3627:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3627:/ cppif.else"); - /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3628:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3628:/ block"); - /*block*/{ - /*_#IS_A__L10*/ curfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_SOURCE_LETREC_BINDING*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:3628:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3628:/ cond.then"); - /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3628:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3628:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3628:/ locexp"); - melt_assert_failed(( "check cursbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3628)?(3628):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3628:/ clear"); - /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3628:/ clear"); - /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3628:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3629:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3629:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V29*/ curfptr[28] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3629:/ cond"); - /*cond*/ if (/*_.LOCA_LOCATION__V29*/ curfptr[28]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3629:/ cond.then"); - /*_.LOCB__V30*/ curfptr[29] = /*_.LOCA_LOCATION__V29*/ curfptr[28];; - } else {MELT_LOCATION("warmelt-normal.melt:3629:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3629:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3629:/ cond"); - /*cond*/ if (/*_.SLOC__V15*/ curfptr[14]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3629:/ cond.then"); - /*_.OR___V31*/ curfptr[30] = /*_.SLOC__V15*/ curfptr[14];; - } else {MELT_LOCATION("warmelt-normal.melt:3629:/ cond.else"); - - /*_.OR___V31*/ curfptr[30] = /*_.PSLOC__V5*/ curfptr[4];; - } - ; - /*_.LOCB__V30*/ curfptr[29] = /*_.OR___V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.OR___V31*/ curfptr[30] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:3630:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), 3, "SLETB_BINDER");/*_.CURSYMB__V32*/ curfptr[30] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3631:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), 4, "SLETB_EXPR");/*_.CUREXPR__V33*/ curfptr[32] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3633:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3633:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L11*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3633:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec curexpr"; - MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg"); - argtab[3].bp_long = 3633; - /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3633:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3633:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3633:/ cppif.else"); - /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3634:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3634:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L12*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3634:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec cursymb"; - MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg"); - argtab[3].bp_long = 3634; - /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSYMB__V32*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V36*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3634:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3634:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3634:/ cppif.else"); - /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3635:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3635:/ block"); - /*block*/{ - /*_#IS_A__L13*/ curfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]), (melt_ptr_t)((/*!CLASS_SOURCE*/ curfrout->tabval[8])));; - MELT_LOCATION("warmelt-normal.melt:3635:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3635:/ cond.then"); - /*_.IFELSE___V39*/ curfptr[38] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3635:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3635:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3635:/ locexp"); - melt_assert_failed(( "check curexpr"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3635)?(3635):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V39*/ curfptr[38] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V38*/ curfptr[36] = /*_.IFELSE___V39*/ curfptr[38];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3635:/ clear"); - /*clear*/ /*_#IS_A__L13*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3635:/ clear"); - /*clear*/ /*_.IFELSE___V39*/ curfptr[38] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3635:/ cppif.else"); - /*_.IFCPP___V38*/ curfptr[36] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3636:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3636:/ block"); - /*block*/{ - /*_#IS_A__L14*/ curfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSYMB__V32*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; - MELT_LOCATION("warmelt-normal.melt:3636:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3636:/ cond.then"); - /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3636:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3636:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3636:/ locexp"); - melt_assert_failed(( "check cursymb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3636)?(3636):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V40*/ curfptr[38] = /*_.IFELSE___V41*/ curfptr[40];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3636:/ clear"); - /*clear*/ /*_#IS_A__L14*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3636:/ clear"); - /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3636:/ cppif.else"); - /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3637:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBEXPRMAP__V21*/ curfptr[20]), - (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), - (melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]));} - ; - MELT_LOCATION("warmelt-normal.melt:3638:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3638:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3638:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURSYMB__V32*/ curfptr[30]; - MELT_LOCATION("warmelt-normal.melt:3638:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3638:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOCB__V30*/ curfptr[29]; - /*_.CURCONSBIND__V43*/ curfptr[42] = meltgc_send((melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]), (melt_ptr_t)((/*!PREPARE_CONSTRUCTOR_BINDING*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3640:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3640:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3640:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec curconsbind"; - MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg"); - argtab[3].bp_long = 3640; - /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3640:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3640:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3640:/ cppif.else"); - /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_A__L16*/ curfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));; - MELT_LOCATION("warmelt-normal.melt:3641:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3641:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3641:/ block"); - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3642:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]));} - ; - - { - MELT_LOCATION("warmelt-normal.melt:3643:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBINDMAP__V22*/ curfptr[21]), - (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), - (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]));} - ; - MELT_LOCATION("warmelt-normal.melt:3641:/ block"); - /*block*/{} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3641:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3641:/ block"); - /*block*/{ - /*_#IS_MULTIPLE__L17*/ curfnum[16] = - (melt_magic_discr((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normal.melt:3645:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L17*/ curfnum[16]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3645:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3645:/ block"); - /*block*/{ - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit2__EACHTUP: */ - long cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CURCONSBIND__V43*/ curfptr[42]); - for (/*_#SUBIX__L18*/ curfnum[17] = 0; - (/*_#SUBIX__L18*/ curfnum[17] >= 0) && (/*_#SUBIX__L18*/ curfnum[17] < cit2__EACHTUP_ln); - /*_#SUBIX__L18*/ curfnum[17]++) { - /*_.SUBCONSBIND__V48*/ curfptr[47] = melt_multiple_nth((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), /*_#SUBIX__L18*/ curfnum[17]); - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3649:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3649:/ block"); - /*block*/{ - /*_#IS_A__L19*/ curfnum[18] = - melt_is_instance_of((melt_ptr_t)(/*_.SUBCONSBIND__V48*/ curfptr[47]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));; - MELT_LOCATION("warmelt-normal.melt:3649:/ cond"); - /*cond*/ if (/*_#IS_A__L19*/ curfnum[18]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3649:/ cond.then"); - /*_.IFELSE___V50*/ curfptr[49] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3649:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3649:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3649:/ locexp"); - melt_assert_failed(( "normexp_letrec check subconsbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3649)?(3649):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V49*/ curfptr[48] = /*_.IFELSE___V50*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3649:/ clear"); - /*clear*/ /*_#IS_A__L19*/ curfnum[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3649:/ clear"); - /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3649:/ cppif.else"); - /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3651:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.SUBCONSBIND__V48*/ curfptr[47]));} - ; - if (/*_#SUBIX__L18*/ curfnum[17]<0) break; - } /* end cit2__EACHTUP */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:3646:/ clear"); - /*clear*/ /*_.SUBCONSBIND__V48*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3646:/ clear"); - /*clear*/ /*_#SUBIX__L18*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3646:/ clear"); - /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3652:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBINDMAP__V22*/ curfptr[21]), - (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), - (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]));} - ; - MELT_LOCATION("warmelt-normal.melt:3645:/ block"); - /*block*/{} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3645:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3645:/ block"); - /*block*/{ - /*_#IS_LIST__L20*/ curfnum[18] = - (melt_magic_discr((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:3654:/ cond"); - /*cond*/ if (/*_#IS_LIST__L20*/ curfnum[18]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3654:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3654:/ block"); - /*block*/{ - /*citerblock FOREACH_IN_LIST*/ { - /* start cit3__EACHLIST */ - for (/*_.SUBCONSPAIR__V52*/ curfptr[51] = melt_list_first(/*_.CURCONSBIND__V43*/ curfptr[42]); - melt_magic_discr(/*_.SUBCONSPAIR__V52*/ curfptr[51]) == OBMAG_PAIR; - /*_.SUBCONSPAIR__V52*/ curfptr[51] = melt_pair_tail(/*_.SUBCONSPAIR__V52*/ curfptr[51])) { - /*_.SUBCONSBIND__V53*/ curfptr[52] = melt_pair_head(/*_.SUBCONSPAIR__V52*/ curfptr[51]); - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3658:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3658:/ block"); - /*block*/{ - /*_#IS_A__L21*/ curfnum[20] = - melt_is_instance_of((melt_ptr_t)(/*_.SUBCONSBIND__V53*/ curfptr[52]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));; - MELT_LOCATION("warmelt-normal.melt:3658:/ cond"); - /*cond*/ if (/*_#IS_A__L21*/ curfnum[20]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3658:/ cond.then"); - /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3658:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3658:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3658:/ locexp"); - melt_assert_failed(( "normexp_letrec check subconsbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3658)?(3658):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V54*/ curfptr[53] = /*_.IFELSE___V55*/ curfptr[54];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3658:/ clear"); - /*clear*/ /*_#IS_A__L21*/ curfnum[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3658:/ clear"); - /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3658:/ cppif.else"); - /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3660:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.SUBCONSBIND__V53*/ curfptr[52]));} - ; - } /* end cit3__EACHLIST */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:3655:/ clear"); - /*clear*/ /*_.SUBCONSPAIR__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3655:/ clear"); - /*clear*/ /*_.SUBCONSBIND__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3655:/ clear"); - /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ - ; - MELT_LOCATION("warmelt-normal.melt:3661:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3661:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[13]); - /*_.LIST_TO_MULTIPLE__V56*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:3661:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBINDMAP__V22*/ curfptr[21]), - (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), - (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[54]));} - ; - MELT_LOCATION("warmelt-normal.melt:3654:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3654:/ clear"); - /*clear*/ /*_.LIST_TO_MULTIPLE__V56*/ curfptr[54] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3654:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3654:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3664:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3664:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3664:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3664:/ cond.then"); - /*_.IFELSE___V58*/ curfptr[57] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3664:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3664:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3664:/ locexp"); - melt_assert_failed(( "normexp_letrec bad curconsbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3664)?(3664):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V57*/ curfptr[54] = /*_.IFELSE___V58*/ curfptr[57];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3664:/ clear"); - /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3664:/ cppif.else"); - /*_.IFCPP___V57*/ curfptr[54] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3663:/ block"); - /*block*/{ - /*_.PROGN___V59*/ curfptr[57] = /*_.IFCPP___V57*/ curfptr[54];;} - ; - /*_.IFELSE___V51*/ curfptr[49] = /*_.PROGN___V59*/ curfptr[57];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3654:/ clear"); - /*clear*/ /*_.IFCPP___V57*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3654:/ clear"); - /*clear*/ /*_.PROGN___V59*/ curfptr[57] = 0 ;} - ; - } - ; - /*_.IFELSE___V47*/ curfptr[46] = /*_.IFELSE___V51*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3645:/ clear"); - /*clear*/ /*_#IS_LIST__L20*/ curfnum[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3645:/ clear"); - /*clear*/ /*_.IFELSE___V51*/ curfptr[49] = 0 ;} - ; - } - ; - /*_.IFELSE___V46*/ curfptr[44] = /*_.IFELSE___V47*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3641:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L17*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3641:/ clear"); - /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;} - ; - } - ; - /*_.LET___V42*/ curfptr[40] = /*_.IFELSE___V46*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3638:/ clear"); - /*clear*/ /*_.CURCONSBIND__V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3638:/ clear"); - /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3638:/ clear"); - /*clear*/ /*_#IS_A__L16*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3638:/ clear"); - /*clear*/ /*_.IFELSE___V46*/ curfptr[44] = 0 ;} - ; - /*_.LET___V28*/ curfptr[26] = /*_.LET___V42*/ curfptr[40];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.LOCB__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.CURSYMB__V32*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.CUREXPR__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.IFCPP___V38*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3629:/ clear"); - /*clear*/ /*_.LET___V42*/ curfptr[40] = 0 ;} - ; - if (/*_#SBIX__L8*/ curfnum[7]<0) break; - } /* end cit1__EACHTUP */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:3624:/ clear"); - /*clear*/ /*_.CURSBIND__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3624:/ clear"); - /*clear*/ /*_#SBIX__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3624:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3624:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3624:/ clear"); - /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3669:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3669:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L22*/ curfnum[20] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3669:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec consbindlist"; - MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[20]; - MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg"); - argtab[3].bp_long = 3669; - /*_.DEBUG_MSG_FUN__V61*/ curfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V60*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[57];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3669:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3669:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[57] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3669:/ cppif.else"); - /*_.IFCPP___V60*/ curfptr[54] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3670:/ block"); - /*block*/{ - /*_#NBCONSBIND__L23*/ curfnum[18] = - (melt_list_length((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18])));; - /*_#CURCIX__L24*/ curfnum[16] = 0;; - /*_.NLOCSYMS__V63*/ curfptr[46] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (/*_#NBCONSBIND__L23*/ curfnum[18])));; - /*_.NCBINDTUP__V64*/ curfptr[42] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (/*_#NBCONSBIND__L23*/ curfnum[18])));; - /*_.RECBINDINGS__V65*/ curfptr[43] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; - MELT_LOCATION("warmelt-normal.melt:3676:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3676:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[14])), (5), "CLASS_NREP_LETREC");/*_.INST__V67*/ curfptr[28] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3676:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3676:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (1), (/*_.NCBINDTUP__V64*/ curfptr[42]), "NLET_BINDINGS"); - ; - MELT_LOCATION("warmelt-normal.melt:3676:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (2), ((/*nil*/NULL)), "NLET_BODY"); - ; - MELT_LOCATION("warmelt-normal.melt:3676:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLETREC_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (3), (/*_.RECBINDINGS__V65*/ curfptr[43]), "NLETREC_BINDINGS"); - ; - MELT_LOCATION("warmelt-normal.melt:3676:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NLETREC_LOCSYMS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (4), (/*_.NLOCSYMS__V63*/ curfptr[46]), "NLETREC_LOCSYMS"); - ; - /*_.NLETREC__V66*/ curfptr[44] = /*_.INST__V67*/ curfptr[28];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3684:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3684:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L25*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3684:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec unfilled nletrec"; - MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg"); - argtab[3].bp_long = 3684; - /*_.DEBUG_MSG_FUN__V69*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NLETREC__V66*/ curfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V68*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3684:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3684:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[30] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3684:/ cppif.else"); - /*_.IFCPP___V68*/ curfptr[29] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*citerblock FOREACH_IN_LIST*/ { - /* start cit4__EACHLIST */ - for (/*_.CURPAIR__V70*/ curfptr[32] = melt_list_first(/*_.CONSBINDLIST__V19*/ curfptr[18]); - melt_magic_discr(/*_.CURPAIR__V70*/ curfptr[32]) == OBMAG_PAIR; - /*_.CURPAIR__V70*/ curfptr[32] = melt_pair_tail(/*_.CURPAIR__V70*/ curfptr[32])) { - /*_.CURCBIND__V71*/ curfptr[33] = melt_pair_head(/*_.CURPAIR__V70*/ curfptr[32]); - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3691:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3691:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L26*/ curfnum[20] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3691:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec curcbind"; - MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[20]; - MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg"); - argtab[3].bp_long = 3691; - /*_.DEBUG_MSG_FUN__V73*/ curfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V72*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V73*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3691:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3691:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[36] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3691:/ cppif.else"); - /*_.IFCPP___V72*/ curfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3692:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3692:/ block"); - /*block*/{ - /*_#IS_A__L27*/ curfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));; - MELT_LOCATION("warmelt-normal.melt:3692:/ cond"); - /*cond*/ if (/*_#IS_A__L27*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3692:/ cond.then"); - /*_.IFELSE___V75*/ curfptr[40] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3692:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3692:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3692:/ locexp"); - melt_assert_failed(( "check curcbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3692)?(3692):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V75*/ curfptr[40] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V74*/ curfptr[38] = /*_.IFELSE___V75*/ curfptr[40];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3692:/ clear"); - /*clear*/ /*_#IS_A__L27*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3692:/ clear"); - /*clear*/ /*_.IFELSE___V75*/ curfptr[40] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3692:/ cppif.else"); - /*_.IFCPP___V74*/ curfptr[38] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3693:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.NCBINDTUP__V64*/ curfptr[42]), (/*_#CURCIX__L24*/ curfnum[16]), (melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]));} - ; - - { - MELT_LOCATION("warmelt-normal.melt:3694:/ locexp"); - melt_put_int((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (/*_#CURCIX__L24*/ curfnum[16]));} - ; - MELT_LOCATION("warmelt-normal.melt:3695:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3695:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3695:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3695:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_NLETREC", melt_magic_discr((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CURCBIND__V71*/ curfptr[33]), (3), (/*_.NLETREC__V66*/ curfptr[44]), "NCONSB_NLETREC"); - ; - MELT_LOCATION("warmelt-normal.melt:3695:/ touch"); - meltgc_touch(/*_.CURCBIND__V71*/ curfptr[33]); - ; - /*epilog*/} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-normal.melt:3696:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3696:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 2, "NCONSB_DISCR");/*_.CURBDISCR__V76*/ curfptr[57] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3697:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 0, "BINDER");/*_.CURBINDER__V77*/ curfptr[30] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3699:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3699:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3699:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 1, "NCONSB_LOC");/*_.NCONSB_LOC__V78*/ curfptr[36] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3699:/ cond.else"); - - /*_.NCONSB_LOC__V78*/ curfptr[36] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3699:/ cond"); - /*cond*/ if (/*_.NCONSB_LOC__V78*/ curfptr[36]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3699:/ cond.then"); - /*_.OR___V79*/ curfptr[40] = /*_.NCONSB_LOC__V78*/ curfptr[36];; - } else {MELT_LOCATION("warmelt-normal.melt:3699:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3699:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3699:/ cond"); - /*cond*/ if (/*_.SLOC__V15*/ curfptr[14]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3699:/ cond.then"); - /*_.OR___V80*/ curfptr[79] = /*_.SLOC__V15*/ curfptr[14];; - } else {MELT_LOCATION("warmelt-normal.melt:3699:/ cond.else"); - - /*_.OR___V80*/ curfptr[79] = /*_.PSLOC__V5*/ curfptr[4];; - } - ; - /*_.OR___V79*/ curfptr[40] = /*_.OR___V80*/ curfptr[79];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3699:/ clear"); - /*clear*/ /*_.OR___V80*/ curfptr[79] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:3698:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3698:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V82*/ curfptr[81] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3698:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (0), (/*_.OR___V79*/ curfptr[40]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3698:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:3698:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (1), (/*_.CURBINDER__V77*/ curfptr[30]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:3698:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (3), (/*_.CURCBIND__V71*/ curfptr[33]), "NOCC_BIND"); - ; - /*_.NLOCSYM__V81*/ curfptr[79] = /*_.INST__V82*/ curfptr[81];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:3706:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.NLOCSYMS__V63*/ curfptr[46]), (/*_#CURCIX__L24*/ curfnum[16]), (melt_ptr_t)(/*_.NLOCSYM__V81*/ curfptr[79]));} - ; - /*_#NULL__L28*/ curfnum[20] = - ((/*_.CURBDISCR__V76*/ curfptr[57]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:3707:/ cond"); - /*cond*/ if (/*_#NULL__L28*/ curfnum[20]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3707:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3707:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3708:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3708:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING*/ curfrout->tabval[17])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3708:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3708:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 5, "NINSTB_CLABIND");/*_.CLABIND__V83*/ curfptr[82] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3708:/ cond.else"); - - /*_.CLABIND__V83*/ curfptr[82] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:3709:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V83*/ curfptr[82]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[18])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3709:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3709:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CLABIND__V83*/ curfptr[82]), 0, "BINDER");/*_.CLASYM__V84*/ curfptr[83] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:3709:/ cond.else"); - - /*_.CLASYM__V84*/ curfptr[83] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3711:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3711:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L29*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3711:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec clabind"; - MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg"); - argtab[3].bp_long = 3711; - /*_.DEBUG_MSG_FUN__V86*/ curfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLABIND__V83*/ curfptr[82]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V85*/ curfptr[84] = /*_.DEBUG_MSG_FUN__V86*/ curfptr[85];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3711:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3711:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V86*/ curfptr[85] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3711:/ cppif.else"); - /*_.IFCPP___V85*/ curfptr[84] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3712:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3712:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L30*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3712:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec clasym"; - MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg"); - argtab[3].bp_long = 3712; - /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLASYM__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V87*/ curfptr[85] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[87];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3712:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3712:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3712:/ cppif.else"); - /*_.IFCPP___V87*/ curfptr[85] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3714:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3714:/ block"); - /*block*/{ - /*_#IS_A__L31*/ curfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING*/ curfrout->tabval[17])));; - MELT_LOCATION("warmelt-normal.melt:3714:/ cond"); - /*cond*/ if (/*_#IS_A__L31*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3714:/ cond.then"); - /*_.IFELSE___V90*/ curfptr[89] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3714:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3714:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3714:/ locexp"); - melt_assert_failed(( "check curcbind for instance"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3714)?(3714):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V90*/ curfptr[89] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V89*/ curfptr[87] = /*_.IFELSE___V90*/ curfptr[89];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3714:/ clear"); - /*clear*/ /*_#IS_A__L31*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3714:/ clear"); - /*clear*/ /*_.IFELSE___V90*/ curfptr[89] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3714:/ cppif.else"); - /*_.IFCPP___V89*/ curfptr[87] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3715:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3716:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3716:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:3716:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3716:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.CLADATA__V91*/ curfptr[89] = meltgc_send((melt_ptr_t)(/*_.CLASYM__V84*/ curfptr[83]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[19])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3718:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3718:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L32*/ curfnum[8] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3718:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec cladata"; - MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[8]; - MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg"); - argtab[3].bp_long = 3718; - /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLADATA__V91*/ curfptr[89]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3718:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3718:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3718:/ cppif.else"); - /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3719:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3719:/ block"); - /*block*/{ - /*_#IS_A__L33*/ curfnum[8] = - melt_is_instance_of((melt_ptr_t)(/*_.CLADATA__V91*/ curfptr[89]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[20])));; - MELT_LOCATION("warmelt-normal.melt:3719:/ cond"); - /*cond*/ if (/*_#IS_A__L33*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3719:/ cond.then"); - /*_.IFELSE___V95*/ curfptr[94] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3719:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3719:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3719:/ locexp"); - melt_assert_failed(( "check cladata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3719)?(3719):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V95*/ curfptr[94] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V94*/ curfptr[92] = /*_.IFELSE___V95*/ curfptr[94];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3719:/ clear"); - /*clear*/ /*_#IS_A__L33*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3719:/ clear"); - /*clear*/ /*_.IFELSE___V95*/ curfptr[94] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3719:/ cppif.else"); - /*_.IFCPP___V94*/ curfptr[92] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3720:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3720:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3720:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3720:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CURCBIND__V71*/ curfptr[33]), (2), (/*_.CLADATA__V91*/ curfptr[89]), "NCONSB_DISCR"); - ; - MELT_LOCATION("warmelt-normal.melt:3720:/ touch"); - meltgc_touch(/*_.CURCBIND__V71*/ curfptr[33]); - ; - /*epilog*/} - ; - } /*noelse*/ - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3715:/ clear"); - /*clear*/ /*_.CLADATA__V91*/ curfptr[89] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3715:/ clear"); - /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3715:/ clear"); - /*clear*/ /*_.IFCPP___V94*/ curfptr[92] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3708:/ clear"); - /*clear*/ /*_.CLABIND__V83*/ curfptr[82] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3708:/ clear"); - /*clear*/ /*_.CLASYM__V84*/ curfptr[83] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3708:/ clear"); - /*clear*/ /*_.IFCPP___V85*/ curfptr[84] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3708:/ clear"); - /*clear*/ /*_.IFCPP___V87*/ curfptr[85] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3708:/ clear"); - /*clear*/ /*_.IFCPP___V89*/ curfptr[87] = 0 ;} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3696:/ clear"); - /*clear*/ /*_.CURBDISCR__V76*/ curfptr[57] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3696:/ clear"); - /*clear*/ /*_.CURBINDER__V77*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3696:/ clear"); - /*clear*/ /*_.NCONSB_LOC__V78*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3696:/ clear"); - /*clear*/ /*_.OR___V79*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3696:/ clear"); - /*clear*/ /*_.NLOCSYM__V81*/ curfptr[79] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3696:/ clear"); - /*clear*/ /*_#NULL__L28*/ curfnum[20] = 0 ;} - ; - /*_#I__L34*/ curfnum[8] = - ((/*_#CURCIX__L24*/ curfnum[16]) + (1));; - MELT_LOCATION("warmelt-normal.melt:3723:/ compute"); - /*_#CURCIX__L24*/ curfnum[16] = /*_#SETQ___L35*/ curfnum[20] = /*_#I__L34*/ curfnum[8];; - MELT_LOCATION("warmelt-normal.melt:3724:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3724:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCBIND__V71*/ curfptr[33]; - /*_.PUT_ENV__V96*/ curfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - } /* end cit4__EACHLIST */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:3688:/ clear"); - /*clear*/ /*_.CURPAIR__V70*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3688:/ clear"); - /*clear*/ /*_.CURCBIND__V71*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3688:/ clear"); - /*clear*/ /*_.IFCPP___V72*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3688:/ clear"); - /*clear*/ /*_.IFCPP___V74*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3688:/ clear"); - /*clear*/ /*_#I__L34*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3688:/ clear"); - /*clear*/ /*_#SETQ___L35*/ curfnum[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3688:/ clear"); - /*clear*/ /*_.PUT_ENV__V96*/ curfptr[94] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit5__EACHTUP: */ - long cit5__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SBINDS__V16*/ curfptr[15]); - for (/*_#SBIX__L36*/ curfnum[35] = 0; - (/*_#SBIX__L36*/ curfnum[35] >= 0) && (/*_#SBIX__L36*/ curfnum[35] < cit5__EACHTUP_ln); - /*_#SBIX__L36*/ curfnum[35]++) { - /*_.CURSBIND__V97*/ curfptr[89] = melt_multiple_nth((melt_ptr_t)(/*_.SBINDS__V16*/ curfptr[15]), /*_#SBIX__L36*/ curfnum[35]); - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3731:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3731:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L37*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3731:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec thirdloop cursbind"; - MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L37*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg"); - argtab[3].bp_long = 3731; - /*_.DEBUG_MSG_FUN__V99*/ curfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V98*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V99*/ curfptr[92];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3731:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L37*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3731:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V99*/ curfptr[92] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3731:/ cppif.else"); - /*_.IFCPP___V98*/ curfptr[91] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3732:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3732:/ block"); - /*block*/{ - /*_#IS_A__L38*/ curfnum[36] = - melt_is_instance_of((melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), (melt_ptr_t)((/*!CLASS_SOURCE_LETREC_BINDING*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:3732:/ cond"); - /*cond*/ if (/*_#IS_A__L38*/ curfnum[36]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3732:/ cond.then"); - /*_.IFELSE___V101*/ curfptr[83] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3732:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3732:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3732:/ locexp"); - melt_assert_failed(( "check cursbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3732)?(3732):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V101*/ curfptr[83] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V100*/ curfptr[82] = /*_.IFELSE___V101*/ curfptr[83];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3732:/ clear"); - /*clear*/ /*_#IS_A__L38*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3732:/ clear"); - /*clear*/ /*_.IFELSE___V101*/ curfptr[83] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3732:/ cppif.else"); - /*_.IFCPP___V100*/ curfptr[82] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3733:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3733:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V103*/ curfptr[85] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3733:/ cond"); - /*cond*/ if (/*_.LOCA_LOCATION__V103*/ curfptr[85]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3733:/ cond.then"); - /*_.LOCB__V104*/ curfptr[87] = /*_.LOCA_LOCATION__V103*/ curfptr[85];; - } else {MELT_LOCATION("warmelt-normal.melt:3733:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3733:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3733:/ cond"); - /*cond*/ if (/*_.SLOC__V15*/ curfptr[14]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3733:/ cond.then"); - /*_.OR___V105*/ curfptr[57] = /*_.SLOC__V15*/ curfptr[14];; - } else {MELT_LOCATION("warmelt-normal.melt:3733:/ cond.else"); - - /*_.OR___V105*/ curfptr[57] = /*_.PSLOC__V5*/ curfptr[4];; - } - ; - /*_.LOCB__V104*/ curfptr[87] = /*_.OR___V105*/ curfptr[57];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.OR___V105*/ curfptr[57] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:3734:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), 3, "SLETB_BINDER");/*_.CURSYMB__V106*/ curfptr[30] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3735:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), 4, "SLETB_EXPR");/*_.CUREXPR__V107*/ curfptr[36] = slot; }; - ; - /*_.CURBIND__V108*/ curfptr[40] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYMBINDMAP__V22*/ curfptr[21]), (meltobject_ptr_t)(/*_.CURSYMB__V106*/ curfptr[30]));; - /*_.CURSEXPR__V109*/ curfptr[79] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYMBEXPRMAP__V21*/ curfptr[20]), (meltobject_ptr_t)(/*_.CURSYMB__V106*/ curfptr[30]));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3739:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3739:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L39*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3739:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec thirdloop curexpr"; - MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L39*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg"); - argtab[3].bp_long = 3739; - /*_.DEBUG_MSG_FUN__V111*/ curfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREXPR__V107*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V110*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V111*/ curfptr[83];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3739:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L39*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3739:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V111*/ curfptr[83] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3739:/ cppif.else"); - /*_.IFCPP___V110*/ curfptr[92] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3740:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3740:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L40*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3740:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec thirdloop cursymb"; - MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L40*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg"); - argtab[3].bp_long = 3740; - /*_.DEBUG_MSG_FUN__V113*/ curfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSYMB__V106*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V112*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V113*/ curfptr[83];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3740:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L40*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3740:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V113*/ curfptr[83] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3740:/ cppif.else"); - /*_.IFCPP___V112*/ curfptr[57] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3741:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3741:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L41*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3741:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec thirdloop curbind"; - MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L41*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg"); - argtab[3].bp_long = 3741; - /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURBIND__V108*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V114*/ curfptr[83] = /*_.DEBUG_MSG_FUN__V115*/ curfptr[114];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3741:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L41*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3741:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3741:/ cppif.else"); - /*_.IFCPP___V114*/ curfptr[83] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3742:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3742:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L42*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3742:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec thirdloop cursexpr"; - MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L42*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg"); - argtab[3].bp_long = 3742; - /*_.DEBUG_MSG_FUN__V117*/ curfptr[116] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSEXPR__V109*/ curfptr[79]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V116*/ curfptr[114] = /*_.DEBUG_MSG_FUN__V117*/ curfptr[116];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3742:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L42*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3742:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V117*/ curfptr[116] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3742:/ cppif.else"); - /*_.IFCPP___V116*/ curfptr[114] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3743:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3743:/ block"); - /*block*/{ - /*_#__L43*/ curfnum[36] = - ((/*_.CUREXPR__V107*/ curfptr[36]) == (/*_.CURSEXPR__V109*/ curfptr[79]));; - MELT_LOCATION("warmelt-normal.melt:3743:/ cond"); - /*cond*/ if (/*_#__L43*/ curfnum[36]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3743:/ cond.then"); - /*_.IFELSE___V119*/ curfptr[118] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3743:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3743:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3743:/ locexp"); - melt_assert_failed(( "check curxpr same cursexpr"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3743)?(3743):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V119*/ curfptr[118] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V118*/ curfptr[116] = /*_.IFELSE___V119*/ curfptr[118];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3743:/ clear"); - /*clear*/ /*_#__L43*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3743:/ clear"); - /*clear*/ /*_.IFELSE___V119*/ curfptr[118] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3743:/ cppif.else"); - /*_.IFCPP___V118*/ curfptr[116] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3744:/ msend"); - /*msend*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURSYMB__V106*/ curfptr[30]; - MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURBIND__V108*/ curfptr[40]; - MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19]; - MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NORMAL_LETREC_CONSTRUCTIVE__V120*/ curfptr[118] = meltgc_send((melt_ptr_t)(/*_.CUREXPR__V107*/ curfptr[36]), (melt_ptr_t)((/*!NORMAL_LETREC_CONSTRUCTIVE*/ curfrout->tabval[22])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3745:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3745:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L44*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3745:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec thirdloop done curexpr"; - MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L44*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg"); - argtab[3].bp_long = 3745; - /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREXPR__V107*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V121*/ curfptr[120] = /*_.DEBUG_MSG_FUN__V122*/ curfptr[121];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3745:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L44*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3745:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3745:/ cppif.else"); - /*_.IFCPP___V121*/ curfptr[120] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V102*/ curfptr[84] = /*_.IFCPP___V121*/ curfptr[120];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V103*/ curfptr[85] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.LOCB__V104*/ curfptr[87] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.CURSYMB__V106*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.CUREXPR__V107*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.CURBIND__V108*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.CURSEXPR__V109*/ curfptr[79] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.IFCPP___V110*/ curfptr[92] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.IFCPP___V112*/ curfptr[57] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.IFCPP___V114*/ curfptr[83] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.IFCPP___V116*/ curfptr[114] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.IFCPP___V118*/ curfptr[116] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.NORMAL_LETREC_CONSTRUCTIVE__V120*/ curfptr[118] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3733:/ clear"); - /*clear*/ /*_.IFCPP___V121*/ curfptr[120] = 0 ;} - ; - if (/*_#SBIX__L36*/ curfnum[35]<0) break; - } /* end cit5__EACHTUP */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:3728:/ clear"); - /*clear*/ /*_.CURSBIND__V97*/ curfptr[89] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3728:/ clear"); - /*clear*/ /*_#SBIX__L36*/ curfnum[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3728:/ clear"); - /*clear*/ /*_.IFCPP___V98*/ curfptr[91] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3728:/ clear"); - /*clear*/ /*_.IFCPP___V100*/ curfptr[82] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3728:/ clear"); - /*clear*/ /*_.LET___V102*/ curfptr[84] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3750:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3750:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L45*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3750:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec normalizing sbody"; - MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L45*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg"); - argtab[3].bp_long = 3750; - /*_.DEBUG_MSG_FUN__V124*/ curfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V123*/ curfptr[121] = /*_.DEBUG_MSG_FUN__V124*/ curfptr[85];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3750:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L45*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3750:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V124*/ curfptr[85] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3750:/ cppif.else"); - /*_.IFCPP___V123*/ curfptr[121] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3751:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V127*/ curfptr[36]; - MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.appl"); - /*_.NBODY__V126*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:3751:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3754:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3754:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V127*/ curfptr[36]; - /*_.LIST_APPEND2LIST__V128*/ curfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.BINDLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3755:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3755:/ block"); - /*block*/{ - /*_#IS_LIST_OR_NULL__L46*/ curfnum[36] = - ((/*_.BINDLIST__V18*/ curfptr[17]) == NULL - || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.BINDLIST__V18*/ curfptr[17])) == OBMAG_LIST));; - MELT_LOCATION("warmelt-normal.melt:3755:/ cond"); - /*cond*/ if (/*_#IS_LIST_OR_NULL__L46*/ curfnum[36]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3755:/ cond.then"); - /*_.IFELSE___V130*/ curfptr[92] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3755:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3755:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3755:/ locexp"); - melt_assert_failed(( "normexp_letrec check bindlist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3755)?(3755):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V130*/ curfptr[92] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V129*/ curfptr[79] = /*_.IFELSE___V130*/ curfptr[92];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3755:/ clear"); - /*clear*/ /*_#IS_LIST_OR_NULL__L46*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3755:/ clear"); - /*clear*/ /*_.IFELSE___V130*/ curfptr[92] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3755:/ cppif.else"); - /*_.IFCPP___V129*/ curfptr[79] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3758:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3758:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V132*/ curfptr[83] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (0)); - ; - /*_.LAMBDA___V131*/ curfptr[57] = /*_.LAMBDA___V132*/ curfptr[83];;} - ; - MELT_LOCATION("warmelt-normal.melt:3756:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3756:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V131*/ curfptr[57]; - /*_.LIST_EVERY__V133*/ curfptr[114] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.BINDLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3761:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3761:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V134*/ curfptr[116] = slot; }; - ; - /*citerblock FOREACH_IN_LIST*/ { - /* start cit6__EACHLIST */ - for (/*_.CURPAIR__V135*/ curfptr[118] = melt_list_first(/*_.BINDLIST__V18*/ curfptr[17]); - melt_magic_discr(/*_.CURPAIR__V135*/ curfptr[118]) == OBMAG_PAIR; - /*_.CURPAIR__V135*/ curfptr[118] = melt_pair_tail(/*_.CURPAIR__V135*/ curfptr[118])) { - /*_.BND__V136*/ curfptr[120] = melt_pair_head(/*_.CURPAIR__V135*/ curfptr[118]); - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3765:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3765:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L47*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3765:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec remobing from sycmap bnd"; - MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L47*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg"); - argtab[3].bp_long = 3765; - /*_.DEBUG_MSG_FUN__V138*/ curfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BND__V136*/ curfptr[120]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V137*/ curfptr[85] = /*_.DEBUG_MSG_FUN__V138*/ curfptr[92];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3765:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L47*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3765:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V138*/ curfptr[92] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3765:/ cppif.else"); - /*_.IFCPP___V137*/ curfptr[85] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3766:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V136*/ curfptr[120]), 0, "BINDER");/*_.BINDER__V139*/ curfptr[92] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3766:/ locexp"); - meltgc_remove_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V134*/ curfptr[116]), - (meltobject_ptr_t)(/*_.BINDER__V139*/ curfptr[92]));} - ; - } /* end cit6__EACHLIST */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:3762:/ clear"); - /*clear*/ /*_.CURPAIR__V135*/ curfptr[118] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3762:/ clear"); - /*clear*/ /*_.BND__V136*/ curfptr[120] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3762:/ clear"); - /*clear*/ /*_.IFCPP___V137*/ curfptr[85] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3762:/ clear"); - /*clear*/ /*_.BINDER__V139*/ curfptr[92] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3761:/ clear"); - /*clear*/ /*_.SYCMAP__V134*/ curfptr[116] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3769:/ block"); - /*block*/{ - /*_.NLASTBODY__V141*/ curfptr[140] = - (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V126*/ curfptr[30]), (-1)));; - MELT_LOCATION("warmelt-normal.melt:3772:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3772:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19]; - /*_.GET_CTYPE__V142*/ curfptr[141] = meltgc_send((melt_ptr_t)(/*_.NLASTBODY__V141*/ curfptr[140]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[29])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3772:/ cond"); - /*cond*/ if (/*_.GET_CTYPE__V142*/ curfptr[141]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3772:/ cond.then"); - /*_.NLASTYP__V143*/ curfptr[142] = /*_.GET_CTYPE__V142*/ curfptr[141];; - } else {MELT_LOCATION("warmelt-normal.melt:3772:/ cond.else"); - - /*_.NLASTYP__V143*/ curfptr[142] = (/*!CTYPE_VOID*/ curfrout->tabval[28]);; - } - ; - MELT_LOCATION("warmelt-normal.melt:3773:/ apply"); - /*apply*/{ - /*_.CSYM__V144*/ curfptr[143] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[30])), (melt_ptr_t)((/*!konst_31_LETREC_*/ curfrout->tabval[31])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3774:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3774:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[32])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V146*/ curfptr[145] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3774:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (0), (/*_.CSYM__V144*/ curfptr[143]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:3774:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3774:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (1), (/*_.NLASTYP__V143*/ curfptr[142]), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:3774:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (2), (/*_.NLETREC__V66*/ curfptr[44]), "LETBIND_EXPR"); - ; - /*_.CBIND__V145*/ curfptr[144] = /*_.INST__V146*/ curfptr[145];;} - ; - MELT_LOCATION("warmelt-normal.melt:3779:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3779:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V148*/ curfptr[147] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3779:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V148*/ curfptr[147])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V148*/ curfptr[147]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3779:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V148*/ curfptr[147])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V148*/ curfptr[147]), (2), (/*_.NLASTYP__V143*/ curfptr[142]), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:3779:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V148*/ curfptr[147])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V148*/ curfptr[147]), (3), (/*_.CBIND__V145*/ curfptr[144]), "NOCC_BIND"); - ; - /*_.CLOCC__V147*/ curfptr[146] = /*_.INST__V148*/ curfptr[147];;} - ; - /*_.RESBINDS__V149*/ curfptr[148] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; - - { - MELT_LOCATION("warmelt-normal.melt:3785:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.RESBINDS__V149*/ curfptr[148]), (melt_ptr_t)(/*_.CBIND__V145*/ curfptr[144]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3786:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3786:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L48*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3786:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec result clocc"; - MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L48*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg"); - argtab[3].bp_long = 3786; - /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V147*/ curfptr[146]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V150*/ curfptr[149] = /*_.DEBUG_MSG_FUN__V151*/ curfptr[150];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3786:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L48*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3786:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3786:/ cppif.else"); - /*_.IFCPP___V150*/ curfptr[149] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3787:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3787:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L49*/ curfnum[36] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3787:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg"); - argtab[0].bp_cstring = "normexp_letrec result resbinds"; - MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L49*/ curfnum[36]; - MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg"); - argtab[3].bp_long = 3787; - /*_.DEBUG_MSG_FUN__V153*/ curfptr[152] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESBINDS__V149*/ curfptr[148]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V152*/ curfptr[150] = /*_.DEBUG_MSG_FUN__V153*/ curfptr[152];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3787:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L49*/ curfnum[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3787:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V153*/ curfptr[152] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3787:/ cppif.else"); - /*_.IFCPP___V152*/ curfptr[150] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3788:/ locexp"); - -#if ENABLE_CHECKING - if (flag_melt_debug) - melt_dbgshortbacktrace(( "normexp_letrec ending"), (15)); -#endif -;} - ; - MELT_LOCATION("warmelt-normal.melt:3789:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V147*/ curfptr[146];; - MELT_LOCATION("warmelt-normal.melt:3789:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.RESBINDS__V149*/ curfptr[148]); - ; - MELT_LOCATION("warmelt-normal.melt:3789:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V140*/ curfptr[116] = (/*nil*/NULL);; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.NLASTBODY__V141*/ curfptr[140] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.GET_CTYPE__V142*/ curfptr[141] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.NLASTYP__V143*/ curfptr[142] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.CSYM__V144*/ curfptr[143] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.CBIND__V145*/ curfptr[144] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.CLOCC__V147*/ curfptr[146] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.RESBINDS__V149*/ curfptr[148] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.IFCPP___V150*/ curfptr[149] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.IFCPP___V152*/ curfptr[150] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3769:/ clear"); - /*clear*/ /*_.RETURN___V154*/ curfptr[152] = 0 ;} - ; - /*_.MULTI___V125*/ curfptr[87] = /*_.LET___V140*/ curfptr[116];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3751:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V128*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3751:/ clear"); - /*clear*/ /*_.IFCPP___V129*/ curfptr[79] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3751:/ clear"); - /*clear*/ /*_.LAMBDA___V131*/ curfptr[57] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3751:/ clear"); - /*clear*/ /*_.LIST_EVERY__V133*/ curfptr[114] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3751:/ clear"); - /*clear*/ /*_.LET___V140*/ curfptr[116] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3751:/ clear"); - /*clear*/ /*_.NBODBINDINGS__V127*/ curfptr[36] = 0 ;} - ; - /*_.LET___V62*/ curfptr[49] = /*_.MULTI___V125*/ curfptr[87];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3670:/ clear"); - /*clear*/ /*_#NBCONSBIND__L23*/ curfnum[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3670:/ clear"); - /*clear*/ /*_#CURCIX__L24*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3670:/ clear"); - /*clear*/ /*_.NLOCSYMS__V63*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3670:/ clear"); - /*clear*/ /*_.NCBINDTUP__V64*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3670:/ clear"); - /*clear*/ /*_.RECBINDINGS__V65*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3670:/ clear"); - /*clear*/ /*_.NLETREC__V66*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3670:/ clear"); - /*clear*/ /*_.IFCPP___V68*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3670:/ clear"); - /*clear*/ /*_.IFCPP___V123*/ curfptr[121] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3670:/ clear"); - /*clear*/ /*_.MULTI___V125*/ curfptr[87] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.LET___V62*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.SBINDS__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_#NBBIND__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.BINDLIST__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.CONSBINDLIST__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.NEWENV__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_#MAPLEN__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.SYMBEXPRMAP__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.SYMBINDMAP__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.IFCPP___V60*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3612:/ clear"); - /*clear*/ /*_.LET___V62*/ curfptr[49] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3607:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3607:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3607:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3607:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3607:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3607:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3607:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_LETREC", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_105_warmelt_normal_NORMEXP_LETREC*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_106_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_106_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 4 - void* varptr[4]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<4; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 4; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3758:/ getarg"); - /*_.CBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3758:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3759:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3759:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3759:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3759:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3759:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3759:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3759:/ locexp"); - melt_assert_failed(( "normexp_letrec check cbnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3759)?(3759):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3759:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3759:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3759:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3758:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V3*/ curfptr[2];; - MELT_LOCATION("warmelt-normal.melt:3758:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3758:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_106_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_107_warmelt_normal_NORMAL_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_107_warmelt_normal_NORMAL_PREDEF_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 21 - void* varptr[21]; -#define CURFRAM_NBVARNUM 8 - long varnum[8]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<21; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 21; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMAL_PREDEF", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3799:/ getarg"); - /*_.PRED__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3799:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3799:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3799:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.MSG__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MSG__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3799:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3800:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3800:/ block"); - /*block*/{ - /*_#IS_OBJECT__L1*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.PRED__V2*/ curfptr[1])) == OBMAG_OBJECT);; - MELT_LOCATION("warmelt-normal.melt:3800:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3800:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3800:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3800:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3800:/ locexp"); - melt_assert_failed(( "check pred"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3800)?(3800):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3800:/ clear"); - /*clear*/ /*_#IS_OBJECT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3800:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3800:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3801:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3801:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3801:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3801:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3801:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3801:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3801:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3801)?(3801):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3801:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3801:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3801:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3802:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3802:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V11*/ curfptr[10] = slot; }; - ; - /*_.BRK__V12*/ curfptr[11] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.PREDEFMAP__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.PRED__V2*/ curfptr[1]));; - /*_#IS_INTEGERBOX__L3*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.BRK__V12*/ curfptr[11])) == OBMAG_INT);; - MELT_LOCATION("warmelt-normal.melt:3804:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3804:/ cond.then"); - /*_#OR___L4*/ curfnum[3] = /*_#IS_INTEGERBOX__L3*/ curfnum[0];; - } else {MELT_LOCATION("warmelt-normal.melt:3804:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3804:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[4] = - melt_is_instance_of((melt_ptr_t)(/*_.BRK__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - /*_#OR___L4*/ curfnum[3] = /*_#IS_A__L5*/ curfnum[4];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3804:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:3804:/ cond"); - /*cond*/ if (/*_#OR___L4*/ curfnum[3]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3804:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3804:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3805:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3805:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[2])), (2), "CLASS_NREP_PREDEF");/*_.INST__V15*/ curfptr[14] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3805:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3805:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), (/*_.BRK__V12*/ curfptr[11]), "NRPREDEF"); - ; - /*_.INST___V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;} - ; - /*_.IFELSE___V13*/ curfptr[12] = /*_.INST___V14*/ curfptr[13];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3804:/ clear"); - /*clear*/ /*_.INST___V14*/ curfptr[13] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3804:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3804:/ block"); - /*block*/{ - /*_#IS_STRING__L6*/ curfnum[4] = - (melt_magic_discr((melt_ptr_t)(/*_.MSG__V5*/ curfptr[4])) == OBMAG_STRING);; - MELT_LOCATION("warmelt-normal.melt:3808:/ cond"); - /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[4]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3808:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3808:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3810:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3810:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3810:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg"); - argtab[0].bp_cstring = "normalpredef predefmap"; - MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg"); - argtab[3].bp_long = 3810; - /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PREDEFMAP__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3810:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3810:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3810:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3811:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3811:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3811:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg"); - argtab[0].bp_cstring = "normalpredef pred"; - MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg"); - argtab[3].bp_long = 3811; - /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PRED__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3811:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3811:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3811:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:3812:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3]), ( "not a predef:"), (melt_ptr_t)(/*_.MSG__V5*/ curfptr[4]));} - ; - MELT_LOCATION("warmelt-normal.melt:3809:/ block"); - /*block*/{ - /*_.PROGN___V21*/ curfptr[19] = (/*nil*/NULL);;} - ; - /*_.IF___V16*/ curfptr[13] = /*_.PROGN___V21*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3808:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3808:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3808:/ clear"); - /*clear*/ /*_.PROGN___V21*/ curfptr[19] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3808:/ cond.else"); - - /*_.IF___V16*/ curfptr[13] = NULL;; - } - ; - /*_.IFELSE___V13*/ curfptr[12] = /*_.IF___V16*/ curfptr[13];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3804:/ clear"); - /*clear*/ /*_#IS_STRING__L6*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3804:/ clear"); - /*clear*/ /*_.IF___V16*/ curfptr[13] = 0 ;} - ; - } - ; - /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3802:/ clear"); - /*clear*/ /*_.PREDEFMAP__V11*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3802:/ clear"); - /*clear*/ /*_.BRK__V12*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3802:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3802:/ clear"); - /*clear*/ /*_#OR___L4*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3802:/ clear"); - /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3799:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; - MELT_LOCATION("warmelt-normal.melt:3799:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3799:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3799:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3799:/ clear"); - /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMAL_PREDEF", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_107_warmelt_normal_NORMAL_PREDEF*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 36 - void* varptr[36]; -#define CURFRAM_NBVARNUM 8 - long varnum[8]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<36; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 36; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMAL_SYMBOL_DATA", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3818:/ getarg"); - /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3818:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3818:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3818:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3820:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3820:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3820:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg"); - argtab[0].bp_cstring = "normal_symbol_data start sym"; - MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg"); - argtab[3].bp_long = 3820; - /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3820:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3820:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3820:/ cppif.else"); - /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3821:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3821:/ block"); - /*block*/{ - /*_.DISCRIM__V8*/ curfptr[7] = - (melt_discr((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1])));; - /*_#__L2*/ curfnum[0] = - ((/*_.DISCRIM__V8*/ curfptr[7]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3821:/ cond"); - /*cond*/ if (/*_#__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3821:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3821:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3821:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3821:/ locexp"); - melt_assert_failed(( "check symb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3821)?(3821):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3821:/ clear"); - /*clear*/ /*_.DISCRIM__V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3821:/ clear"); - /*clear*/ /*_#__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3821:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3821:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3822:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3822:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3822:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3822:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3822:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3822:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3822:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3822)?(3822):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[7] = /*_.IFELSE___V11*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3822:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3822:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3822:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3823:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3823:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 8, "NCTX_VALMAP");/*_.VALMAP__V13*/ curfptr[12] = slot; }; - ; - /*_.OSYDATA__V14*/ curfptr[13] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VALMAP__V13*/ curfptr[12]), (meltobject_ptr_t)(/*_.SYM__V2*/ curfptr[1]));; - MELT_LOCATION("warmelt-normal.melt:3825:/ cond"); - /*cond*/ if (/*_.OSYDATA__V14*/ curfptr[13]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3825:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3825:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3827:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3827:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3827:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg"); - argtab[0].bp_cstring = "normal_symbol_data found osydata"; - MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg"); - argtab[3].bp_long = 3827; - /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OSYDATA__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3827:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3827:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3827:/ cppif.else"); - /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3828:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.OSYDATA__V14*/ curfptr[13];; - MELT_LOCATION("warmelt-normal.melt:3828:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:3826:/ block"); - /*block*/{ - /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[16];;} - ; - /*_.IFELSE___V15*/ curfptr[14] = /*_.PROGN___V19*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3825:/ clear"); - /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3825:/ clear"); - /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3825:/ clear"); - /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3825:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3825:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3829:/ block"); - /*block*/{ - /*_#SYHASH__L5*/ curfnum[0] = - (melt_obj_hash((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1])));; - MELT_LOCATION("warmelt-normal.melt:3830:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYNAMSTR__V21*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3834:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3834:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:3834:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3834:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V22*/ curfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[4])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3833:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3833:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[3])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V24*/ curfptr[23] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3833:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.NORMAL_PREDEF__V22*/ curfptr[18]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:3833:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (5), (/*_.SYNAMSTR__V21*/ curfptr[16]), "NSTR_STRING"); - ; - /*_.SYNAMSTRDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} - ; - MELT_LOCATION("warmelt-normal.melt:3838:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V25*/ curfptr[24] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = - (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V25*/ curfptr[24])));; - /*_.SYSLOTS__V26*/ curfptr[25] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L6*/ curfnum[5])));; - MELT_LOCATION("warmelt-normal.melt:3841:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3841:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:3841:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3841:/ apply.arg"); - argtab[2].bp_cstring = "class_symbol"; - /*_.NORMAL_PREDEF__V27*/ curfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (/*_#SYHASH__L5*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:3839:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3839:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[7])), (10), "CLASS_NREP_DATASYMBOL");/*_.INST__V30*/ curfptr[29] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3839:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.SYM__V2*/ curfptr[1]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:3839:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.NORMAL_PREDEF__V27*/ curfptr[26]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:3839:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (7), (/*_.MAKE_INTEGERBOX__V28*/ curfptr[27]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:3839:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (8), (/*_.SYSLOTS__V26*/ curfptr[25]), "NINST_SLOTS"); - ; - MELT_LOCATION("warmelt-normal.melt:3839:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDSY_NAMESTR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (9), (/*_.SYNAMSTR__V21*/ curfptr[16]), "NDSY_NAMESTR"); - ; - /*_.SYDATA__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} - ; - /*_#OBJ_NUM__L7*/ curfnum[6] = - (melt_obj_num((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[9]))));; - - { - MELT_LOCATION("warmelt-normal.melt:3846:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SYSLOTS__V26*/ curfptr[25]), (/*_#OBJ_NUM__L7*/ curfnum[6]), (melt_ptr_t)(/*_.SYNAMSTRDATA__V23*/ curfptr[22]));} - ; - MELT_LOCATION("warmelt-normal.melt:3847:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3847:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYDATA__V29*/ curfptr[28]; - /*_.ADD_NCTX_DATA__V31*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3848:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3848:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYNAMSTRDATA__V23*/ curfptr[22]; - /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:3849:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VALMAP__V13*/ curfptr[12]), - (meltobject_ptr_t) (/*_.SYM__V2*/ curfptr[1]), - (melt_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]));} - ; - MELT_LOCATION("warmelt-normal.melt:3850:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 4, "NCTX_SYMBMAP");/*_.NCTX_SYMBMAP__V33*/ curfptr[32] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3850:/ locexp"); - meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.NCTX_SYMBMAP__V33*/ curfptr[32]), melt_string_str((melt_ptr_t)(/*_.SYNAMSTR__V21*/ curfptr[16])), (melt_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3851:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3851:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[7] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3851:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg"); - argtab[0].bp_cstring = "normal_symbol_data return sydata"; - MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg"); - argtab[3].bp_long = 3851; - /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3851:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3851:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3851:/ cppif.else"); - /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3852:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.SYDATA__V29*/ curfptr[28];; - MELT_LOCATION("warmelt-normal.melt:3852:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V20*/ curfptr[15] = /*_.RETURN___V36*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_#SYHASH__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.SYNAMSTR__V21*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V22*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.SYNAMSTRDATA__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.SYSLOTS__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.SYDATA__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_#OBJ_NUM__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.NCTX_SYMBMAP__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3829:/ clear"); - /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;} - ; - /*_.IFELSE___V15*/ curfptr[14] = /*_.LET___V20*/ curfptr[15];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3825:/ clear"); - /*clear*/ /*_.LET___V20*/ curfptr[15] = 0 ;} - ; - } - ; - /*_.LET___V12*/ curfptr[8] = /*_.IFELSE___V15*/ curfptr[14];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3823:/ clear"); - /*clear*/ /*_.VALMAP__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3823:/ clear"); - /*clear*/ /*_.OSYDATA__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3823:/ clear"); - /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3818:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[8];; - MELT_LOCATION("warmelt-normal.melt:3818:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3818:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3818:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3818:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3818:/ clear"); - /*clear*/ /*_.LET___V12*/ curfptr[8] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMAL_SYMBOL_DATA", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 28 - void* varptr[28]; -#define CURFRAM_NBVARNUM 5 - long varnum[5]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<28; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 28; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMAL_KEYWORD_DATA", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3858:/ getarg"); - /*_.KEYW__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3858:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3858:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3858:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3860:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3860:/ block"); - /*block*/{ - /*_.DISCRIM__V6*/ curfptr[5] = - (melt_discr((melt_ptr_t)(/*_.KEYW__V2*/ curfptr[1])));; - /*_#__L1*/ curfnum[0] = - ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3860:/ cond"); - /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3860:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3860:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3860:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3860:/ locexp"); - melt_assert_failed(( "check keywb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3860)?(3860):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3860:/ clear"); - /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3860:/ clear"); - /*clear*/ /*_#__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3860:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3860:/ cppif.else"); - /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3861:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3861:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3861:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3861:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3861:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3861:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3861:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3861)?(3861):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[5] = /*_.IFELSE___V9*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3861:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3861:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3861:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3862:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3862:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 8, "NCTX_VALMAP");/*_.VALMAP__V11*/ curfptr[10] = slot; }; - ; - /*_.OSYDATA__V12*/ curfptr[11] = - melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VALMAP__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.KEYW__V2*/ curfptr[1]));; - MELT_LOCATION("warmelt-normal.melt:3864:/ cond"); - /*cond*/ if (/*_.OSYDATA__V12*/ curfptr[11]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3864:/ cond.then"); - /*_.IFELSE___V13*/ curfptr[12] = /*_.OSYDATA__V12*/ curfptr[11];; - } else {MELT_LOCATION("warmelt-normal.melt:3864:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3864:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3865:/ block"); - /*block*/{ - /*_#SYHASH__L3*/ curfnum[0] = - (melt_obj_hash((melt_ptr_t)(/*_.KEYW__V2*/ curfptr[1])));; - MELT_LOCATION("warmelt-normal.melt:3866:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.KEYW__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYNAMSTR__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3870:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3870:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:3870:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3870:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V16*/ curfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3869:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3869:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[2])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V18*/ curfptr[17] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3869:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), (/*_.NORMAL_PREDEF__V16*/ curfptr[15]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:3869:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (5), (/*_.SYNAMSTR__V15*/ curfptr[14]), "NSTR_STRING"); - ; - /*_.SYNAMSTRDATA__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;} - ; - MELT_LOCATION("warmelt-normal.melt:3874:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V19*/ curfptr[18] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L4*/ curfnum[3] = - (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V19*/ curfptr[18])));; - /*_.SYSLOTS__V20*/ curfptr[19] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[3])));; - MELT_LOCATION("warmelt-normal.melt:3877:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3877:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:3877:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3877:/ apply.arg"); - argtab[2].bp_cstring = "class_keyword"; - /*_.NORMAL_PREDEF__V21*/ curfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.MAKE_INTEGERBOX__V22*/ curfptr[21] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#SYHASH__L3*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:3875:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3875:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[6])), (10), "CLASS_NREP_DATAKEYWORD");/*_.INST__V24*/ curfptr[23] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3875:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.KEYW__V2*/ curfptr[1]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:3875:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.NORMAL_PREDEF__V21*/ curfptr[20]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:3875:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (7), (/*_.MAKE_INTEGERBOX__V22*/ curfptr[21]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:3875:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (8), (/*_.SYSLOTS__V20*/ curfptr[19]), "NINST_SLOTS"); - ; - MELT_LOCATION("warmelt-normal.melt:3875:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDSY_NAMESTR", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (9), (/*_.SYNAMSTR__V15*/ curfptr[14]), "NDSY_NAMESTR"); - ; - /*_.SYDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} - ; - /*_#OBJ_NUM__L5*/ curfnum[4] = - (melt_obj_num((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[8]))));; - - { - MELT_LOCATION("warmelt-normal.melt:3882:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SYSLOTS__V20*/ curfptr[19]), (/*_#OBJ_NUM__L5*/ curfnum[4]), (melt_ptr_t)(/*_.SYNAMSTRDATA__V17*/ curfptr[16]));} - ; - MELT_LOCATION("warmelt-normal.melt:3883:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3883:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYDATA__V23*/ curfptr[22]; - /*_.ADD_NCTX_DATA__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3884:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3884:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYNAMSTRDATA__V17*/ curfptr[16]; - /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:3885:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VALMAP__V11*/ curfptr[10]), - (meltobject_ptr_t) (/*_.KEYW__V2*/ curfptr[1]), - (melt_ptr_t)(/*_.SYDATA__V23*/ curfptr[22]));} - ; - MELT_LOCATION("warmelt-normal.melt:3886:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 5, "NCTX_KEYWMAP");/*_.NCTX_KEYWMAP__V27*/ curfptr[26] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3886:/ locexp"); - meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.NCTX_KEYWMAP__V27*/ curfptr[26]), melt_string_str((melt_ptr_t)(/*_.SYNAMSTR__V15*/ curfptr[14])), (melt_ptr_t)(/*_.SYDATA__V23*/ curfptr[22]));} - ; - MELT_LOCATION("warmelt-normal.melt:3887:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.SYDATA__V23*/ curfptr[22];; - MELT_LOCATION("warmelt-normal.melt:3887:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V14*/ curfptr[13] = /*_.RETURN___V28*/ curfptr[27];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_#SYHASH__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.SYNAMSTR__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.SYNAMSTRDATA__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.SYSLOTS__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.SYDATA__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_#OBJ_NUM__L5*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.NCTX_KEYWMAP__V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3865:/ clear"); - /*clear*/ /*_.RETURN___V28*/ curfptr[27] = 0 ;} - ; - /*_.IFELSE___V13*/ curfptr[12] = /*_.LET___V14*/ curfptr[13];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3864:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;} - ; - } - ; - /*_.LET___V10*/ curfptr[6] = /*_.IFELSE___V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3862:/ clear"); - /*clear*/ /*_.VALMAP__V11*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3862:/ clear"); - /*clear*/ /*_.OSYDATA__V12*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3862:/ clear"); - /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3858:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[6];; - MELT_LOCATION("warmelt-normal.melt:3858:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3858:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3858:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3858:/ clear"); - /*clear*/ /*_.LET___V10*/ curfptr[6] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMAL_KEYWORD_DATA", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_110_warmelt_normal_CREATE_DATA_SLOTS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_110_warmelt_normal_CREATE_DATA_SLOTS_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 11 - void* varptr[11]; -#define CURFRAM_NBVARNUM 4 - long varnum[4]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<11; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 11; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("CREATE_DATA_SLOTS", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3892:/ getarg"); - /*_.CLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3892:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3893:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3893:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3893:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3893:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3893:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3893:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3893:/ locexp"); - melt_assert_failed(( "check cla"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3893)?(3893):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3893:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3893:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3893:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3894:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3894:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3894:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg"); - argtab[0].bp_cstring = "create_data_slots cla"; - MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg"); - argtab[3].bp_long = 3894; - /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3894:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3894:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3894:/ cppif.else"); - /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3895:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3896:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V8*/ curfptr[7] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V8*/ curfptr[7])));; - /*_.TUPSLO__V9*/ curfptr[8] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0])));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3898:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3898:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[3] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3898:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg"); - argtab[0].bp_cstring = "create_data_slots tupslo"; - MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; - MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg"); - argtab[3].bp_long = 3898; - /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.TUPSLO__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3898:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3898:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3898:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V7*/ curfptr[5] = /*_.TUPSLO__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3895:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3895:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3895:/ clear"); - /*clear*/ /*_.TUPSLO__V9*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3895:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3892:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; - MELT_LOCATION("warmelt-normal.melt:3892:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3892:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3892:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3892:/ clear"); - /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("CREATE_DATA_SLOTS", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_110_warmelt_normal_CREATE_DATA_SLOTS*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_111_warmelt_normal_FILL_DATA_SLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_111_warmelt_normal_FILL_DATA_SLOT_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 9 - void* varptr[9]; -#define CURFRAM_NBVARNUM 3 - long varnum[3]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<9; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 9; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("FILL_DATA_SLOT", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3903:/ getarg"); - /*_.DI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3903:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.FIELD__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.FIELD__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3903:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.VAL__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V4*/ curfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3903:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3904:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3904:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.DI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3904:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3904:/ cond.then"); - /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3904:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3904:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3904:/ locexp"); - melt_assert_failed(( "check di"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3904)?(3904):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3904:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3904:/ clear"); - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3904:/ cppif.else"); - /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3905:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3905:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.FIELD__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3905:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3905:/ cond.then"); - /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3905:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3905:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3905:/ locexp"); - melt_assert_failed(( "check field"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3905)?(3905):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3905:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3905:/ clear"); - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3905:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3906:/ block"); - /*block*/{ - /*_#FIX__L3*/ curfnum[0] = - (melt_obj_num((melt_ptr_t)(/*_.FIELD__V3*/ curfptr[2])));; - MELT_LOCATION("warmelt-normal.melt:3907:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.DI__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.SLOTS__V9*/ curfptr[7] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3908:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTS__V9*/ curfptr[7]), (/*_#FIX__L3*/ curfnum[0]), (melt_ptr_t)(/*_.VAL__V4*/ curfptr[3]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3906:/ clear"); - /*clear*/ /*_#FIX__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3906:/ clear"); - /*clear*/ /*_.SLOTS__V9*/ curfptr[7] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3903:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3903:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("FILL_DATA_SLOT", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_111_warmelt_normal_FILL_DATA_SLOT*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_112_warmelt_normal_NORMEXP_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_112_warmelt_normal_NORMEXP_QUOTE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 49 - void* varptr[49]; -#define CURFRAM_NBVARNUM 11 - long varnum[11]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<49; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 49; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_QUOTE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3913:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3913:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3913:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3913:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3913:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3914:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3914:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_QUOTE*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3914:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3914:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3914:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3914:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3914:/ locexp"); - melt_assert_failed(( "check quote recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3914)?(3914):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3914:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3914:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3914:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3915:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3915:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3915:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3915:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3915:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3915:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3915:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3915)?(3915):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3915:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3915:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3915:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3916:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3916:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3916:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3916:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3916:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3916:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3916:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3916)?(3916):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3916:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3916:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3916:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3918:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3918:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3918:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg"); - argtab[0].bp_cstring = "normexp_quote recv"; - MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg"); - argtab[3].bp_long = 3918; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3918:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3918:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3918:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3919:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3919:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3920:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SQUOTED");/*_.QUOTED__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3921:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V17*/ curfptr[16] = slot; }; - ; - /*_.DISCRIM__V18*/ curfptr[17] = - (melt_discr((melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15])));; - /*_#__L5*/ curfnum[0] = - ((/*_.DISCRIM__V18*/ curfptr[17]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:3924:/ cond"); - /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3924:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3924:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3925:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3925:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3925:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4]; - /*_.NORMAL_SYMBOL_DATA__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.NDATA__V19*/ curfptr[18] = /*_.NORMAL_SYMBOL_DATA__V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3924:/ clear"); - /*clear*/ /*_.NORMAL_SYMBOL_DATA__V20*/ curfptr[19] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3924:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3924:/ block"); - /*block*/{ - /*_#IS_INTEGERBOX__L6*/ curfnum[5] = - (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15])) == OBMAG_INT);; - MELT_LOCATION("warmelt-normal.melt:3926:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L6*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3926:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3926:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3927:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3929:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3929:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3929:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:3929:/ apply.arg"); - argtab[2].bp_cstring = "discr_constant_integer"; - /*_.NORMAL_PREDEF__V23*/ curfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ curfrout->tabval[8])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3928:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3928:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATABOXEDINTEGER*/ curfrout->tabval[6])), (6), "CLASS_NREP_DATABOXEDINTEGER");/*_.INST__V25*/ curfptr[24] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3928:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.NORMAL_PREDEF__V23*/ curfptr[22]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:3928:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NBOXINT_NUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (5), (/*_.QUOTED__V16*/ curfptr[15]), "NBOXINT_NUM"); - ; - /*_.NINTDATA__V24*/ curfptr[23] = /*_.INST__V25*/ curfptr[24];;} - ; - MELT_LOCATION("warmelt-normal.melt:3932:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3932:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NINTDATA__V24*/ curfptr[23]; - /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.LET___V22*/ curfptr[21] = /*_.NINTDATA__V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3927:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3927:/ clear"); - /*clear*/ /*_.NINTDATA__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3927:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = 0 ;} - ; - /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3926:/ clear"); - /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3926:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3926:/ block"); - /*block*/{ - /*_#IS_STRING__L7*/ curfnum[6] = - (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15])) == OBMAG_STRING);; - MELT_LOCATION("warmelt-normal.melt:3935:/ cond"); - /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[6]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3935:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3935:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3936:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3938:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3938:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:3938:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:3938:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V29*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[11])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3937:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3937:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[10])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V31*/ curfptr[30] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3937:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V29*/ curfptr[25]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:3937:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (5), (/*_.QUOTED__V16*/ curfptr[15]), "NSTR_STRING"); - ; - /*_.NSTRDATA__V30*/ curfptr[21] = /*_.INST__V31*/ curfptr[30];;} - ; - MELT_LOCATION("warmelt-normal.melt:3941:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3941:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSTRDATA__V30*/ curfptr[21]; - /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.LET___V28*/ curfptr[23] = /*_.NSTRDATA__V30*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3936:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3936:/ clear"); - /*clear*/ /*_.NSTRDATA__V30*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3936:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = 0 ;} - ; - /*_.IFELSE___V27*/ curfptr[22] = /*_.LET___V28*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3935:/ clear"); - /*clear*/ /*_.LET___V28*/ curfptr[23] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3935:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3935:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3946:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3946:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3946:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3946:/ cond.then"); - /*_.IFELSE___V34*/ curfptr[21] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3946:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3946:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3946:/ locexp"); - melt_assert_failed(( "unexpected quoted stuff"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3946)?(3946):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V33*/ curfptr[25] = /*_.IFELSE___V34*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3946:/ clear"); - /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3946:/ cppif.else"); - /*_.IFCPP___V33*/ curfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3943:/ block"); - /*block*/{ - /*_.PROGN___V35*/ curfptr[31] = /*_.IFCPP___V33*/ curfptr[25];;} - ; - /*_.IFELSE___V27*/ curfptr[22] = /*_.PROGN___V35*/ curfptr[31];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3935:/ clear"); - /*clear*/ /*_.IFCPP___V33*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3935:/ clear"); - /*clear*/ /*_.PROGN___V35*/ curfptr[31] = 0 ;} - ; - } - ; - /*_.IFELSE___V21*/ curfptr[19] = /*_.IFELSE___V27*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3926:/ clear"); - /*clear*/ /*_#IS_STRING__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3926:/ clear"); - /*clear*/ /*_.IFELSE___V27*/ curfptr[22] = 0 ;} - ; - } - ; - /*_.NDATA__V19*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3924:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3924:/ clear"); - /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;} - ; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3950:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3950:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3950:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg"); - argtab[0].bp_cstring = "normexp_quote ndata"; - MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg"); - argtab[3].bp_long = 3950; - /*_.DEBUG_MSG_FUN__V37*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NDATA__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V36*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3950:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3950:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3950:/ cppif.else"); - /*_.IFCPP___V36*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_A__L9*/ curfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[12])));; - MELT_LOCATION("warmelt-normal.melt:3951:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3951:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3951:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3952:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3953:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3953:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[13])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V41*/ curfptr[19] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3953:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3953:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (1), (/*_.QUOTED__V16*/ curfptr[15]), "NCONST_SVAL"); - ; - MELT_LOCATION("warmelt-normal.melt:3953:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (3), (/*_.NDATA__V19*/ curfptr[18]), "NCONST_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:3953:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (2), (/*_.CURPROC__V17*/ curfptr[16]), "NCONST_PROC"); - ; - /*_.NCONST__V40*/ curfptr[22] = /*_.INST__V41*/ curfptr[19];;} - ; - MELT_LOCATION("warmelt-normal.melt:3959:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V17*/ curfptr[16]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V42*/ curfptr[21] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:3959:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V42*/ curfptr[21]), (melt_ptr_t)(/*_.NDATA__V19*/ curfptr[18]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3960:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3960:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3960:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg"); - argtab[0].bp_cstring = "normexp_quote in routine nconst"; - MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg"); - argtab[3].bp_long = 3960; - /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCONST__V40*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3960:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3960:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3960:/ cppif.else"); - /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3961:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NCONST__V40*/ curfptr[22];; - MELT_LOCATION("warmelt-normal.melt:3961:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V39*/ curfptr[31] = /*_.RETURN___V45*/ curfptr[43];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3952:/ clear"); - /*clear*/ /*_.NCONST__V40*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3952:/ clear"); - /*clear*/ /*_.NRPRO_CONST__V42*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3952:/ clear"); - /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3952:/ clear"); - /*clear*/ /*_.RETURN___V45*/ curfptr[43] = 0 ;} - ; - /*_.IFELSE___V38*/ curfptr[25] = /*_.LET___V39*/ curfptr[31];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3951:/ clear"); - /*clear*/ /*_.LET___V39*/ curfptr[31] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3951:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3951:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3963:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3963:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L11*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3963:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg"); - argtab[0].bp_cstring = "normexp_quote in init ndata"; - MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg"); - argtab[3].bp_long = 3963; - /*_.DEBUG_MSG_FUN__V47*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NDATA__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V46*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3963:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3963:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3963:/ cppif.else"); - /*_.IFCPP___V46*/ curfptr[22] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3964:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NDATA__V19*/ curfptr[18];; - MELT_LOCATION("warmelt-normal.melt:3964:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:3962:/ block"); - /*block*/{ - /*_.PROGN___V49*/ curfptr[43] = /*_.RETURN___V48*/ curfptr[42];;} - ; - /*_.IFELSE___V38*/ curfptr[25] = /*_.PROGN___V49*/ curfptr[43];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3951:/ clear"); - /*clear*/ /*_.IFCPP___V46*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3951:/ clear"); - /*clear*/ /*_.RETURN___V48*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3951:/ clear"); - /*clear*/ /*_.PROGN___V49*/ curfptr[43] = 0 ;} - ; - } - ; - /*_.LET___V14*/ curfptr[12] = /*_.IFELSE___V38*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3919:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3919:/ clear"); - /*clear*/ /*_.QUOTED__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3919:/ clear"); - /*clear*/ /*_.CURPROC__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3919:/ clear"); - /*clear*/ /*_.DISCRIM__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3919:/ clear"); - /*clear*/ /*_#__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3919:/ clear"); - /*clear*/ /*_.NDATA__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3919:/ clear"); - /*clear*/ /*_.IFCPP___V36*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3919:/ clear"); - /*clear*/ /*_#IS_A__L9*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3919:/ clear"); - /*clear*/ /*_.IFELSE___V38*/ curfptr[25] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3913:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3913:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3913:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3913:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3913:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3913:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3913:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_QUOTE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_112_warmelt_normal_NORMEXP_QUOTE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_113_warmelt_normal_NORMEXP_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_113_warmelt_normal_NORMEXP_COMMENT_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 34 - void* varptr[34]; -#define CURFRAM_NBVARNUM 8 - long varnum[8]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<34; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 34; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_COMMENT", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:3969:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:3969:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:3969:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:3969:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:3969:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3970:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3970:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_COMMENT*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:3970:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3970:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3970:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3970:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3970:/ locexp"); - melt_assert_failed(( "check comment recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3970)?(3970):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3970:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3970:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3970:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3971:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3971:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:3971:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3971:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3971:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3971:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3971:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3971)?(3971):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3971:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3971:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3971:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3972:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3972:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:3972:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3972:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3972:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3972:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3972:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3972)?(3972):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3972:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3972:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3972:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3973:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3973:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3973:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg"); - argtab[0].bp_cstring = "normexp_comment start recv"; - MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg"); - argtab[3].bp_long = 3973; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3973:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3973:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3973:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3974:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3974:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3975:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SCOMM_STR");/*_.SCOMM__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:3976:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3976:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_COMMENT*/ curfrout->tabval[4])), (2), "CLASS_NREP_COMMENT");/*_.INST__V18*/ curfptr[17] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3976:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3976:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCOMM_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.SCOMM__V16*/ curfptr[15]), "NCOMM_STRING"); - ; - /*_.NCOMM__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;} - ; - MELT_LOCATION("warmelt-normal.melt:3980:/ apply"); - /*apply*/{ - /*_.CSYM__V19*/ curfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_COMMENT_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:3981:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3981:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ curfptr[20] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3981:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3981:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.CSYM__V19*/ curfptr[18]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:3981:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[8])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:3981:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.NCOMM__V17*/ curfptr[16]), "LETBIND_EXPR"); - ; - /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} - ; - MELT_LOCATION("warmelt-normal.melt:3986:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:3986:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[9])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:3986:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:3986:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[8])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:3986:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.CSYM__V19*/ curfptr[18]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:3986:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND"); - ; - /*_.CLOCC__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} - ; - /*_.BINDLIST__V24*/ curfptr[23] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[10]))));; - MELT_LOCATION("warmelt-normal.melt:3993:/ cond"); - /*cond*/ if (/*_.SCOMM__V16*/ curfptr[15]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3993:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:3993:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3993:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3993:/ block"); - /*block*/{ - /*_#IS_STRING__L5*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.SCOMM__V16*/ curfptr[15])) == OBMAG_STRING);; - MELT_LOCATION("warmelt-normal.melt:3993:/ cond"); - /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:3993:/ cond.then"); - /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:3993:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:3993:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:3993:/ locexp"); - melt_assert_failed(( "check scomm"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (3993)?(3993):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V26*/ curfptr[25] = /*_.IFELSE___V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3993:/ clear"); - /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3993:/ clear"); - /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3993:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.IF___V25*/ curfptr[24] = /*_.IFCPP___V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3993:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:3993:/ cond.else"); - - /*_.IF___V25*/ curfptr[24] = NULL;; - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:3994:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V24*/ curfptr[23]), (melt_ptr_t)(/*_.CBIND__V20*/ curfptr[19]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3995:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3995:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3995:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg"); - argtab[0].bp_cstring = "normexp_comment end ncomm"; - MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg"); - argtab[3].bp_long = 3995; - /*_.DEBUG_MSG_FUN__V29*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCOMM__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3995:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3995:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3995:/ cppif.else"); - /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3996:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3996:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3996:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg"); - argtab[0].bp_cstring = "normexp_comment return clocc"; - MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg"); - argtab[3].bp_long = 3996; - /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V30*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3996:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3996:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3996:/ cppif.else"); - /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:3997:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:3997:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:3997:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg"); - argtab[0].bp_cstring = "normexp_comment return bindlist"; - MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg"); - argtab[3].bp_long = 3997; - /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3997:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3997:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:3997:/ cppif.else"); - /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:3998:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V22*/ curfptr[21];; - MELT_LOCATION("warmelt-normal.melt:3998:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V24*/ curfptr[23]); - ; - MELT_LOCATION("warmelt-normal.melt:3998:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V34*/ curfptr[32];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.NCOMM__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.CSYM__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.CLOCC__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.BINDLIST__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3974:/ clear"); - /*clear*/ /*_.RETURN___V34*/ curfptr[32] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:3969:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:3969:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:3969:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3969:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3969:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3969:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:3969:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_COMMENT", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_113_warmelt_normal_NORMEXP_COMMENT*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_114_warmelt_normal_NORMEXP_KEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_114_warmelt_normal_NORMEXP_KEYWORD_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 32 - void* varptr[32]; -#define CURFRAM_NBVARNUM 9 - long varnum[9]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<32; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 32; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_KEYWORD", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4003:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4003:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4003:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4003:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4003:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4004:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4004:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4004:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4004:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4004:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4004:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4004:/ locexp"); - melt_assert_failed(( "check keyword recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4004)?(4004):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4004:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4004:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4004:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4005:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4005:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4005:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4005:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4005:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4005:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4005:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4005)?(4005):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4005:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4005:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4005:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4006:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4006:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:4006:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4006:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4006:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4006:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4006:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4006)?(4006):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4006:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4006:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4006:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4008:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4008:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4008:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg"); - argtab[0].bp_cstring = "normexp_keyword recv"; - MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg"); - argtab[3].bp_long = 4008; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4008:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4008:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4008:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4009:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4009:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4009:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4009:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4]; - /*_.KDATA__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_KEYWORD_DATA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4010:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V16*/ curfptr[15] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4012:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4012:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:4012:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4012:/ cond.then"); - /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4012:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4012:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4012:/ locexp"); - melt_assert_failed(( "check curproc"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4012)?(4012):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4012:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4012:/ clear"); - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4012:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_A__L6*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));; - MELT_LOCATION("warmelt-normal.melt:4013:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4013:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4013:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4014:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4015:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), 5, "NRPRO_CONST");/*_.CONSTLIST__V21*/ curfptr[20] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4016:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4016:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[7])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V23*/ curfptr[22] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4016:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4016:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL"); - ; - MELT_LOCATION("warmelt-normal.melt:4016:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.KDATA__V15*/ curfptr[14]), "NCONST_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:4016:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.CURPROC__V16*/ curfptr[15]), "NCONST_PROC"); - ; - /*_.NCONST__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4022:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4022:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4022:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg"); - argtab[0].bp_cstring = "normexp_keyword routine curproc"; - MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg"); - argtab[3].bp_long = 4022; - /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4022:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4022:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4022:/ cppif.else"); - /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:4023:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.CONSTLIST__V21*/ curfptr[20]), (melt_ptr_t)(/*_.KDATA__V15*/ curfptr[14]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4024:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4024:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4024:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg"); - argtab[0].bp_cstring = "normexp_keyword result nconst"; - MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg"); - argtab[3].bp_long = 4024; - /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCONST__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4024:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4024:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4024:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4025:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NCONST__V22*/ curfptr[21];; - MELT_LOCATION("warmelt-normal.melt:4025:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V20*/ curfptr[19] = /*_.RETURN___V28*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4014:/ clear"); - /*clear*/ /*_.CONSTLIST__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4014:/ clear"); - /*clear*/ /*_.NCONST__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4014:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4014:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4014:/ clear"); - /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;} - ; - /*_.IFELSE___V19*/ curfptr[17] = /*_.LET___V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4013:/ clear"); - /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4013:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4013:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4028:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4028:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4028:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg"); - argtab[0].bp_cstring = "normexp_keyword routineinit result kdata"; - MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg"); - argtab[3].bp_long = 4028; - /*_.DEBUG_MSG_FUN__V30*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.KDATA__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V29*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4028:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4028:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4028:/ cppif.else"); - /*_.IFCPP___V29*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4029:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.KDATA__V15*/ curfptr[14];; - MELT_LOCATION("warmelt-normal.melt:4029:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:4027:/ block"); - /*block*/{ - /*_.PROGN___V32*/ curfptr[24] = /*_.RETURN___V31*/ curfptr[23];;} - ; - /*_.IFELSE___V19*/ curfptr[17] = /*_.PROGN___V32*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4013:/ clear"); - /*clear*/ /*_.IFCPP___V29*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4013:/ clear"); - /*clear*/ /*_.RETURN___V31*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4013:/ clear"); - /*clear*/ /*_.PROGN___V32*/ curfptr[24] = 0 ;} - ; - } - ; - /*_.LET___V14*/ curfptr[12] = /*_.IFELSE___V19*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4009:/ clear"); - /*clear*/ /*_.KDATA__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4009:/ clear"); - /*clear*/ /*_.CURPROC__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4009:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4009:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4009:/ clear"); - /*clear*/ /*_.IFELSE___V19*/ curfptr[17] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4003:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:4003:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4003:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4003:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4003:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4003:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4003:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_KEYWORD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_114_warmelt_normal_NORMEXP_KEYWORD*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 24 - void* varptr[24]; -#define CURFRAM_NBVARNUM 3 - long varnum[3]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<24; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 24; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("FILL_NORMAL_FORMALBIND", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4036:/ getarg"); - /*_.FARGB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4036:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.FORMSYMBMAP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMSYMBMAP__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4036:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4036:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:4036:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ curfptr[5])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4036:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4037:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4037:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4037:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4037:/ cond.then"); - /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4037:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4037:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4037:/ locexp"); - melt_assert_failed(( "check fargb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4037)?(4037):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4037:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4037:/ clear"); - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4037:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4038:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4038:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.FTYP__V10*/ curfptr[9] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4039:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), 0, "BINDER");/*_.FSYMB__V11*/ curfptr[10] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4040:/ apply"); - /*apply*/{ - /*_.FDATASLOT__V12*/ curfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!CREATE_DATA_SLOTS*/ curfrout->tabval[1])), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4045:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4045:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:4045:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ curfptr[5]; - MELT_LOCATION("warmelt-normal.melt:4045:/ apply.arg"); - argtab[2].bp_cstring = "class_formal_binding"; - /*_.NORMAL_PREDEF__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#NONZERO_HASH__L2*/ curfnum[0] = - (melt_nonzerohash());; - /*_.MAKE_INTEGERBOX__V14*/ curfptr[13] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#NONZERO_HASH__L2*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:4042:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4042:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[2])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V16*/ curfptr[15] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4042:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), (/*_.SLOC__V6*/ curfptr[5]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4042:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.NORMAL_PREDEF__V13*/ curfptr[12]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4042:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (7), (/*_.MAKE_INTEGERBOX__V14*/ curfptr[13]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:4042:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (8), (/*_.FDATASLOT__V12*/ curfptr[11]), "NINST_SLOTS"); - ; - /*_.FARGDATA__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;} - ; - MELT_LOCATION("warmelt-normal.melt:4049:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4049:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:4049:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ curfptr[5]; - /*_.FSYMBDATA__V17*/ curfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.FSYMB__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4050:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4050:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:4050:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ curfptr[5]; - MELT_LOCATION("warmelt-normal.melt:4050:/ apply.arg"); - argtab[2].bp_cstring = "primitive arg type"; - /*_.FTYPDATA__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FTYP__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4052:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4052:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[2] = - melt_is_instance_of((melt_ptr_t)(/*_.FTYP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; - MELT_LOCATION("warmelt-normal.melt:4052:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4052:/ cond.then"); - /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4052:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4052:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4052:/ locexp"); - melt_assert_failed(( "check ftyp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4052)?(4052):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4052:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4052:/ clear"); - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4052:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4053:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4053:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FARGDATA__V15*/ curfptr[14]; - /*_.ADD_NCTX_DATA__V21*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4054:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4054:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!BINDER*/ curfrout->tabval[9]); - MELT_LOCATION("warmelt-normal.melt:4054:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FSYMBDATA__V17*/ curfptr[16]; - /*_.FILL_DATA_SLOT__V22*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.FARGDATA__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4055:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4055:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FBIND_TYPE*/ curfrout->tabval[10]); - MELT_LOCATION("warmelt-normal.melt:4055:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FTYPDATA__V18*/ curfptr[17]; - /*_.FILL_DATA_SLOT__V23*/ curfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.FARGDATA__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:4056:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.FORMSYMBMAP__V3*/ curfptr[2]), - (meltobject_ptr_t) (/*_.FSYMB__V11*/ curfptr[10]), - (melt_ptr_t)(/*_.FARGDATA__V15*/ curfptr[14]));} - ; - MELT_LOCATION("warmelt-normal.melt:4057:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.FARGDATA__V15*/ curfptr[14];; - MELT_LOCATION("warmelt-normal.melt:4057:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V9*/ curfptr[7] = /*_.RETURN___V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.FTYP__V10*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.FSYMB__V11*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.FDATASLOT__V12*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_#NONZERO_HASH__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.FARGDATA__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.FSYMBDATA__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.FTYPDATA__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V21*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4038:/ clear"); - /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4036:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - MELT_LOCATION("warmelt-normal.melt:4036:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4036:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4036:/ clear"); - /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("FILL_NORMAL_FORMALBIND", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 12 - void* varptr[12]; -#define CURFRAM_NBVARNUM 2 - long varnum[2]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<12; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 12; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("FILL_NORMAL_FORMALS", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4061:/ getarg"); - /*_.SARGS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4061:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NARGTUPLE__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NARGTUPLE__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4061:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.FORMSYMBMAP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMSYMBMAP__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4061:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:4061:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); - - - /*getarg#5*/ - MELT_LOCATION("warmelt-normal.melt:4061:/ getarg"); - if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4061:/ block"); -/*block*/{ - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SARGS__V2*/ curfptr[1]); - for (/*_#IX__L1*/ curfnum[0] = 0; - (/*_#IX__L1*/ curfnum[0] >= 0) && (/*_#IX__L1*/ curfnum[0] < cit1__EACHTUP_ln); - /*_#IX__L1*/ curfnum[0]++) { - /*_.FARGB__V8*/ curfptr[7] = melt_multiple_nth((melt_ptr_t)(/*_.SARGS__V2*/ curfptr[1]), /*_#IX__L1*/ curfnum[0]); - - - MELT_LOCATION("warmelt-normal.melt:4065:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4065:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4]; - MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5]; - MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V7*/ curfptr[6]; - /*_.FARGDATA__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FARGB__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4067:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4067:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.FARGDATA__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4067:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4067:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4067:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4067:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4067:/ locexp"); - melt_assert_failed(( "check fargdata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4067)?(4067):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4067:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4067:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4067:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.MAKE_INTEGERBOX__V12*/ curfptr[10] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#IX__L1*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:4068:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4068:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.FARGDATA__V9*/ curfptr[8])) == OBMAG_OBJECT); - melt_putfield_object((/*_.FARGDATA__V9*/ curfptr[8]), (5), (/*_.MAKE_INTEGERBOX__V12*/ curfptr[10]), "NINST_OBJNUM"); - ; - MELT_LOCATION("warmelt-normal.melt:4068:/ touch"); - meltgc_touch(/*_.FARGDATA__V9*/ curfptr[8]); - ; - /*epilog*/} - ; - - { - MELT_LOCATION("warmelt-normal.melt:4070:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.NARGTUPLE__V3*/ curfptr[2]), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.FARGDATA__V9*/ curfptr[8]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4065:/ clear"); - /*clear*/ /*_.FARGDATA__V9*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4065:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4065:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V12*/ curfptr[10] = 0 ;} - ; - if (/*_#IX__L1*/ curfnum[0]<0) break; - } /* end cit1__EACHTUP */ - - /*citerepilog*/ - MELT_LOCATION("warmelt-normal.melt:4062:/ clear"); - /*clear*/ /*_.FARGB__V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4062:/ clear"); - /*clear*/ /*_#IX__L1*/ curfnum[0] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - /*epilog*/} - -; - goto labend_rout; -labend_rout: -melt_trace_end("FILL_NORMAL_FORMALS", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 8 - void* varptr[8]; -/*no varnum*/ -#define CURFRAM_NBVARNUM /*none*/0 -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<8; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 8; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("FILL_NORMAL_EXPANSION", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4074:/ getarg"); - /*_.SEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4074:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NEXPTUPLE__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXPTUPLE__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4074:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4074:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4074:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:4077:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4077:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V7*/ curfptr[6] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3)); - ; - MELT_LOCATION("warmelt-normal.melt:4077:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[0] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]); - ; - MELT_LOCATION("warmelt-normal.melt:4077:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[1] = (melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4]); - ; - MELT_LOCATION("warmelt-normal.melt:4077:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[2] = (melt_ptr_t)(/*_.NEXPTUPLE__V3*/ curfptr[2]); - ; - /*_.LAMBDA___V6*/ curfptr[5] = /*_.LAMBDA___V7*/ curfptr[6];;} - ; - MELT_LOCATION("warmelt-normal.melt:4075:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4075:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V6*/ curfptr[5]; - /*_.MULTIPLE_EVERY__V8*/ curfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4074:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_EVERY__V8*/ curfptr[7];; - MELT_LOCATION("warmelt-normal.melt:4074:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4074:/ clear"); - /*clear*/ /*_.LAMBDA___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4074:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V8*/ curfptr[7] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("FILL_NORMAL_EXPANSION", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_118_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_118_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 12 - void* varptr[12]; -#define CURFRAM_NBVARNUM 4 - long varnum[4]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<12; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 12; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4077:/ getarg"); - /*_.EXPCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4077:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4077:/ block"); -/*block*/{ - MELT_LOCATION("warmelt-normal.melt:4078:/ block"); - /*block*/{ - /*_.DISCRCOMP__V3*/ curfptr[2] = - (melt_discr((melt_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1])));; - /*_#__L2*/ curfnum[1] = - ((/*_.DISCRCOMP__V3*/ curfptr[2]) == ((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4080:/ cond"); - /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4080:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4080:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4084:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4084:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[0]); - MELT_LOCATION("warmelt-normal.melt:4084:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[1]); - MELT_LOCATION("warmelt-normal.melt:4084:/ apply.arg"); - argtab[2].bp_cstring = "discr_verbatim_string"; - /*_.NORMAL_PREDEF__V5*/ curfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4082:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4082:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[2])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V7*/ curfptr[6] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4082:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (2), (/*_.NORMAL_PREDEF__V5*/ curfptr[4]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4082:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (5), (/*_.EXPCOMP__V2*/ curfptr[1]), "NSTR_STRING"); - ; - /*_.INST___V6*/ curfptr[5] = /*_.INST__V7*/ curfptr[6];;} - ; - MELT_LOCATION("warmelt-normal.melt:4081:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4081:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INST___V6*/ curfptr[5]; - /*_.ADD_NCTX_DATA__V8*/ curfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[1])), (melt_ptr_t)((/*~NCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.COMPDATA__V4*/ curfptr[3] = /*_.ADD_NCTX_DATA__V8*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4080:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V5*/ curfptr[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4080:/ clear"); - /*clear*/ /*_.INST___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4080:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V8*/ curfptr[7] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4080:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4080:/ block"); - /*block*/{ - /*_#__L3*/ curfnum[2] = - ((/*_.DISCRCOMP__V3*/ curfptr[2]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:4087:/ cond"); - /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4087:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4087:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4088:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4088:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[0]); - MELT_LOCATION("warmelt-normal.melt:4088:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[1]); - /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFELSE___V9*/ curfptr[4] = /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4087:/ clear"); - /*clear*/ /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4087:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4087:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4091:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4091:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[3] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4091:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg"); - argtab[0].bp_cstring = "bad component in C code expansion expcomp"; - MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; - MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg"); - argtab[3].bp_long = 4091; - /*_.DEBUG_MSG_FUN__V12*/ curfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V11*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[5];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4091:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4091:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4091:/ cppif.else"); - /*_.IFCPP___V11*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:4092:/ locexp"); - melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "unexpected component in C code expansion"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-normal.melt:4090:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4087:/ clear"); - /*clear*/ /*_.IFCPP___V11*/ curfptr[7] = 0 ;} - ; - } - ; - /*_.COMPDATA__V4*/ curfptr[3] = /*_.IFELSE___V9*/ curfptr[4];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4080:/ clear"); - /*clear*/ /*_#__L3*/ curfnum[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4080:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[4] = 0 ;} - ; - } - ; - - { - MELT_LOCATION("warmelt-normal.melt:4094:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)((/*~NEXPTUPLE*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.COMPDATA__V4*/ curfptr[3]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4078:/ clear"); - /*clear*/ /*_.DISCRCOMP__V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4078:/ clear"); - /*clear*/ /*_#__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4078:/ clear"); - /*clear*/ /*_.COMPDATA__V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_118_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 49 - void* varptr[49]; -#define CURFRAM_NBVARNUM 10 - long varnum[10]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<49; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 49; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_DEFPRIMITIVE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4099:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4099:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4099:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4099:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4099:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4100:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4100:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4100:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4100:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4100:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4100:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4100:/ locexp"); - melt_assert_failed(( "check defprimitive recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4100)?(4100):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4100:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4100:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4100:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4101:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4101:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4101:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4101:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4101:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4101:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4101:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4101)?(4101):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4101:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4101:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4101:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4102:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4102:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:4102:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4102:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4102:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4102:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4102:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4102)?(4102):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4102:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4102:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4102:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4103:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4103:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4104:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4105:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SARGS__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4106:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SPRIM_TYPE");/*_.STYPE__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4107:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SPRIM_EXPANSION");/*_.SEXP__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4108:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4108:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V14*/ curfptr[13]; - /*_.SPRIMBIND__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4110:/ apply"); - /*apply*/{ - /*_.NSLOTUPLE__V19*/ curfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!CREATE_DATA_SLOTS*/ curfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[5])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.SEXP__V17*/ curfptr[16])));; - /*_.NEXPTUPLE__V20*/ curfptr[19] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[0])));; - /*_#MULTIPLE_LENGTH__L5*/ curfnum[4] = - (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V15*/ curfptr[14])));; - /*_.NARGTUPLE__V21*/ curfptr[20] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[4])));; - MELT_LOCATION("warmelt-normal.melt:4118:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4118:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4118:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4118:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V22*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4115:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4115:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V24*/ curfptr[23] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4115:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4115:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4115:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.NORMAL_PREDEF__V22*/ curfptr[21]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4115:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (5), (/*_.NEXPTUPLE__V20*/ curfptr[19]), "NTUP_COMP"); - ; - /*_.NEXPDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} - ; - MELT_LOCATION("warmelt-normal.melt:4123:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4123:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4123:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4123:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4120:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4120:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V27*/ curfptr[26] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4120:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4120:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4120:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.NORMAL_PREDEF__V25*/ curfptr[24]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4120:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.NARGTUPLE__V21*/ curfptr[20]), "NTUP_COMP"); - ; - /*_.NARGDATA__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;} - ; - MELT_LOCATION("warmelt-normal.melt:4128:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4128:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4128:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4128:/ apply.arg"); - argtab[2].bp_cstring = "class_primitive"; - /*_.NORMAL_PREDEF__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#NONZERO_HASH__L6*/ curfnum[5] = - (melt_nonzerohash());; - /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NONZERO_HASH__L6*/ curfnum[5])));; - MELT_LOCATION("warmelt-normal.melt:4125:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4125:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V31*/ curfptr[30] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4125:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4125:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4125:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V28*/ curfptr[27]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4125:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (7), (/*_.MAKE_INTEGERBOX__V29*/ curfptr[28]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:4125:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (8), (/*_.NSLOTUPLE__V19*/ curfptr[18]), "NINST_SLOTS"); - ; - /*_.NPRIMDATA__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;} - ; - MELT_LOCATION("warmelt-normal.melt:4131:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4131:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4131:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.NSYMDATA__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = - (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V15*/ curfptr[14])));; - /*_#I__L8*/ curfnum[7] = - ((/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]) * (2));; - /*_#I__L9*/ curfnum[8] = - ((3) + (/*_#I__L8*/ curfnum[7]));; - /*_.FORMSYMBMAP__V33*/ curfptr[32] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[12])), (/*_#I__L9*/ curfnum[8])));; - MELT_LOCATION("warmelt-normal.melt:4135:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4135:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NPRIMDATA__V30*/ curfptr[29]; - /*_.ADD_NCTX_DATA__V34*/ curfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4136:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4136:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPDATA__V23*/ curfptr[22]; - /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4137:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4137:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NARGDATA__V26*/ curfptr[25]; - /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4140:/ apply"); - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NARGTUPLE__V21*/ curfptr[20]; - MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V33*/ curfptr[32]; - MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.FILL_NORMAL_FORMALS__V37*/ curfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.SARGS__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4142:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4142:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPTUPLE__V20*/ curfptr[19]; - MELT_LOCATION("warmelt-normal.melt:4142:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4142:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.FILL_NORMAL_EXPANSION__V38*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SEXP__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4149:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4149:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4149:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4149:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V39*/ curfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[19])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4150:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4147:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4147:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[18])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V42*/ curfptr[41] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4147:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.NORMAL_PREDEF__V39*/ curfptr[38]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4147:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (5), (/*_.NAMED_NAME__V40*/ curfptr[39]), "NSTR_STRING"); - ; - /*_.INST___V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;} - ; - MELT_LOCATION("warmelt-normal.melt:4145:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4145:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INST___V41*/ curfptr[40]; - /*_.ADD_NCTX_DATA__V43*/ curfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4144:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4144:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[17]); - MELT_LOCATION("warmelt-normal.melt:4144:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ADD_NCTX_DATA__V43*/ curfptr[42]; - /*_.FILL_DATA_SLOT__V44*/ curfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4151:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4151:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!PRIM_FORMALS*/ curfrout->tabval[20]); - MELT_LOCATION("warmelt-normal.melt:4151:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NARGDATA__V26*/ curfptr[25]; - /*_.FILL_DATA_SLOT__V45*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4152:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4152:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!PRIM_EXPANSION*/ curfrout->tabval[21]); - MELT_LOCATION("warmelt-normal.melt:4152:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEXPDATA__V23*/ curfptr[22]; - /*_.FILL_DATA_SLOT__V46*/ curfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4154:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4154:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4154:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4154:/ apply.arg"); - argtab[2].bp_cstring = "primitive res type"; - /*_.NORMAL_PREDEF__V47*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.STYPE__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4153:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4153:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!PRIM_TYPE*/ curfrout->tabval[22]); - MELT_LOCATION("warmelt-normal.melt:4153:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NORMAL_PREDEF__V47*/ curfptr[46]; - /*_.FILL_DATA_SLOT__V48*/ curfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#IS_A__L10*/ curfnum[9] = - melt_is_instance_of((melt_ptr_t)(/*_.SPRIMBIND__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[23])));; - MELT_LOCATION("warmelt-normal.melt:4156:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4156:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4156:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4157:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4157:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.SPRIMBIND__V18*/ curfptr[17])) == OBMAG_OBJECT); - melt_putfield_object((/*_.SPRIMBIND__V18*/ curfptr[17]), (1), (/*_.NPRIMDATA__V30*/ curfptr[29]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:4157:/ touch"); - meltgc_touch(/*_.SPRIMBIND__V18*/ curfptr[17]); - ; - /*epilog*/} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-normal.melt:4160:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normal.melt:4160:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V49*/ curfptr[48];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.SARGS__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.STYPE__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.SEXP__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.SPRIMBIND__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NSLOTUPLE__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NEXPTUPLE__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NARGTUPLE__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NEXPDATA__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NARGDATA__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_#NONZERO_HASH__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NPRIMDATA__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NSYMDATA__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.FORMSYMBMAP__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V34*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.FILL_NORMAL_FORMALS__V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.INST___V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V44*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V45*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V46*/ curfptr[45] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V47*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V48*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4103:/ clear"); - /*clear*/ /*_.RETURN___V49*/ curfptr[48] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4099:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - MELT_LOCATION("warmelt-normal.melt:4099:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4099:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4099:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4099:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4099:/ clear"); - /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_DEFPRIMITIVE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 70 - void* varptr[70]; -#define CURFRAM_NBVARNUM 24 - long varnum[24]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<70; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 70; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_DEFCITERATOR", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4167:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4167:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4167:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4167:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4167:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4168:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4168:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4168:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4168:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4168:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4168:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4168:/ locexp"); - melt_assert_failed(( "check defciterator recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4168)?(4168):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4168:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4168:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4168:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4169:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4169:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4169:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4169:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4169:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4169:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4169:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4169)?(4169):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4169:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4169:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4169:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4170:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4170:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:4170:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4170:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4170:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4170:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4170:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4170)?(4170):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4170:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4170:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4170:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4171:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4172:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4173:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4174:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4174:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCITERDEF_CITERATOR");/*_.SC__V16*/ curfptr[15] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4175:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4175:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:4175:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4175:/ cond.then"); - /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4175:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4175:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4175:/ locexp"); - melt_assert_failed(( "check sciter"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4175)?(4175):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4175:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4175:/ clear"); - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4175:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V15*/ curfptr[14] = /*_.SC__V16*/ curfptr[15];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4174:/ clear"); - /*clear*/ /*_.SC__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4174:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;} - ; - /*_.SCITER__V19*/ curfptr[17] = /*_.LET___V15*/ curfptr[14];; - MELT_LOCATION("warmelt-normal.melt:4177:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4177:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V14*/ curfptr[13]; - /*_.CITBIND__V20*/ curfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4178:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 2, "CITER_START_FORMALS");/*_.CITSTAFOR__V21*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4180:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V22*/ curfptr[21] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V22*/ curfptr[21])));; - /*_.SLOTUP__V23*/ curfptr[22] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0])));; - /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = - (melt_multiple_length((melt_ptr_t)(/*_.CITSTAFOR__V21*/ curfptr[16])));; - /*_.FORMSTATUP__V24*/ curfptr[23] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L6*/ curfnum[5])));; - MELT_LOCATION("warmelt-normal.melt:4183:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 4, "CITER_BODY_FORMALS");/*_.CITBODFOR__V25*/ curfptr[24] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = - (melt_multiple_length((melt_ptr_t)(/*_.CITBODFOR__V25*/ curfptr[24])));; - /*_.FORMBODTUP__V26*/ curfptr[25] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6])));; - MELT_LOCATION("warmelt-normal.melt:4186:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 3, "CITER_STATE");/*_.CITSTATSY__V27*/ curfptr[26] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4187:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 5, "CITER_EXPBEFORE");/*_.CITEXPBEF__V28*/ curfptr[27] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L8*/ curfnum[7] = - (melt_multiple_length((melt_ptr_t)(/*_.CITEXPBEF__V28*/ curfptr[27])));; - /*_.EXPBEFTUP__V29*/ curfptr[28] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L8*/ curfnum[7])));; - MELT_LOCATION("warmelt-normal.melt:4189:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 6, "CITER_EXPAFTER");/*_.CITEXPAFT__V30*/ curfptr[29] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = - (melt_multiple_length((melt_ptr_t)(/*_.CITEXPAFT__V30*/ curfptr[29])));; - /*_.EXPAFTTUP__V31*/ curfptr[30] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L9*/ curfnum[8])));; - /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = - (melt_multiple_length((melt_ptr_t)(/*_.CITSTAFOR__V21*/ curfptr[16])));; - /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = - (melt_multiple_length((melt_ptr_t)(/*_.CITBODFOR__V25*/ curfptr[24])));; - /*_#I__L12*/ curfnum[11] = - ((/*_#MULTIPLE_LENGTH__L10*/ curfnum[9]) + (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10]));; - /*_#I__L13*/ curfnum[12] = - ((/*_#I__L12*/ curfnum[11]) * (2));; - /*_#I__L14*/ curfnum[13] = - ((5) + (/*_#I__L13*/ curfnum[12]));; - /*_.FORMSYMBMAP__V32*/ curfptr[31] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (/*_#I__L14*/ curfnum[13])));; - MELT_LOCATION("warmelt-normal.melt:4196:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4196:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4196:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4196:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V33*/ curfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4197:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4194:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4194:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V36*/ curfptr[35] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4194:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4194:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.NORMAL_PREDEF__V33*/ curfptr[32]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4194:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (5), (/*_.NAMED_NAME__V34*/ curfptr[33]), "NSTR_STRING"); - ; - /*_.NAMSTRDATA__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} - ; - MELT_LOCATION("warmelt-normal.melt:4201:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4201:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4201:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4201:/ apply.arg"); - argtab[2].bp_cstring = "class_citerator"; - /*_.NORMAL_PREDEF__V37*/ curfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#NONZERO_HASH__L15*/ curfnum[14] = - (melt_nonzerohash());; - /*_.MAKE_INTEGERBOX__V38*/ curfptr[37] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#NONZERO_HASH__L15*/ curfnum[14])));; - MELT_LOCATION("warmelt-normal.melt:4198:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4198:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[10])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V40*/ curfptr[39] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4198:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4198:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4198:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NORMAL_PREDEF__V37*/ curfptr[36]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4198:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (7), (/*_.MAKE_INTEGERBOX__V38*/ curfptr[37]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:4198:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (8), (/*_.SLOTUP__V23*/ curfptr[22]), "NINST_SLOTS"); - ; - /*_.INSDATA__V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;} - ; - MELT_LOCATION("warmelt-normal.melt:4206:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4206:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V39*/ curfptr[38]; - /*_.ADD_NCTX_DATA__V41*/ curfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4207:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4207:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V35*/ curfptr[34]; - /*_.ADD_NCTX_DATA__V42*/ curfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L16*/ curfnum[15] = - (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[13]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4209:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L16*/ curfnum[15]), (melt_ptr_t)(/*_.NAMSTRDATA__V35*/ curfptr[34]));} - ; - MELT_LOCATION("warmelt-normal.melt:4211:/ apply"); - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSTATUP__V24*/ curfptr[23]; - MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V32*/ curfptr[31]; - MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.FILL_NORMAL_FORMALS__V43*/ curfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.CITSTAFOR__V21*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4212:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4215:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4215:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4215:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4215:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V44*/ curfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4212:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4212:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V46*/ curfptr[45] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4212:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4212:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4212:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (2), (/*_.NORMAL_PREDEF__V44*/ curfptr[43]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4212:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (5), (/*_.FORMSTATUP__V24*/ curfptr[23]), "NTUP_COMP"); - ; - /*_.NSTATUPDATA__V45*/ curfptr[44] = /*_.INST__V46*/ curfptr[45];;} - ; - MELT_LOCATION("warmelt-normal.melt:4218:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4218:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSTATUPDATA__V45*/ curfptr[44]; - /*_.ADD_NCTX_DATA__V47*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L17*/ curfnum[16] = - (melt_get_int((melt_ptr_t)((/*!CITER_START_FORMALS*/ curfrout->tabval[16]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4219:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L17*/ curfnum[16]), (melt_ptr_t)(/*_.NSTATUPDATA__V45*/ curfptr[44]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4212:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V44*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4212:/ clear"); - /*clear*/ /*_.NSTATUPDATA__V45*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4212:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V47*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4212:/ clear"); - /*clear*/ /*_#GET_INT__L17*/ curfnum[16] = 0 ;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4223:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4223:/ block"); - /*block*/{ - /*_#IS_A__L18*/ curfnum[16] = - melt_is_instance_of((melt_ptr_t)(/*_.CITSTATSY__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[17])));; - MELT_LOCATION("warmelt-normal.melt:4223:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ curfnum[16]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4223:/ cond.then"); - /*_.IFELSE___V49*/ curfptr[44] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4223:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4223:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4223:/ locexp"); - melt_assert_failed(( "check citstatsy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4223)?(4223):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V49*/ curfptr[44] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V48*/ curfptr[43] = /*_.IFELSE___V49*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4223:/ clear"); - /*clear*/ /*_#IS_A__L18*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4223:/ clear"); - /*clear*/ /*_.IFELSE___V49*/ curfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4223:/ cppif.else"); - /*_.IFCPP___V48*/ curfptr[43] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4224:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4224:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4224:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4224:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.NSTATSYDATA__V50*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.CITSTATSY__V27*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L19*/ curfnum[16] = - (melt_get_int((melt_ptr_t)((/*!CITER_STATE*/ curfrout->tabval[19]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4225:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L19*/ curfnum[16]), (melt_ptr_t)(/*_.NSTATSYDATA__V50*/ curfptr[46]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4224:/ clear"); - /*clear*/ /*_.NSTATSYDATA__V50*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4224:/ clear"); - /*clear*/ /*_#GET_INT__L19*/ curfnum[16] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4229:/ apply"); - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMBODTUP__V26*/ curfptr[25]; - MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V32*/ curfptr[31]; - MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.FILL_NORMAL_FORMALS__V51*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.CITBODFOR__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4230:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4233:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4233:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4233:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4233:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V52*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4230:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4230:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V54*/ curfptr[53] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4230:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4230:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4230:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.NORMAL_PREDEF__V52*/ curfptr[46]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4230:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (5), (/*_.FORMBODTUP__V26*/ curfptr[25]), "NTUP_COMP"); - ; - /*_.NBODTUPDATA__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;} - ; - MELT_LOCATION("warmelt-normal.melt:4236:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4236:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODTUPDATA__V53*/ curfptr[52]; - /*_.ADD_NCTX_DATA__V55*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L20*/ curfnum[16] = - (melt_get_int((melt_ptr_t)((/*!CITER_BODY_FORMALS*/ curfrout->tabval[20]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4237:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L20*/ curfnum[16]), (melt_ptr_t)(/*_.NBODTUPDATA__V53*/ curfptr[52]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4230:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V52*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4230:/ clear"); - /*clear*/ /*_.NBODTUPDATA__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4230:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4230:/ clear"); - /*clear*/ /*_#GET_INT__L20*/ curfnum[16] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4240:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4240:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.EXPBEFTUP__V29*/ curfptr[28]; - MELT_LOCATION("warmelt-normal.melt:4240:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4240:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.FILL_NORMAL_EXPANSION__V56*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.CITEXPBEF__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4241:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4244:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4244:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4244:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4244:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V57*/ curfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4241:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4241:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V59*/ curfptr[58] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4241:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4241:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4241:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.NORMAL_PREDEF__V57*/ curfptr[52]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4241:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (5), (/*_.EXPBEFTUP__V29*/ curfptr[28]), "NTUP_COMP"); - ; - /*_.NBEFTUPDATA__V58*/ curfptr[54] = /*_.INST__V59*/ curfptr[58];;} - ; - MELT_LOCATION("warmelt-normal.melt:4247:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4247:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBEFTUPDATA__V58*/ curfptr[54]; - /*_.ADD_NCTX_DATA__V60*/ curfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L21*/ curfnum[16] = - (melt_get_int((melt_ptr_t)((/*!CITER_EXPBEFORE*/ curfrout->tabval[22]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4248:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L21*/ curfnum[16]), (melt_ptr_t)(/*_.NBEFTUPDATA__V58*/ curfptr[54]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4241:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V57*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4241:/ clear"); - /*clear*/ /*_.NBEFTUPDATA__V58*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4241:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V60*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4241:/ clear"); - /*clear*/ /*_#GET_INT__L21*/ curfnum[16] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4251:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4251:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.EXPAFTTUP__V31*/ curfptr[30]; - MELT_LOCATION("warmelt-normal.melt:4251:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4251:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.FILL_NORMAL_EXPANSION__V61*/ curfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.CITEXPAFT__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4252:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4255:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4255:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4255:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4255:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V62*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4252:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4252:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V64*/ curfptr[63] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4252:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4252:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4252:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (2), (/*_.NORMAL_PREDEF__V62*/ curfptr[54]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4252:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (5), (/*_.EXPAFTTUP__V31*/ curfptr[30]), "NTUP_COMP"); - ; - /*_.NAFTTUPDATA__V63*/ curfptr[59] = /*_.INST__V64*/ curfptr[63];;} - ; - MELT_LOCATION("warmelt-normal.melt:4258:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4258:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAFTTUPDATA__V63*/ curfptr[59]; - /*_.ADD_NCTX_DATA__V65*/ curfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L22*/ curfnum[16] = - (melt_get_int((melt_ptr_t)((/*!CITER_EXPAFTER*/ curfrout->tabval[23]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4259:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L22*/ curfnum[16]), (melt_ptr_t)(/*_.NAFTTUPDATA__V63*/ curfptr[59]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4252:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V62*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4252:/ clear"); - /*clear*/ /*_.NAFTTUPDATA__V63*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4252:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V65*/ curfptr[64] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4252:/ clear"); - /*clear*/ /*_#GET_INT__L22*/ curfnum[16] = 0 ;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4261:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4261:/ block"); - /*block*/{ - /*_#IS_A__L23*/ curfnum[16] = - melt_is_instance_of((melt_ptr_t)(/*_.CITBIND__V20*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CITERATOR_BINDING*/ curfrout->tabval[24])));; - MELT_LOCATION("warmelt-normal.melt:4261:/ cond"); - /*cond*/ if (/*_#IS_A__L23*/ curfnum[16]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4261:/ cond.then"); - /*_.IFELSE___V67*/ curfptr[59] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4261:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4261:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4261:/ locexp"); - melt_assert_failed(( "check citbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4261)?(4261):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V67*/ curfptr[59] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V66*/ curfptr[54] = /*_.IFELSE___V67*/ curfptr[59];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4261:/ clear"); - /*clear*/ /*_#IS_A__L23*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4261:/ clear"); - /*clear*/ /*_.IFELSE___V67*/ curfptr[59] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4261:/ cppif.else"); - /*_.IFCPP___V66*/ curfptr[54] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4262:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4262:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.CITBIND__V20*/ curfptr[15])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CITBIND__V20*/ curfptr[15]), (1), (/*_.INSDATA__V39*/ curfptr[38]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:4262:/ touch"); - meltgc_touch(/*_.CITBIND__V20*/ curfptr[15]); - ; - /*epilog*/} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4267:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4267:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L24*/ curfnum[16] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4267:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defciterator return insdata"; - MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[16]; - MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg"); - argtab[3].bp_long = 4267; - /*_.DEBUG_MSG_FUN__V69*/ curfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.INSDATA__V39*/ curfptr[38]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V68*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[59];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4267:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4267:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[59] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4267:/ cppif.else"); - /*_.IFCPP___V68*/ curfptr[64] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4268:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V39*/ curfptr[38];; - MELT_LOCATION("warmelt-normal.melt:4268:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V70*/ curfptr[59];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.SCITER__V19*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.CITBIND__V20*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.CITSTAFOR__V21*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.SLOTUP__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.FORMSTATUP__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.CITBODFOR__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.FORMBODTUP__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.CITSTATSY__V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.CITEXPBEF__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.EXPBEFTUP__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.CITEXPAFT__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.EXPAFTTUP__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.FORMSYMBMAP__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.NAMSTRDATA__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#NONZERO_HASH__L15*/ curfnum[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.INSDATA__V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_#GET_INT__L16*/ curfnum[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.FILL_NORMAL_FORMALS__V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.IFCPP___V48*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.FILL_NORMAL_FORMALS__V51*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V56*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V61*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.IFCPP___V66*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.IFCPP___V68*/ curfptr[64] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4171:/ clear"); - /*clear*/ /*_.RETURN___V70*/ curfptr[59] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4167:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - MELT_LOCATION("warmelt-normal.melt:4167:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4167:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4167:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4167:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4167:/ clear"); - /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_DEFCITERATOR", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_121_warmelt_normal_NORMEXP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_121_warmelt_normal_NORMEXP_CITERATION_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 128 - void* varptr[128]; -#define CURFRAM_NBVARNUM 34 - long varnum[34]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<128; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 128; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_CITERATION", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4276:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4276:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4276:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4276:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4276:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4277:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4277:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4277:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration recv"; - MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg"); - argtab[3].bp_long = 4277; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4277:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4277:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4277:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4278:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4278:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CITERATION*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4278:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4278:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4278:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4278:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4278:/ locexp"); - melt_assert_failed(( "check citeration recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4278)?(4278):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4278:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4278:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4278:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4279:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4279:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:4279:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4279:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4279:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4279:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4279:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4279)?(4279):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4279:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4279:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4279:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4280:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4280:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:4280:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4280:/ cond.then"); - /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4280:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4280:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4280:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4280)?(4280):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4280:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4280:/ clear"); - /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4280:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4281:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4281:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4282:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCITER_OPER");/*_.SOPER__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4283:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4284:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SCITER_VARBIND");/*_.SVBIND__V18*/ curfptr[17] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4285:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCITER_BODY");/*_.SBODY__V19*/ curfptr[18] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17])));; - /*_.NBNDTUP__V20*/ curfptr[19] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:4287:/ apply"); - /*apply*/{ - /*_.BODYENV__V21*/ curfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4289:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V22*/ curfptr[21] = slot; }; - ; - /*_.UNCACHELIST__V23*/ curfptr[22] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4293:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4293:/ block"); - /*block*/{ - /*_#IS_A__L6*/ curfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:4293:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4293:/ cond.then"); - /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4293:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4293:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4293:/ locexp"); - melt_assert_failed(( "check soper"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4293)?(4293):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4293:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4293:/ clear"); - /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4293:/ cppif.else"); - /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4295:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V28*/ curfptr[27]; - MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.appl"); - /*_.NARGS__V27*/ curfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SARGS__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:4295:/ block"); - /*block*/{ - /*_#NULL__L7*/ curfnum[5] = - ((/*_.NBINDINGS__V28*/ curfptr[27]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:4298:/ cond"); - /*cond*/ if (/*_#NULL__L7*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4298:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4298:/ block"); - /*block*/{ - /*_.MAKE_LIST__V30*/ curfptr[29] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; - MELT_LOCATION("warmelt-normal.melt:4298:/ compute"); - /*_.NBINDINGS__V28*/ curfptr[27] = /*_.SETQ___V31*/ curfptr[30] = /*_.MAKE_LIST__V30*/ curfptr[29];; - /*_.IF___V29*/ curfptr[28] = /*_.SETQ___V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4298:/ clear"); - /*clear*/ /*_.MAKE_LIST__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4298:/ clear"); - /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4298:/ cond.else"); - - /*_.IF___V29*/ curfptr[28] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4299:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4299:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[7] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4299:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nargs"; - MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg"); - argtab[3].bp_long = 4299; - /*_.DEBUG_MSG_FUN__V33*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NARGS__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V32*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4299:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4299:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[30] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4299:/ cppif.else"); - /*_.IFCPP___V32*/ curfptr[29] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4300:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4300:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[7] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4300:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nbindings"; - MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7]; - MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg"); - argtab[3].bp_long = 4300; - /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDINGS__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V34*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4300:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4300:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4300:/ cppif.else"); - /*_.IFCPP___V34*/ curfptr[30] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4301:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4301:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 2, "CITER_START_FORMALS");/*_.STARFORMALS__V37*/ curfptr[36] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4302:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4302:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[7] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4302:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration starformals"; - MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[7]; - MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg"); - argtab[3].bp_long = 4302; - /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4302:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4302:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4302:/ cppif.else"); - /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#MULTIPLE_LENGTH__L11*/ curfnum[7] = - (melt_multiple_length((melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36])));; - /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = - (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V27*/ curfptr[26])));; - /*_#I__L13*/ curfnum[12] = - ((/*_#MULTIPLE_LENGTH__L11*/ curfnum[7]) != (/*_#MULTIPLE_LENGTH__L12*/ curfnum[11]));; - MELT_LOCATION("warmelt-normal.melt:4303:/ cond"); - /*cond*/ if (/*_#I__L13*/ curfnum[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4303:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4303:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4305:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V41*/ curfptr[40] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:4305:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "start formals and actuals length mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V41*/ curfptr[40]));} - ; - MELT_LOCATION("warmelt-normal.melt:4306:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = NULL;; - MELT_LOCATION("warmelt-normal.melt:4306:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:4304:/ block"); - /*block*/{ - /*_.PROGN___V43*/ curfptr[42] = /*_.RETURN___V42*/ curfptr[41];;} - ; - /*_.IF___V40*/ curfptr[38] = /*_.PROGN___V43*/ curfptr[42];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4303:/ clear"); - /*clear*/ /*_.NAMED_NAME__V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4303:/ clear"); - /*clear*/ /*_.RETURN___V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4303:/ clear"); - /*clear*/ /*_.PROGN___V43*/ curfptr[42] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4303:/ cond.else"); - - /*_.IF___V40*/ curfptr[38] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:4309:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4309:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V45*/ curfptr[41] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (4)); - ; - MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]); - ; - MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[1] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); - ; - MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[2] = (melt_ptr_t)(/*_.NBNDTUP__V20*/ curfptr[19]); - ; - MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[3] = (melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]); - ; - /*_.LAMBDA___V44*/ curfptr[40] = /*_.LAMBDA___V45*/ curfptr[41];;} - ; - MELT_LOCATION("warmelt-normal.melt:4307:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4307:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.STARFORMALS__V37*/ curfptr[36]; - MELT_LOCATION("warmelt-normal.melt:4307:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V44*/ curfptr[40]; - /*_.MULTIPLE_EVERY_BOTH__V46*/ curfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NARGS__V27*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4331:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4331:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L14*/ curfnum[13] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4331:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nbndtup"; - MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; - MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg"); - argtab[3].bp_long = 4331; - /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBNDTUP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4331:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4331:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4331:/ cppif.else"); - /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4333:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4333:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[13] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4333:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration svbind"; - MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg"); - argtab[3].bp_long = 4333; - /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4333:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4333:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4333:/ cppif.else"); - /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4334:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4334:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 4, "CITER_BODY_FORMALS");/*_.CITBFORM__V52*/ curfptr[51] = slot; }; - ; - /*_#NBCITBFORM__L16*/ curfnum[13] = - (melt_multiple_length((melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51])));; - /*_.NLOCBINDTUP__V53*/ curfptr[52] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBCITBFORM__L16*/ curfnum[13])));; - /*_.NSYMOCCTUP__V54*/ curfptr[53] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBCITBFORM__L16*/ curfnum[13])));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4339:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4339:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L17*/ curfnum[16] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4339:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration citbform"; - MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[16]; - MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg"); - argtab[3].bp_long = 4339; - /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V55*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[55];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4339:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4339:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4339:/ cppif.else"); - /*_.IFCPP___V55*/ curfptr[54] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#MULTIPLE_LENGTH__L18*/ curfnum[16] = - (melt_multiple_length((melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17])));; - /*_#I__L19*/ curfnum[18] = - ((/*_#NBCITBFORM__L16*/ curfnum[13]) != (/*_#MULTIPLE_LENGTH__L18*/ curfnum[16]));; - MELT_LOCATION("warmelt-normal.melt:4340:/ cond"); - /*cond*/ if (/*_#I__L19*/ curfnum[18]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4340:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4340:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4342:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V58*/ curfptr[57] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:4342:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "body formals and actuals length mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V58*/ curfptr[57]));} - ; - MELT_LOCATION("warmelt-normal.melt:4343:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = NULL;; - MELT_LOCATION("warmelt-normal.melt:4343:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:4341:/ block"); - /*block*/{ - /*_.PROGN___V60*/ curfptr[59] = /*_.RETURN___V59*/ curfptr[58];;} - ; - /*_.IF___V57*/ curfptr[55] = /*_.PROGN___V60*/ curfptr[59];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4340:/ clear"); - /*clear*/ /*_.NAMED_NAME__V58*/ curfptr[57] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4340:/ clear"); - /*clear*/ /*_.RETURN___V59*/ curfptr[58] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4340:/ clear"); - /*clear*/ /*_.PROGN___V60*/ curfptr[59] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4340:/ cond.else"); - - /*_.IF___V57*/ curfptr[55] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:4346:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4346:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V62*/ curfptr[58] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_20*/ curfrout->tabval[20])), (7)); - ; - MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[0] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); - ; - MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[1] = (melt_ptr_t)(/*_.NLOCBINDTUP__V53*/ curfptr[52]); - ; - MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[2] = (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]); - ; - MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[3] = (melt_ptr_t)(/*_.SYCMAP__V22*/ curfptr[21]); - ; - MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[4] = (melt_ptr_t)(/*_.UNCACHELIST__V23*/ curfptr[22]); - ; - MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[5] = (melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]); - ; - MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 6>= 0 && 6< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[6] = (melt_ptr_t)(/*_.BODYENV__V21*/ curfptr[20]); - ; - /*_.LAMBDA___V61*/ curfptr[57] = /*_.LAMBDA___V62*/ curfptr[58];;} - ; - MELT_LOCATION("warmelt-normal.melt:4344:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4344:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CITBFORM__V52*/ curfptr[51]; - MELT_LOCATION("warmelt-normal.melt:4344:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V61*/ curfptr[57]; - /*_.MULTIPLE_EVERY_BOTH__V63*/ curfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4386:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4386:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L20*/ curfnum[19] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4386:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nlocbindtup"; - MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19]; - MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg"); - argtab[3].bp_long = 4386; - /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOCBINDTUP__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V64*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4386:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4386:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4386:/ cppif.else"); - /*_.IFCPP___V64*/ curfptr[63] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4387:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4387:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L21*/ curfnum[19] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4387:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nsymocctup"; - MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19]; - MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg"); - argtab[3].bp_long = 4387; - /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V66*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V67*/ curfptr[66];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4387:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4387:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4387:/ cppif.else"); - /*_.IFCPP___V66*/ curfptr[64] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4388:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply"); - /*multiapply 4args, 1x.res*/ { - union meltparam_un argtab[3]; - - union meltparam_un restab[1]; - memset(&restab, 0, sizeof(restab)); - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BODYENV__V21*/ curfptr[20];MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V70*/ curfptr[69]; - MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.appl"); - /*_.NBODY__V69*/ curfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SBODY__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:4388:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4391:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4391:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L22*/ curfnum[19] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4391:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nbody"; - MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19]; - MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg"); - argtab[3].bp_long = 4391; - /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBODY__V69*/ curfptr[68]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V71*/ curfptr[70] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[71];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4391:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4391:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4391:/ cppif.else"); - /*_.IFCPP___V71*/ curfptr[70] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4392:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4392:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L23*/ curfnum[19] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4392:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nbodbindings"; - MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[19]; - MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg"); - argtab[3].bp_long = 4392; - /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBODBINDINGS__V70*/ curfptr[69]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V73*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[73];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4392:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4392:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4392:/ cppif.else"); - /*_.IFCPP___V73*/ curfptr[71] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4393:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4393:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 3, "CITER_STATE");/*_.CITSTATE__V76*/ curfptr[75] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4394:/ apply"); - /*apply*/{ - /*_.CITSTSYM__V77*/ curfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.CITSTATE__V76*/ curfptr[75]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4395:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4395:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V79*/ curfptr[78] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4395:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4395:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (0), (/*_.CITSTSYM__V77*/ curfptr[76]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:4395:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:4395:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (2), ((/*nil*/NULL)), "LETBIND_EXPR"); - ; - /*_.CITSTBIND__V78*/ curfptr[77] = /*_.INST__V79*/ curfptr[78];;} - ; - MELT_LOCATION("warmelt-normal.melt:4400:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4400:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V81*/ curfptr[80] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4400:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4400:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:4400:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (1), (/*_.CITSTSYM__V77*/ curfptr[76]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:4400:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (3), (/*_.CITSTBIND__V78*/ curfptr[77]), "NOCC_BIND"); - ; - /*_.CITSTOCC__V80*/ curfptr[79] = /*_.INST__V81*/ curfptr[80];;} - ; - MELT_LOCATION("warmelt-normal.melt:4405:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 5, "CITER_EXPBEFORE");/*_.CITEXPBEFORE__V82*/ curfptr[81] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4406:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 6, "CITER_EXPAFTER");/*_.CITEXPAFTER__V83*/ curfptr[82] = slot; }; - ; - /*_#I__L24*/ curfnum[19] = - ((10) + (/*_#NBCITBFORM__L16*/ curfnum[13]));; - /*_.CITLOCMAP__V84*/ curfptr[83] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[25])), (/*_#I__L24*/ curfnum[19])));; - MELT_LOCATION("warmelt-normal.melt:4409:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4409:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V86*/ curfptr[85] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_30*/ curfrout->tabval[30])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:4409:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V86*/ curfptr[85])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V86*/ curfptr[85]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V86*/ curfptr[85])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]); - ; - /*_.CITEXPANDER__V85*/ curfptr[84] = /*_.LAMBDA___V86*/ curfptr[85];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:4424:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.CITLOCMAP__V84*/ curfptr[83]), - (meltobject_ptr_t) (/*_.CITSTATE__V76*/ curfptr[75]), - (melt_ptr_t)(/*_.CITSTOCC__V80*/ curfptr[79]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4425:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4425:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L25*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4425:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration starformals again"; - MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg"); - argtab[3].bp_long = 4425; - /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V87*/ curfptr[86] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[87];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4425:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4425:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4425:/ cppif.else"); - /*_.IFCPP___V87*/ curfptr[86] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4426:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4426:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L26*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4426:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nsymocctup again"; - MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg"); - argtab[3].bp_long = 4426; - /*_.DEBUG_MSG_FUN__V90*/ curfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V89*/ curfptr[87] = /*_.DEBUG_MSG_FUN__V90*/ curfptr[89];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4426:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4426:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V90*/ curfptr[89] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4426:/ cppif.else"); - /*_.IFCPP___V89*/ curfptr[87] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4429:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4429:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V92*/ curfptr[91] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_32*/ curfrout->tabval[32])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:4429:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V92*/ curfptr[91])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V92*/ curfptr[91]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V92*/ curfptr[91])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]); - ; - /*_.LAMBDA___V91*/ curfptr[89] = /*_.LAMBDA___V92*/ curfptr[91];;} - ; - MELT_LOCATION("warmelt-normal.melt:4427:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4427:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NARGS__V27*/ curfptr[26]; - MELT_LOCATION("warmelt-normal.melt:4427:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V91*/ curfptr[89]; - /*_.MULTIPLE_EVERY_BOTH__V93*/ curfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4434:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4434:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L27*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4434:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration citlocmap middle"; - MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg"); - argtab[3].bp_long = 4434; - /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V94*/ curfptr[93] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4434:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4434:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4434:/ cppif.else"); - /*_.IFCPP___V94*/ curfptr[93] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4435:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4435:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L28*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4435:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration citbform again"; - MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L28*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg"); - argtab[3].bp_long = 4435; - /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V96*/ curfptr[94] = /*_.DEBUG_MSG_FUN__V97*/ curfptr[96];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4435:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4435:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4435:/ cppif.else"); - /*_.IFCPP___V96*/ curfptr[94] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4438:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4438:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V99*/ curfptr[98] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_35*/ curfrout->tabval[35])), (2)); - ; - MELT_LOCATION("warmelt-normal.melt:4438:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V99*/ curfptr[98])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V99*/ curfptr[98]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V99*/ curfptr[98])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]); - ; - MELT_LOCATION("warmelt-normal.melt:4438:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V99*/ curfptr[98])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V99*/ curfptr[98]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V99*/ curfptr[98])->tabval[1] = (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]); - ; - /*_.LAMBDA___V98*/ curfptr[96] = /*_.LAMBDA___V99*/ curfptr[98];;} - ; - MELT_LOCATION("warmelt-normal.melt:4436:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4436:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V98*/ curfptr[96]; - /*_.MULTIPLE_EVERY__V100*/ curfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[33])), (melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4445:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4445:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L29*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4445:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration citlocmap done"; - MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg"); - argtab[3].bp_long = 4445; - /*_.DEBUG_MSG_FUN__V102*/ curfptr[101] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V101*/ curfptr[100] = /*_.DEBUG_MSG_FUN__V102*/ curfptr[101];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4445:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4445:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ curfptr[101] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4445:/ cppif.else"); - /*_.IFCPP___V101*/ curfptr[100] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4446:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4446:/ apply"); - /*apply*/{ - /*_.CHKBEFORE__V104*/ curfptr[103] = melt_apply ((meltclosure_ptr_t)(/*_.CITEXPANDER__V85*/ curfptr[84]), (melt_ptr_t)(/*_.CITEXPBEFORE__V82*/ curfptr[81]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4447:/ apply"); - /*apply*/{ - /*_.CHKAFTER__V105*/ curfptr[104] = melt_apply ((meltclosure_ptr_t)(/*_.CITEXPANDER__V85*/ curfptr[84]), (melt_ptr_t)(/*_.CITEXPAFTER__V83*/ curfptr[82]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4449:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4449:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L30*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4449:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration chkbefore"; - MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg"); - argtab[3].bp_long = 4449; - /*_.DEBUG_MSG_FUN__V107*/ curfptr[106] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CHKBEFORE__V104*/ curfptr[103]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V106*/ curfptr[105] = /*_.DEBUG_MSG_FUN__V107*/ curfptr[106];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4449:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4449:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V107*/ curfptr[106] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4449:/ cppif.else"); - /*_.IFCPP___V106*/ curfptr[105] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4450:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4450:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L31*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4450:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration chkafter"; - MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L31*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg"); - argtab[3].bp_long = 4450; - /*_.DEBUG_MSG_FUN__V109*/ curfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CHKAFTER__V105*/ curfptr[104]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V108*/ curfptr[106] = /*_.DEBUG_MSG_FUN__V109*/ curfptr[108];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4450:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L31*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4450:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V109*/ curfptr[108] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4450:/ cppif.else"); - /*_.IFCPP___V108*/ curfptr[106] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4451:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4452:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4452:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CITERATION*/ curfrout->tabval[36])), (8), "CLASS_NREP_CITERATION");/*_.INST__V112*/ curfptr[111] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4452:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4452:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCITER_CITERATOR", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (1), (/*_.SOPER__V16*/ curfptr[15]), "NCITER_CITERATOR"); - ; - MELT_LOCATION("warmelt-normal.melt:4452:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCITER_LOCBINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (6), (/*_.NLOCBINDTUP__V53*/ curfptr[52]), "NCITER_LOCBINDINGS"); - ; - MELT_LOCATION("warmelt-normal.melt:4452:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCITER_CHUNKBEFORE", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (2), (/*_.CHKBEFORE__V104*/ curfptr[103]), "NCITER_CHUNKBEFORE"); - ; - MELT_LOCATION("warmelt-normal.melt:4452:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCITER_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (4), (/*_.NBODY__V69*/ curfptr[68]), "NCITER_BODY"); - ; - MELT_LOCATION("warmelt-normal.melt:4452:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCITER_STATOCC", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (5), (/*_.CITSTOCC__V80*/ curfptr[79]), "NCITER_STATOCC"); - ; - MELT_LOCATION("warmelt-normal.melt:4452:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCITER_BODBINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (7), (/*_.NBODBINDINGS__V70*/ curfptr[69]), "NCITER_BODBINDINGS"); - ; - MELT_LOCATION("warmelt-normal.melt:4452:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCITER_CHUNKAFTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (3), (/*_.CHKAFTER__V105*/ curfptr[104]), "NCITER_CHUNKAFTER"); - ; - /*_.NCITER__V111*/ curfptr[110] = /*_.INST__V112*/ curfptr[111];;} - ; - MELT_LOCATION("warmelt-normal.melt:4462:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V113*/ curfptr[112] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4462:/ apply"); - /*apply*/{ - /*_.CSYM__V114*/ curfptr[113] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.NAMED_NAME__V113*/ curfptr[112]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4463:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4463:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V116*/ curfptr[115] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4463:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4463:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (0), (/*_.CSYM__V114*/ curfptr[113]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:4463:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:4463:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (2), (/*_.NCITER__V111*/ curfptr[110]), "LETBIND_EXPR"); - ; - /*_.CBIND__V115*/ curfptr[114] = /*_.INST__V116*/ curfptr[115];;} - ; - MELT_LOCATION("warmelt-normal.melt:4468:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4468:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V118*/ curfptr[117] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4468:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4468:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:4468:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (1), (/*_.CSYM__V114*/ curfptr[113]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:4468:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (3), (/*_.CBIND__V115*/ curfptr[114]), "NOCC_BIND"); - ; - /*_.CLOCC__V117*/ curfptr[116] = /*_.INST__V118*/ curfptr[117];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:4474:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NBINDINGS__V28*/ curfptr[27]), (melt_ptr_t)(/*_.CBIND__V115*/ curfptr[114]));} - ; - MELT_LOCATION("warmelt-normal.melt:4478:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4478:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V120*/ curfptr[119] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_38*/ curfrout->tabval[38])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:4478:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V120*/ curfptr[119])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V120*/ curfptr[119]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V120*/ curfptr[119])->tabval[0] = (melt_ptr_t)(/*_.SYCMAP__V22*/ curfptr[21]); - ; - /*_.LAMBDA___V119*/ curfptr[118] = /*_.LAMBDA___V120*/ curfptr[119];;} - ; - MELT_LOCATION("warmelt-normal.melt:4476:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4476:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V119*/ curfptr[118]; - /*_.LIST_EVERY__V121*/ curfptr[120] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[37])), (melt_ptr_t)(/*_.UNCACHELIST__V23*/ curfptr[22]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4479:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4479:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L32*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4479:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nciter"; - MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg"); - argtab[3].bp_long = 4479; - /*_.DEBUG_MSG_FUN__V123*/ curfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCITER__V111*/ curfptr[110]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V122*/ curfptr[121] = /*_.DEBUG_MSG_FUN__V123*/ curfptr[122];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4479:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4479:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V123*/ curfptr[122] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4479:/ cppif.else"); - /*_.IFCPP___V122*/ curfptr[121] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4480:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4480:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L33*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4480:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration result clocc"; - MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg"); - argtab[3].bp_long = 4480; - /*_.DEBUG_MSG_FUN__V125*/ curfptr[124] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOCC__V117*/ curfptr[116]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V124*/ curfptr[122] = /*_.DEBUG_MSG_FUN__V125*/ curfptr[124];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4480:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4480:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V125*/ curfptr[124] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4480:/ cppif.else"); - /*_.IFCPP___V124*/ curfptr[122] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4481:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4481:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L34*/ curfnum[24] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4481:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration result nbindings"; - MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[24]; - MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg"); - argtab[3].bp_long = 4481; - /*_.DEBUG_MSG_FUN__V127*/ curfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDINGS__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V126*/ curfptr[124] = /*_.DEBUG_MSG_FUN__V127*/ curfptr[126];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4481:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4481:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V127*/ curfptr[126] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4481:/ cppif.else"); - /*_.IFCPP___V126*/ curfptr[124] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4482:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V117*/ curfptr[116];; - MELT_LOCATION("warmelt-normal.melt:4482:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDINGS__V28*/ curfptr[27]); - ; - MELT_LOCATION("warmelt-normal.melt:4482:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V110*/ curfptr[108] = /*_.RETURN___V128*/ curfptr[126];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.NCITER__V111*/ curfptr[110] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.NAMED_NAME__V113*/ curfptr[112] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.CSYM__V114*/ curfptr[113] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.CBIND__V115*/ curfptr[114] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.CLOCC__V117*/ curfptr[116] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.LAMBDA___V119*/ curfptr[118] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.LIST_EVERY__V121*/ curfptr[120] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.IFCPP___V122*/ curfptr[121] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.IFCPP___V124*/ curfptr[122] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.IFCPP___V126*/ curfptr[124] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4451:/ clear"); - /*clear*/ /*_.RETURN___V128*/ curfptr[126] = 0 ;} - ; - /*_.LET___V103*/ curfptr[101] = /*_.LET___V110*/ curfptr[108];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4446:/ clear"); - /*clear*/ /*_.CHKBEFORE__V104*/ curfptr[103] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4446:/ clear"); - /*clear*/ /*_.CHKAFTER__V105*/ curfptr[104] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4446:/ clear"); - /*clear*/ /*_.IFCPP___V106*/ curfptr[105] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4446:/ clear"); - /*clear*/ /*_.IFCPP___V108*/ curfptr[106] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4446:/ clear"); - /*clear*/ /*_.LET___V110*/ curfptr[108] = 0 ;} - ; - /*_.LET___V75*/ curfptr[73] = /*_.LET___V103*/ curfptr[101];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.CITSTATE__V76*/ curfptr[75] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.CITSTSYM__V77*/ curfptr[76] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.CITSTBIND__V78*/ curfptr[77] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.CITSTOCC__V80*/ curfptr[79] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.CITEXPBEFORE__V82*/ curfptr[81] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.CITEXPAFTER__V83*/ curfptr[82] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_#I__L24*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.CITLOCMAP__V84*/ curfptr[83] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.CITEXPANDER__V85*/ curfptr[84] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.IFCPP___V87*/ curfptr[86] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.IFCPP___V89*/ curfptr[87] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.LAMBDA___V91*/ curfptr[89] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V93*/ curfptr[92] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.IFCPP___V94*/ curfptr[93] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.IFCPP___V96*/ curfptr[94] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.LAMBDA___V98*/ curfptr[96] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V100*/ curfptr[99] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.IFCPP___V101*/ curfptr[100] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4393:/ clear"); - /*clear*/ /*_.LET___V103*/ curfptr[101] = 0 ;} - ; - /*_.MULTI___V68*/ curfptr[66] = /*_.LET___V75*/ curfptr[73];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4388:/ clear"); - /*clear*/ /*_.IFCPP___V71*/ curfptr[70] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4388:/ clear"); - /*clear*/ /*_.IFCPP___V73*/ curfptr[71] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4388:/ clear"); - /*clear*/ /*_.LET___V75*/ curfptr[73] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4388:/ clear"); - /*clear*/ /*_.NBODBINDINGS__V70*/ curfptr[69] = 0 ;} - ; - /*_.LET___V51*/ curfptr[49] = /*_.MULTI___V68*/ curfptr[66];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.CITBFORM__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_#NBCITBFORM__L16*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.NLOCBINDTUP__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.NSYMOCCTUP__V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.IFCPP___V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.IF___V57*/ curfptr[55] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.LAMBDA___V61*/ curfptr[57] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V63*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.IFCPP___V64*/ curfptr[63] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.IFCPP___V66*/ curfptr[64] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4334:/ clear"); - /*clear*/ /*_.MULTI___V68*/ curfptr[66] = 0 ;} - ; - /*_.LET___V36*/ curfptr[34] = /*_.LET___V51*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_.STARFORMALS__V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_.IF___V40*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_.LAMBDA___V44*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V46*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4301:/ clear"); - /*clear*/ /*_.LET___V51*/ curfptr[49] = 0 ;} - ; - /*_.MULTI___V26*/ curfptr[24] = /*_.LET___V36*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4295:/ clear"); - /*clear*/ /*_#NULL__L7*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4295:/ clear"); - /*clear*/ /*_.IF___V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4295:/ clear"); - /*clear*/ /*_.IFCPP___V32*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4295:/ clear"); - /*clear*/ /*_.IFCPP___V34*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4295:/ clear"); - /*clear*/ /*_.LET___V36*/ curfptr[34] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4295:/ clear"); - /*clear*/ /*_.NBINDINGS__V28*/ curfptr[27] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V26*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.SOPER__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.SARGS__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.SVBIND__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.SBODY__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.NBNDTUP__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.BODYENV__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.SYCMAP__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.UNCACHELIST__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4281:/ clear"); - /*clear*/ /*_.MULTI___V26*/ curfptr[24] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4276:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:4276:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4276:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4276:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4276:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4276:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4276:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_CITERATION", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_121_warmelt_normal_NORMEXP_CITERATION*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_122_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_122_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 16 - void* varptr[16]; -#define CURFRAM_NBVARNUM 5 - long varnum[5]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<16; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 16; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4309:/ getarg"); - /*_.CURNARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4309:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.CURFORB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4309:/ getarg"); - if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4309:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4310:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4310:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4310:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration curnarg"; - MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg"); - argtab[3].bp_long = 4310; - /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURNARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4310:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4310:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4310:/ cppif.else"); - /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4311:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4311:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4311:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration curforb"; - MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg"); - argtab[3].bp_long = 4311; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4311:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4311:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4311:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4312:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4312:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4312:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4312:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4312:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4312:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4312:/ locexp"); - melt_assert_failed(( "check curforb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4312)?(4312):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4312:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4312:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4312:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4313:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4313:/ msend"); - /*msend*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4313:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - /*_.CURCTYP__V10*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.CURNARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4314:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), 1, "FBIND_TYPE");/*_.FORMCTYP__V11*/ curfptr[10] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4315:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), 0, "BINDER");/*_.FORMARG__V12*/ curfptr[11] = slot; }; - ; - /*_#__L5*/ curfnum[1] = - ((/*_.CURCTYP__V10*/ curfptr[8]) == (/*_.FORMCTYP__V11*/ curfptr[10]));; - MELT_LOCATION("warmelt-normal.melt:4317:/ cond"); - /*cond*/ if (/*_#__L5*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4317:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4317:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4318:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4318:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4318:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[3])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V14*/ curfptr[13] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4318:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (3), ((/*~SLOC*/ curfclos->tabval[1])), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4318:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (0), (/*_.FORMARG__V12*/ curfptr[11]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:4318:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (1), (/*_.CURCTYP__V10*/ curfptr[8]), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:4318:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (2), (/*_.CURNARG__V2*/ curfptr[1]), "LETBIND_EXPR"); - ; - /*_.NLBIND__V13*/ curfptr[12] = /*_.INST__V14*/ curfptr[13];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:4324:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)((/*~NBNDTUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NLBIND__V13*/ curfptr[12]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4318:/ clear"); - /*clear*/ /*_.NLBIND__V13*/ curfptr[12] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4317:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4317:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4327:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*~SOPER*/ curfclos->tabval[3])), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[12] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:4327:/ locexp"); - melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "start formal and actual type mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[12]));} - ; - MELT_LOCATION("warmelt-normal.melt:4328:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMARG__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:4328:/ locexp"); - melt_inform_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "mismatched citerator start formal argument"), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]));} - ; - MELT_LOCATION("warmelt-normal.melt:4326:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4317:/ clear"); - /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4317:/ clear"); - /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;} - ; - } - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4313:/ clear"); - /*clear*/ /*_.CURCTYP__V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4313:/ clear"); - /*clear*/ /*_.FORMCTYP__V11*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4313:/ clear"); - /*clear*/ /*_.FORMARG__V12*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4313:/ clear"); - /*clear*/ /*_#__L5*/ curfnum[1] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4309:/ clear"); - /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4309:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4309:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_122_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_123_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_123_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 25 - void* varptr[25]; -#define CURFRAM_NBVARNUM 7 - long varnum[7]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<25; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 25; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4346:/ getarg"); - /*_.CURVBIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4346:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.CURBFORM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4346:/ getarg"); - if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4346:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4347:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4347:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4347:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration curvbind"; - MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg"); - argtab[3].bp_long = 4347; - /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4347:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4347:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4347:/ cppif.else"); - /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4348:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4348:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4348:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration curbform"; - MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg"); - argtab[3].bp_long = 4348; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4348:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4348:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4348:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4349:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4349:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4349:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4349:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4349:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4349:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4349:/ locexp"); - melt_assert_failed(( "check curvbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4349)?(4349):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4349:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4349:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4349:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4350:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4350:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4350:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4350:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4350:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4350:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4350:/ locexp"); - melt_assert_failed(( "check curbform"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4350)?(4350):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4350:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4350:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4350:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4351:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4351:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.CURVSYM__V12*/ curfptr[10] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4352:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CURCTYP__V13*/ curfptr[12] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4353:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), 0, "BINDER");/*_.CURVFOR__V14*/ curfptr[13] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4355:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V15*/ curfptr[14] = slot; }; - ; - /*_#__L6*/ curfnum[1] = - ((/*_.CURCTYP__V13*/ curfptr[12]) == (/*_.FBIND_TYPE__V15*/ curfptr[14]));; - MELT_LOCATION("warmelt-normal.melt:4355:/ cond"); - /*cond*/ if (/*_#__L6*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4355:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4355:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4356:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4356:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4356:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[2])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V17*/ curfptr[16] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4356:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (3), ((/*~SLOC*/ curfclos->tabval[0])), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4356:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.CURVSYM__V12*/ curfptr[10]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:4356:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.CURCTYP__V13*/ curfptr[12]), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:4356:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), ((/*nil*/NULL)), "LETBIND_EXPR"); - ; - /*_.NLVBIND__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} - ; - MELT_LOCATION("warmelt-normal.melt:4362:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4362:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[3])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V19*/ curfptr[18] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4362:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), ((/*~SLOC*/ curfclos->tabval[0])), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4362:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.CURCTYP__V13*/ curfptr[12]), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:4362:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.CURVSYM__V12*/ curfptr[10]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:4362:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.NLVBIND__V16*/ curfptr[15]), "NOCC_BIND"); - ; - /*_.CLOCC__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:4368:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)((/*~NLOCBINDTUP*/ curfclos->tabval[1])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NLVBIND__V16*/ curfptr[15]));} - ; - - { - MELT_LOCATION("warmelt-normal.melt:4369:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)((/*~NSYMOCCTUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.CLOCC__V18*/ curfptr[17]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4370:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4370:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4370:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration nlvbind"; - MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg"); - argtab[3].bp_long = 4370; - /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLVBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4370:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4370:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4370:/ cppif.else"); - /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:4375:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[3])), - (meltobject_ptr_t) (/*_.CURVSYM__V12*/ curfptr[10]), - (melt_ptr_t)(/*_.CLOCC__V18*/ curfptr[17]));} - ; - - { - MELT_LOCATION("warmelt-normal.melt:4376:/ locexp"); - meltgc_append_list((melt_ptr_t)((/*~UNCACHELIST*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.CURVSYM__V12*/ curfptr[10]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4356:/ clear"); - /*clear*/ /*_.NLVBIND__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4356:/ clear"); - /*clear*/ /*_.CLOCC__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4356:/ clear"); - /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4355:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4355:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4379:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*~SOPER*/ curfclos->tabval[5])), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ curfptr[20] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:4379:/ locexp"); - melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[0])), ( "local formal and actual type mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V22*/ curfptr[20]));} - ; - MELT_LOCATION("warmelt-normal.melt:4381:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V23*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4381:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDER__V23*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[17] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:4380:/ locexp"); - melt_inform_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[0])), ( "mismatched citerator local variable"), (melt_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[17]));} - ; - MELT_LOCATION("warmelt-normal.melt:4378:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4355:/ clear"); - /*clear*/ /*_.NAMED_NAME__V22*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4355:/ clear"); - /*clear*/ /*_.BINDER__V23*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4355:/ clear"); - /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[17] = 0 ;} - ; - } - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4351:/ clear"); - /*clear*/ /*_.CURVSYM__V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4351:/ clear"); - /*clear*/ /*_.CURCTYP__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4351:/ clear"); - /*clear*/ /*_.CURVFOR__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4351:/ clear"); - /*clear*/ /*_.FBIND_TYPE__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4351:/ clear"); - /*clear*/ /*_#__L6*/ curfnum[1] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4384:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4384:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURVBIND__V2*/ curfptr[1]; - /*_.PUT_ENV__V25*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[4])), (melt_ptr_t)((/*~BODYENV*/ curfclos->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4346:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V25*/ curfptr[19];; - MELT_LOCATION("warmelt-normal.melt:4346:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4346:/ clear"); - /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4346:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4346:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4346:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4346:/ clear"); - /*clear*/ /*_.PUT_ENV__V25*/ curfptr[19] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_123_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_124_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_124_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 7 - void* varptr[7]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<7; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 7; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4409:/ getarg"); - /*_.XTUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4409:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4410:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4410:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4410:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration expanding xtup"; - MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg"); - argtab[3].bp_long = 4410; - /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.XTUP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4410:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4410:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4410:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4413:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4413:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V6*/ curfptr[5] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1)); - ; - MELT_LOCATION("warmelt-normal.melt:4413:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[0] = (melt_ptr_t)((/*~CITLOCMAP*/ curfclos->tabval[0])); - ; - /*_.LAMBDA___V5*/ curfptr[3] = /*_.LAMBDA___V6*/ curfptr[5];;} - ; - MELT_LOCATION("warmelt-normal.melt:4411:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4411:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V5*/ curfptr[3]; - /*_.MULTIPLE_MAP__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.XTUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4409:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_MAP__V7*/ curfptr[6];; - MELT_LOCATION("warmelt-normal.melt:4409:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4409:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4409:/ clear"); - /*clear*/ /*_.LAMBDA___V5*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4409:/ clear"); - /*clear*/ /*_.MULTIPLE_MAP__V7*/ curfptr[6] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_124_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_125_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_125_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 10 - void* varptr[10]; -#define CURFRAM_NBVARNUM 4 - long varnum[4]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<10; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 10; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4413:/ getarg"); - /*_.CURELEM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4413:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4413:/ block"); -/*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4414:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4414:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4414:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4415:/ block"); - /*block*/{ - /*_.EXELEM__V5*/ curfptr[4] = - melt_get_mapobjects((meltmapobjects_ptr_t)((/*~CITLOCMAP*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]));; - /*_#NULL__L3*/ curfnum[2] = - ((/*_.EXELEM__V5*/ curfptr[4]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:4416:/ cond"); - /*cond*/ if (/*_#NULL__L3*/ curfnum[2]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4416:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4416:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4417:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4417:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[3] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4417:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration bad curelem"; - MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; - MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg"); - argtab[3].bp_long = 4417; - /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4417:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4417:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4417:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.IF___V6*/ curfptr[5] = /*_.IFCPP___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4416:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4416:/ cond.else"); - - /*_.IF___V6*/ curfptr[5] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4418:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4418:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4418:/ cond"); - /*cond*/ if (/*_.EXELEM__V5*/ curfptr[4]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4418:/ cond.then"); - /*_.IFELSE___V10*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4418:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4418:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4418:/ locexp"); - melt_assert_failed(( "check exelem in citeration"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4418)?(4418):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V10*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4418:/ clear"); - /*clear*/ /*_.IFELSE___V10*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4418:/ cppif.else"); - /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V4*/ curfptr[3] = /*_.EXELEM__V5*/ curfptr[4];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4415:/ clear"); - /*clear*/ /*_.EXELEM__V5*/ curfptr[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4415:/ clear"); - /*clear*/ /*_#NULL__L3*/ curfnum[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4415:/ clear"); - /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4415:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;} - ; - /*_.IFELSE___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4414:/ clear"); - /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4414:/ cond.else"); - - /*_.IFELSE___V3*/ curfptr[2] = /*_.CURELEM__V2*/ curfptr[1];; - } - ; - MELT_LOCATION("warmelt-normal.melt:4413:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];; - MELT_LOCATION("warmelt-normal.melt:4413:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4413:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4413:/ clear"); - /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_125_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_126_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_126_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 8 - void* varptr[8]; -#define CURFRAM_NBVARNUM 3 - long varnum[3]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<8; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 8; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4429:/ getarg"); - /*_.CURVLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4429:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.CURNARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.CURNARG__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4429:/ getarg"); - if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4429:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4430:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4430:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4430:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration curvloc"; - MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg"); - argtab[3].bp_long = 4430; - /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURVLOC__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4430:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4430:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4430:/ cppif.else"); - /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4431:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4431:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4431:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg"); - argtab[0].bp_cstring = "normexp_citeration curnarg"; - MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg"); - argtab[3].bp_long = 4431; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURNARG__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4431:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4431:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4431:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4432:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVLOC__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V8*/ curfptr[6] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:4432:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~CITLOCMAP*/ curfclos->tabval[0])), - (meltobject_ptr_t) (/*_.BINDER__V8*/ curfptr[6]), - (melt_ptr_t)(/*_.CURNARG__V3*/ curfptr[2]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4429:/ clear"); - /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4429:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4429:/ clear"); - /*clear*/ /*_.BINDER__V8*/ curfptr[6] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_126_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_127_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_127_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 6 - void* varptr[6]; -#define CURFRAM_NBVARNUM 2 - long varnum[2]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<6; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 6; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4438:/ getarg"); - /*_.CURFORMB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4438:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4438:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4439:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4439:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.CURFORMB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4439:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4439:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4439:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4439:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4439:/ locexp"); - melt_assert_failed(( "check curform"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4439)?(4439):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4439:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4439:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4439:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4441:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFORMB__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V5*/ curfptr[3] = slot; }; - ; - /*_.MULTIPLE_NTH__V6*/ curfptr[5] = - (melt_multiple_nth((melt_ptr_t)((/*~NSYMOCCTUP*/ curfclos->tabval[1])), (/*_#IX__L1*/ curfnum[0])));; - - { - MELT_LOCATION("warmelt-normal.melt:4440:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~CITLOCMAP*/ curfclos->tabval[0])), - (meltobject_ptr_t) (/*_.BINDER__V5*/ curfptr[3]), - (melt_ptr_t)(/*_.MULTIPLE_NTH__V6*/ curfptr[5]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4438:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4438:/ clear"); - /*clear*/ /*_.BINDER__V5*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4438:/ clear"); - /*clear*/ /*_.MULTIPLE_NTH__V6*/ curfptr[5] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_127_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_128_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_128_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 2 - void* varptr[2]; -/*no varnum*/ -#define CURFRAM_NBVARNUM /*none*/0 -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<2; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 2; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4478:/ getarg"); - /*_.CSY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4478:/ block"); -/*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4478:/ locexp"); - meltgc_remove_mapobjects( (meltmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[0])), - (meltobject_ptr_t)(/*_.CSY__V2*/ curfptr[1]));} - ; - /*epilog*/} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_128_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 90 - void* varptr[90]; -#define CURFRAM_NBVARNUM 33 - long varnum[33]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<90; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 90; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_DEFCMATCHER", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4495:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4495:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4495:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4495:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4495:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4496:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4496:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4496:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4496:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4496:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4496:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4496:/ locexp"); - melt_assert_failed(( "check defcmatcher recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4496)?(4496):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4496:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4496:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4496:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4497:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4497:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4497:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4497:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4497:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4497:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4497:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4497)?(4497):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4497:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4497:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4497:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4498:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4498:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:4498:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4498:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4498:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4498:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4498:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4498)?(4498):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4498:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4498:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4498:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4499:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4499:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4499:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defcmatcher recv"; - MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg"); - argtab[3].bp_long = 4499; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4499:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4499:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4499:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4500:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4500:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4501:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4502:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMALS__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4503:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4503:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCMATDEF_CMATCHER");/*_.CM__V19*/ curfptr[18] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4504:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4504:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4504:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defcmatcher cmatcher"; - MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg"); - argtab[3].bp_long = 4504; - /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CM__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4504:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4504:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4504:/ cppif.else"); - /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4505:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4505:/ block"); - /*block*/{ - /*_#IS_A__L6*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CM__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:4505:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4505:/ cond.then"); - /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4505:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4505:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4505:/ locexp"); - melt_assert_failed(( "check cmatcher"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4505)?(4505):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V22*/ curfptr[20] = /*_.IFELSE___V23*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4505:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4505:/ clear"); - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4505:/ cppif.else"); - /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V18*/ curfptr[17] = /*_.CM__V19*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4503:/ clear"); - /*clear*/ /*_.CM__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4503:/ clear"); - /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4503:/ clear"); - /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;} - ; - /*_.CMATCHER__V24*/ curfptr[22] = /*_.LET___V18*/ curfptr[17];; - MELT_LOCATION("warmelt-normal.melt:4507:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4507:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4507:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15]; - /*_.B__V26*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4508:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4508:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4508:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defcmatcher cmbind"; - MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg"); - argtab[3].bp_long = 4508; - /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.B__V26*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V27*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4508:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4508:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4508:/ cppif.else"); - /*_.IFCPP___V27*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4509:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4509:/ block"); - /*block*/{ - /*_#IS_A__L8*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.B__V26*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ curfrout->tabval[6])));; - MELT_LOCATION("warmelt-normal.melt:4509:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4509:/ cond.then"); - /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4509:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4509:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4509:/ locexp"); - melt_assert_failed(( "check cmbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4509)?(4509):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4509:/ clear"); - /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4509:/ clear"); - /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4509:/ cppif.else"); - /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V25*/ curfptr[18] = /*_.B__V26*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4507:/ clear"); - /*clear*/ /*_.B__V26*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4507:/ clear"); - /*clear*/ /*_.IFCPP___V27*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4507:/ clear"); - /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;} - ; - /*_.CMBIND__V31*/ curfptr[29] = /*_.LET___V25*/ curfptr[18];; - /*_#OBJECT_LENGTH__L9*/ curfnum[0] = - ((long)melt_object_length((melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22])));; - /*_.SLOTUP__V32*/ curfptr[19] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#OBJECT_LENGTH__L9*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:4512:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 2, "AMATCH_IN");/*_.INSCMA__V33*/ curfptr[20] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4513:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 3, "AMATCH_MATCHBIND");/*_.MBICMA__V34*/ curfptr[27] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4514:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 4, "AMATCH_OUT");/*_.OUTSCMA__V35*/ curfptr[34] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4515:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 5, "CMATCH_STATE");/*_.STATCMA__V36*/ curfptr[35] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4516:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 6, "CMATCH_EXPTEST");/*_.TESTCMA__V37*/ curfptr[36] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4517:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 7, "CMATCH_EXPFILL");/*_.FILLCMA__V38*/ curfptr[37] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4518:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 8, "CMATCH_EXPOPER");/*_.OPERCMA__V39*/ curfptr[38] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = - (melt_multiple_length((melt_ptr_t)(/*_.INSCMA__V33*/ curfptr[20])));; - /*_.INSTUP__V40*/ curfptr[39] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L10*/ curfnum[9])));; - /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = - (melt_multiple_length((melt_ptr_t)(/*_.OUTSCMA__V35*/ curfptr[34])));; - /*_.OUTSTUP__V41*/ curfptr[40] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10])));; - MELT_LOCATION("warmelt-normal.melt:4521:/ cond"); - /*cond*/ if (/*_.TESTCMA__V37*/ curfptr[36]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4521:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4521:/ block"); - /*block*/{ - /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = - (melt_multiple_length((melt_ptr_t)(/*_.TESTCMA__V37*/ curfptr[36])));; - /*_.MAKE_MULTIPLE__V43*/ curfptr[42] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L12*/ curfnum[11])));; - /*_.TESTTUP__V42*/ curfptr[41] = /*_.MAKE_MULTIPLE__V43*/ curfptr[42];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4521:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4521:/ clear"); - /*clear*/ /*_.MAKE_MULTIPLE__V43*/ curfptr[42] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4521:/ cond.else"); - - /*_.TESTTUP__V42*/ curfptr[41] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:4522:/ cond"); - /*cond*/ if (/*_.FILLCMA__V38*/ curfptr[37]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4522:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4522:/ block"); - /*block*/{ - /*_#MULTIPLE_LENGTH__L13*/ curfnum[11] = - (melt_multiple_length((melt_ptr_t)(/*_.FILLCMA__V38*/ curfptr[37])));; - /*_.MAKE_MULTIPLE__V45*/ curfptr[44] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L13*/ curfnum[11])));; - /*_.FILLTUP__V44*/ curfptr[42] = /*_.MAKE_MULTIPLE__V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4522:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L13*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4522:/ clear"); - /*clear*/ /*_.MAKE_MULTIPLE__V45*/ curfptr[44] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4522:/ cond.else"); - - /*_.FILLTUP__V44*/ curfptr[42] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:4523:/ cond"); - /*cond*/ if (/*_.OPERCMA__V39*/ curfptr[38]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4523:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4523:/ block"); - /*block*/{ - /*_#MULTIPLE_LENGTH__L14*/ curfnum[11] = - (melt_multiple_length((melt_ptr_t)(/*_.OPERCMA__V39*/ curfptr[38])));; - /*_.MAKE_MULTIPLE__V47*/ curfptr[46] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L14*/ curfnum[11])));; - /*_.OPERTUP__V46*/ curfptr[44] = /*_.MAKE_MULTIPLE__V47*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4523:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L14*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4523:/ clear"); - /*clear*/ /*_.MAKE_MULTIPLE__V47*/ curfptr[46] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4523:/ cond.else"); - - /*_.OPERTUP__V46*/ curfptr[44] = NULL;; - } - ; - /*_#MULTIPLE_LENGTH__L15*/ curfnum[11] = - (melt_multiple_length((melt_ptr_t)(/*_.INSCMA__V33*/ curfptr[20])));; - /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = - (melt_multiple_length((melt_ptr_t)(/*_.OUTSCMA__V35*/ curfptr[34])));; - /*_#I__L17*/ curfnum[16] = - ((/*_#MULTIPLE_LENGTH__L15*/ curfnum[11]) + (/*_#MULTIPLE_LENGTH__L16*/ curfnum[15]));; - /*_#I__L18*/ curfnum[17] = - ((/*_#I__L17*/ curfnum[16]) * (2));; - /*_#I__L19*/ curfnum[18] = - ((5) + (/*_#I__L18*/ curfnum[17]));; - /*_.FORMSYMBMAP__V48*/ curfptr[46] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[8])), (/*_#I__L19*/ curfnum[18])));; - MELT_LOCATION("warmelt-normal.melt:4529:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4529:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4529:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4529:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V49*/ curfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[11])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4530:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ curfptr[49] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4527:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4527:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[9])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V52*/ curfptr[51] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (2), (/*_.NORMAL_PREDEF__V49*/ curfptr[48]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (5), (/*_.NAMED_NAME__V50*/ curfptr[49]), "NSTR_STRING"); - ; - /*_.NAMSTRDATA__V51*/ curfptr[50] = /*_.INST__V52*/ curfptr[51];;} - ; - MELT_LOCATION("warmelt-normal.melt:4534:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4534:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4534:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4534:/ apply.arg"); - argtab[2].bp_cstring = "class_cmatcher"; - /*_.NORMAL_PREDEF__V53*/ curfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#OBJ_HASH__L20*/ curfnum[19] = - (melt_obj_hash((melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22])));; - /*_.MAKE_INTEGERBOX__V54*/ curfptr[53] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[13])), (/*_#OBJ_HASH__L20*/ curfnum[19])));; - MELT_LOCATION("warmelt-normal.melt:4531:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4531:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[12])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V56*/ curfptr[55] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4531:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4531:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4531:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), (/*_.NORMAL_PREDEF__V53*/ curfptr[52]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4531:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (7), (/*_.MAKE_INTEGERBOX__V54*/ curfptr[53]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:4531:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (8), (/*_.SLOTUP__V32*/ curfptr[19]), "NINST_SLOTS"); - ; - /*_.INSDATA__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;} - ; - MELT_LOCATION("warmelt-normal.melt:4539:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4539:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V55*/ curfptr[54]; - /*_.ADD_NCTX_DATA__V57*/ curfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4540:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4540:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V51*/ curfptr[50]; - /*_.ADD_NCTX_DATA__V58*/ curfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L21*/ curfnum[20] = - (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[15]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4542:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L21*/ curfnum[20]), (melt_ptr_t)(/*_.NAMSTRDATA__V51*/ curfptr[50]));} - ; - MELT_LOCATION("warmelt-normal.melt:4544:/ apply"); - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUP__V40*/ curfptr[39]; - MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V48*/ curfptr[46]; - MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.FILL_NORMAL_FORMALS__V59*/ curfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.INSCMA__V33*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4545:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4548:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4548:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4548:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4548:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V60*/ curfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4545:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4545:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V62*/ curfptr[61] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4545:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4545:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4545:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (2), (/*_.NORMAL_PREDEF__V60*/ curfptr[59]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4545:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (5), (/*_.INSTUP__V40*/ curfptr[39]), "NTUP_COMP"); - ; - /*_.INSTUPDATA__V61*/ curfptr[60] = /*_.INST__V62*/ curfptr[61];;} - ; - MELT_LOCATION("warmelt-normal.melt:4551:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4551:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUPDATA__V61*/ curfptr[60]; - /*_.ADD_NCTX_DATA__V63*/ curfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L22*/ curfnum[21] = - (melt_get_int((melt_ptr_t)((/*!AMATCH_IN*/ curfrout->tabval[18]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4552:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L22*/ curfnum[21]), (melt_ptr_t)(/*_.INSTUPDATA__V61*/ curfptr[60]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4545:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V60*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4545:/ clear"); - /*clear*/ /*_.INSTUPDATA__V61*/ curfptr[60] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4545:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V63*/ curfptr[62] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4545:/ clear"); - /*clear*/ /*_#GET_INT__L22*/ curfnum[21] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4556:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4556:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V48*/ curfptr[46]; - MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.MBDATA__V64*/ curfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.MBICMA__V34*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L23*/ curfnum[21] = - (melt_get_int((melt_ptr_t)((/*!AMATCH_MATCHBIND*/ curfrout->tabval[20]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4557:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L23*/ curfnum[21]), (melt_ptr_t)(/*_.MBDATA__V64*/ curfptr[59]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4556:/ clear"); - /*clear*/ /*_.MBDATA__V64*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4556:/ clear"); - /*clear*/ /*_#GET_INT__L23*/ curfnum[21] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4561:/ apply"); - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUP__V41*/ curfptr[40]; - MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V48*/ curfptr[46]; - MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.FILL_NORMAL_FORMALS__V65*/ curfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OUTSCMA__V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4562:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4565:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4565:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4565:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4565:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V66*/ curfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4562:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4562:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V68*/ curfptr[67] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4562:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4562:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4562:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), (/*_.NORMAL_PREDEF__V66*/ curfptr[62]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4562:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (5), (/*_.OUTSTUP__V41*/ curfptr[40]), "NTUP_COMP"); - ; - /*_.OUTSTUPDATA__V67*/ curfptr[59] = /*_.INST__V68*/ curfptr[67];;} - ; - MELT_LOCATION("warmelt-normal.melt:4568:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4568:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUPDATA__V67*/ curfptr[59]; - /*_.ADD_NCTX_DATA__V69*/ curfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L24*/ curfnum[21] = - (melt_get_int((melt_ptr_t)((/*!AMATCH_OUT*/ curfrout->tabval[21]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4569:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L24*/ curfnum[21]), (melt_ptr_t)(/*_.OUTSTUPDATA__V67*/ curfptr[59]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4562:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V66*/ curfptr[62] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4562:/ clear"); - /*clear*/ /*_.OUTSTUPDATA__V67*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4562:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V69*/ curfptr[68] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4562:/ clear"); - /*clear*/ /*_#GET_INT__L24*/ curfnum[21] = 0 ;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4573:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4573:/ block"); - /*block*/{ - /*_#IS_A__L25*/ curfnum[21] = - melt_is_instance_of((melt_ptr_t)(/*_.STATCMA__V36*/ curfptr[35]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[22])));; - MELT_LOCATION("warmelt-normal.melt:4573:/ cond"); - /*cond*/ if (/*_#IS_A__L25*/ curfnum[21]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4573:/ cond.then"); - /*_.IFELSE___V71*/ curfptr[59] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4573:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4573:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4573:/ locexp"); - melt_assert_failed(( "check statcma"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4573)?(4573):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V71*/ curfptr[59] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V70*/ curfptr[62] = /*_.IFELSE___V71*/ curfptr[59];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4573:/ clear"); - /*clear*/ /*_#IS_A__L25*/ curfnum[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4573:/ clear"); - /*clear*/ /*_.IFELSE___V71*/ curfptr[59] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4573:/ cppif.else"); - /*_.IFCPP___V70*/ curfptr[62] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4574:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4574:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4574:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4574:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NSTATCMADATA__V72*/ curfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.STATCMA__V36*/ curfptr[35]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L26*/ curfnum[21] = - (melt_get_int((melt_ptr_t)((/*!CMATCH_STATE*/ curfrout->tabval[24]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4575:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L26*/ curfnum[21]), (melt_ptr_t)(/*_.NSTATCMADATA__V72*/ curfptr[68]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4574:/ clear"); - /*clear*/ /*_.NSTATCMADATA__V72*/ curfptr[68] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4574:/ clear"); - /*clear*/ /*_#GET_INT__L26*/ curfnum[21] = 0 ;} - ; - /*_#IS_MULTIPLE__L27*/ curfnum[21] = - (melt_magic_discr((melt_ptr_t)(/*_.TESTCMA__V37*/ curfptr[36])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normal.melt:4579:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L27*/ curfnum[21]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4579:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4579:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4581:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4581:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.TESTTUP__V42*/ curfptr[41]; - MELT_LOCATION("warmelt-normal.melt:4581:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4581:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.FILL_NORMAL_EXPANSION__V73*/ curfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.TESTCMA__V37*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4582:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4585:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4585:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4585:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4585:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V74*/ curfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4582:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4582:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V76*/ curfptr[75] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4582:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4582:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4582:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (2), (/*_.NORMAL_PREDEF__V74*/ curfptr[68]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4582:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (5), (/*_.TESTTUP__V42*/ curfptr[41]), "NTUP_COMP"); - ; - /*_.NTESTTUPDATA__V75*/ curfptr[74] = /*_.INST__V76*/ curfptr[75];;} - ; - MELT_LOCATION("warmelt-normal.melt:4588:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4588:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NTESTTUPDATA__V75*/ curfptr[74]; - /*_.ADD_NCTX_DATA__V77*/ curfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L28*/ curfnum[27] = - (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPTEST*/ curfrout->tabval[26]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4589:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L28*/ curfnum[27]), (melt_ptr_t)(/*_.NTESTTUPDATA__V75*/ curfptr[74]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4582:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V74*/ curfptr[68] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4582:/ clear"); - /*clear*/ /*_.NTESTTUPDATA__V75*/ curfptr[74] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4582:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V77*/ curfptr[76] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4582:/ clear"); - /*clear*/ /*_#GET_INT__L28*/ curfnum[27] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4580:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4579:/ clear"); - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V73*/ curfptr[59] = 0 ;} - ; - } /*noelse*/ - ; - /*_#IS_MULTIPLE__L29*/ curfnum[27] = - (melt_magic_discr((melt_ptr_t)(/*_.FILLCMA__V38*/ curfptr[37])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normal.melt:4593:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L29*/ curfnum[27]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4593:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4593:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4595:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4595:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FILLTUP__V44*/ curfptr[42]; - MELT_LOCATION("warmelt-normal.melt:4595:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4595:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.FILL_NORMAL_EXPANSION__V78*/ curfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.FILLCMA__V38*/ curfptr[37]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4596:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4599:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4599:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4599:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4599:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V79*/ curfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4596:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4596:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V81*/ curfptr[59] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4596:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4596:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4596:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (2), (/*_.NORMAL_PREDEF__V79*/ curfptr[74]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4596:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (5), (/*_.FILLTUP__V44*/ curfptr[42]), "NTUP_COMP"); - ; - /*_.NFILLTUPDATA__V80*/ curfptr[76] = /*_.INST__V81*/ curfptr[59];;} - ; - MELT_LOCATION("warmelt-normal.melt:4602:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4602:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NFILLTUPDATA__V80*/ curfptr[76]; - /*_.ADD_NCTX_DATA__V82*/ curfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L30*/ curfnum[29] = - (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPFILL*/ curfrout->tabval[27]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4603:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L30*/ curfnum[29]), (melt_ptr_t)(/*_.NFILLTUPDATA__V80*/ curfptr[76]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4596:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V79*/ curfptr[74] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4596:/ clear"); - /*clear*/ /*_.NFILLTUPDATA__V80*/ curfptr[76] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4596:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V82*/ curfptr[81] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4596:/ clear"); - /*clear*/ /*_#GET_INT__L30*/ curfnum[29] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4594:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4593:/ clear"); - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V78*/ curfptr[68] = 0 ;} - ; - } /*noelse*/ - ; - /*_#IS_MULTIPLE__L31*/ curfnum[29] = - (melt_magic_discr((melt_ptr_t)(/*_.OPERCMA__V39*/ curfptr[38])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normal.melt:4607:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L31*/ curfnum[29]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4607:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4607:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4609:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4609:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OPERTUP__V46*/ curfptr[44]; - MELT_LOCATION("warmelt-normal.melt:4609:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4609:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.FILL_NORMAL_EXPANSION__V83*/ curfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.OPERCMA__V39*/ curfptr[38]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4610:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4613:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4613:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4613:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4613:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V84*/ curfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4610:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4610:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V86*/ curfptr[68] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4610:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4610:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4610:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (2), (/*_.NORMAL_PREDEF__V84*/ curfptr[76]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4610:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (5), (/*_.OPERTUP__V46*/ curfptr[44]), "NTUP_COMP"); - ; - /*_.NOPERTUPDATA__V85*/ curfptr[81] = /*_.INST__V86*/ curfptr[68];;} - ; - MELT_LOCATION("warmelt-normal.melt:4616:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4616:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOPERTUPDATA__V85*/ curfptr[81]; - /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L32*/ curfnum[31] = - (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPOPER*/ curfrout->tabval[28]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4617:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L32*/ curfnum[31]), (melt_ptr_t)(/*_.NOPERTUPDATA__V85*/ curfptr[81]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4610:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V84*/ curfptr[76] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4610:/ clear"); - /*clear*/ /*_.NOPERTUPDATA__V85*/ curfptr[81] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4610:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4610:/ clear"); - /*clear*/ /*_#GET_INT__L32*/ curfnum[31] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4608:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4607:/ clear"); - /*clear*/ /*_.FILL_NORMAL_EXPANSION__V83*/ curfptr[74] = 0 ;} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-normal.melt:4621:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4621:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.CMBIND__V31*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.CMBIND__V31*/ curfptr[29]), (1), (/*_.INSDATA__V55*/ curfptr[54]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:4621:/ touch"); - meltgc_touch(/*_.CMBIND__V31*/ curfptr[29]); - ; - /*epilog*/} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4623:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4623:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L33*/ curfnum[31] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4623:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defcmatcher return insdata"; - MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[31]; - MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg"); - argtab[3].bp_long = 4623; - /*_.DEBUG_MSG_FUN__V89*/ curfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INSDATA__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V88*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V89*/ curfptr[81];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4623:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4623:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ curfptr[81] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4623:/ cppif.else"); - /*_.IFCPP___V88*/ curfptr[76] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4624:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V55*/ curfptr[54];; - MELT_LOCATION("warmelt-normal.melt:4624:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V90*/ curfptr[86];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.LET___V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.CMATCHER__V24*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.LET___V25*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.CMBIND__V31*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#OBJECT_LENGTH__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.SLOTUP__V32*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.INSCMA__V33*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.MBICMA__V34*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.OUTSCMA__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.STATCMA__V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.TESTCMA__V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.FILLCMA__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.OPERCMA__V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.INSTUP__V40*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.OUTSTUP__V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.TESTTUP__V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.FILLTUP__V44*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.OPERTUP__V46*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#I__L18*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.FORMSYMBMAP__V48*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V49*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.NAMSTRDATA__V51*/ curfptr[50] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#OBJ_HASH__L20*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.INSDATA__V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V57*/ curfptr[56] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V58*/ curfptr[57] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#GET_INT__L21*/ curfnum[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.FILL_NORMAL_FORMALS__V59*/ curfptr[58] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.FILL_NORMAL_FORMALS__V65*/ curfptr[60] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.IFCPP___V70*/ curfptr[62] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L27*/ curfnum[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L29*/ curfnum[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L31*/ curfnum[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.IFCPP___V88*/ curfptr[76] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4500:/ clear"); - /*clear*/ /*_.RETURN___V90*/ curfptr[86] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4495:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:4495:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4495:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4495:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4495:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4495:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4495:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_DEFCMATCHER", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 96 - void* varptr[96]; -#define CURFRAM_NBVARNUM 34 - long varnum[34]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<96; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 96; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_DEFUNMATCHER", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4633:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4633:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4633:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4633:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4633:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4634:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4634:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4634:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher start recv"; - MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg"); - argtab[3].bp_long = 4634; - /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4634:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4634:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4634:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4635:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4635:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUNMATCHER*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4635:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4635:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4635:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4635:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4635:/ locexp"); - melt_assert_failed(( "normexp_defunmatcher check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4635)?(4635):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4635:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4635:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4635:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4636:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4636:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:4636:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4636:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4636:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4636:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4636:/ locexp"); - melt_assert_failed(( "normexp_defunmatcher check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4636)?(4636):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4636:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4636:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4636:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4637:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4637:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:4637:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4637:/ cond.then"); - /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4637:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4637:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4637:/ locexp"); - melt_assert_failed(( "normexp_defunmatcher check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4637)?(4637):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4637:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4637:/ clear"); - /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4637:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4638:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4638:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4639:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4640:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ curfrout->tabval[4])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4640:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4640:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V17*/ curfptr[16] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:4640:/ cond.else"); - - /*_.SFORMAL_ARGS__V17*/ curfptr[16] = NULL;; - } - ; - /*_.SMATCHED__V18*/ curfptr[17] = - (melt_multiple_nth((melt_ptr_t)(/*_.SFORMAL_ARGS__V17*/ curfptr[16]), (0)));; - MELT_LOCATION("warmelt-normal.melt:4641:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SFUMATDEF_INS");/*_.SINS__V19*/ curfptr[18] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4642:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SFUMATDEF_OUTS");/*_.SOUTS__V20*/ curfptr[19] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4643:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SFUMATDEF_MATCHF");/*_.SMATCHF__V21*/ curfptr[20] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4644:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 8, "SFUMATDEF_APPLYF");/*_.SAPPLYF__V22*/ curfptr[21] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4645:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 9, "SFUMATDEF_DATA");/*_.SDATA__V23*/ curfptr[22] = slot; }; - ; - /*_.RESBINDS__V24*/ curfptr[23] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; - /*_.INSFMA__V25*/ curfptr[24] = - meltgc_new_subseq_multiple((melt_ptr_t)(/*_.SINS__V19*/ curfptr[18]), - (int)(1), (int)(-1)) ;; - /*_.MBIFMA__V26*/ curfptr[25] = - (melt_multiple_nth((melt_ptr_t)(/*_.SINS__V19*/ curfptr[18]), (0)));; - MELT_LOCATION("warmelt-normal.melt:4649:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4649:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4649:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15]; - /*_.B__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4650:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4650:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4650:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher fmbind"; - MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg"); - argtab[3].bp_long = 4650; - /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.B__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4650:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4650:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4650:/ cppif.else"); - /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4651:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4651:/ block"); - /*block*/{ - /*_#IS_A__L6*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.B__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:4651:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4651:/ cond.then"); - /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4651:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4651:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4651:/ locexp"); - melt_assert_failed(( "check fmbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4651)?(4651):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V31*/ curfptr[29] = /*_.IFELSE___V32*/ curfptr[31];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4651:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4651:/ clear"); - /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4651:/ cppif.else"); - /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V27*/ curfptr[26] = /*_.B__V28*/ curfptr[27];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4649:/ clear"); - /*clear*/ /*_.B__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4649:/ clear"); - /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4649:/ clear"); - /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;} - ; - /*_.FMBIND__V33*/ curfptr[31] = /*_.LET___V27*/ curfptr[26];; - MELT_LOCATION("warmelt-normal.melt:4653:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ curfrout->tabval[7])))) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4653:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4653:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31]), 2, "FMBIND_FUNMATCHER");/*_.FUNMATCHER__V34*/ curfptr[27] = slot; }; - ; - } else {MELT_LOCATION("warmelt-normal.melt:4653:/ cond.else"); - - /*_.FUNMATCHER__V34*/ curfptr[27] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4655:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4655:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4655:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher made funmatcher"; - MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg"); - argtab[3].bp_long = 4655; - /*_.DEBUG_MSG_FUN__V36*/ curfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FUNMATCHER__V34*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V35*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4655:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4655:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[29] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4655:/ cppif.else"); - /*_.IFCPP___V35*/ curfptr[28] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4656:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4656:/ block"); - /*block*/{ - /*_#IS_A__L8*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SMATCHED__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[8])));; - MELT_LOCATION("warmelt-normal.melt:4656:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4656:/ cond.then"); - /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4656:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4656:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4656:/ locexp"); - melt_assert_failed(( "check smatched"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4656)?(4656):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V37*/ curfptr[29] = /*_.IFELSE___V38*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4656:/ clear"); - /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4656:/ clear"); - /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4656:/ cppif.else"); - /*_.IFCPP___V37*/ curfptr[29] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4657:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4657:/ block"); - /*block*/{ - /*_#IS_MULTIPLE__L9*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.SINS__V19*/ curfptr[18])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normal.melt:4657:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L9*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4657:/ cond.then"); - /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4657:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4657:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4657:/ locexp"); - melt_assert_failed(( "check sins"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4657)?(4657):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V39*/ curfptr[37] = /*_.IFELSE___V40*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4657:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4657:/ clear"); - /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4657:/ cppif.else"); - /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4658:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4658:/ block"); - /*block*/{ - /*_#IS_MULTIPLE__L10*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19])) == OBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-normal.melt:4658:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4658:/ cond.then"); - /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4658:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4658:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4658:/ locexp"); - melt_assert_failed(( "check souts"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4658)?(4658):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4658:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4658:/ clear"); - /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4658:/ cppif.else"); - /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4659:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4659:/ block"); - /*block*/{ - /*_#IS_A__L11*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MBIFMA__V26*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[8])));; - MELT_LOCATION("warmelt-normal.melt:4659:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4659:/ cond.then"); - /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4659:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4659:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4659:/ locexp"); - melt_assert_failed(( "check mbifma"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4659)?(4659):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4659:/ clear"); - /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4659:/ clear"); - /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4659:/ cppif.else"); - /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4660:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NMABINDS__V47*/ curfptr[46];MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.send"); - /*_.NMATCHF__V46*/ curfptr[45] = meltgc_send ((melt_ptr_t)(/*_.SMATCHF__V21*/ curfptr[20]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:4660:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4663:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4663:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L12*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4663:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher nmatchf"; - MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg"); - argtab[3].bp_long = 4663; - /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMATCHF__V46*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4663:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4663:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4663:/ cppif.else"); - /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4664:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4664:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NMABINDS__V47*/ curfptr[46]; - /*_.LIST_APPEND2LIST__V50*/ curfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4665:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NAPBINDS__V53*/ curfptr[52];MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.send"); - /*_.NAPPLF__V52*/ curfptr[51] = meltgc_send ((melt_ptr_t)(/*_.SAPPLYF__V22*/ curfptr[21]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:4665:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4668:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4668:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L13*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4668:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher napplf"; - MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg"); - argtab[3].bp_long = 4668; - /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NAPPLF__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4668:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4668:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4668:/ cppif.else"); - /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4669:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4669:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAPBINDS__V53*/ curfptr[52]; - /*_.LIST_APPEND2LIST__V56*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4670:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NDABINDS__V59*/ curfptr[58];MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.send"); - /*_.NDATA__V58*/ curfptr[57] = meltgc_send ((melt_ptr_t)(/*_.SDATA__V23*/ curfptr[22]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:4670:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4673:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4673:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L14*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4673:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher ndata"; - MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg"); - argtab[3].bp_long = 4673; - /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NDATA__V58*/ curfptr[57]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V60*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4673:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4673:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4673:/ cppif.else"); - /*_.IFCPP___V60*/ curfptr[59] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4674:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4674:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4674:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher resbinds"; - MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg"); - argtab[3].bp_long = 4674; - /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V62*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V63*/ curfptr[62];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4674:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4674:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4674:/ cppif.else"); - /*_.IFCPP___V62*/ curfptr[60] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4675:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4678:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4678:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4678:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4678:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V65*/ curfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[13])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4679:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V66*/ curfptr[65] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4676:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4676:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[11])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V68*/ curfptr[67] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4676:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4676:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), (/*_.NORMAL_PREDEF__V65*/ curfptr[64]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4676:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (5), (/*_.NAMED_NAME__V66*/ curfptr[65]), "NSTR_STRING"); - ; - /*_.NAMSTRDATA__V67*/ curfptr[66] = /*_.INST__V68*/ curfptr[67];;} - ; - /*_#OBJECT_LENGTH__L16*/ curfnum[0] = - ((long)melt_object_length((melt_ptr_t)(/*_.FUNMATCHER__V34*/ curfptr[27])));; - /*_.SLOTUP__V69*/ curfptr[68] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#OBJECT_LENGTH__L16*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:4684:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4684:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4684:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4684:/ apply.arg"); - argtab[2].bp_cstring = "class_funmatcher"; - /*_.NORMAL_PREDEF__V70*/ curfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[16])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#NONZERO_HASH__L17*/ curfnum[16] = - (melt_nonzerohash());; - /*_.MAKE_INTEGERBOX__V71*/ curfptr[70] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[17])), (/*_#NONZERO_HASH__L17*/ curfnum[16])));; - MELT_LOCATION("warmelt-normal.melt:4681:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4681:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[15])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V73*/ curfptr[72] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4681:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4681:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4681:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (2), (/*_.NORMAL_PREDEF__V70*/ curfptr[69]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4681:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (7), (/*_.MAKE_INTEGERBOX__V71*/ curfptr[70]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:4681:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (8), (/*_.SLOTUP__V69*/ curfptr[68]), "NINST_SLOTS"); - ; - /*_.INSDATA__V72*/ curfptr[71] = /*_.INST__V73*/ curfptr[72];;} - ; - /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = - (melt_multiple_length((melt_ptr_t)(/*_.INSFMA__V25*/ curfptr[24])));; - /*_.INSTUP__V74*/ curfptr[73] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L18*/ curfnum[17])));; - /*_#MULTIPLE_LENGTH__L19*/ curfnum[18] = - (melt_multiple_length((melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19])));; - /*_.OUTSTUP__V75*/ curfptr[74] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L19*/ curfnum[18])));; - /*_#MULTIPLE_LENGTH__L20*/ curfnum[19] = - (melt_multiple_length((melt_ptr_t)(/*_.INSFMA__V25*/ curfptr[24])));; - /*_#MULTIPLE_LENGTH__L21*/ curfnum[20] = - (melt_multiple_length((melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19])));; - /*_#I__L22*/ curfnum[21] = - ((/*_#MULTIPLE_LENGTH__L20*/ curfnum[19]) + (/*_#MULTIPLE_LENGTH__L21*/ curfnum[20]));; - /*_#I__L23*/ curfnum[22] = - ((/*_#I__L22*/ curfnum[21]) * (2));; - /*_#I__L24*/ curfnum[23] = - ((5) + (/*_#I__L23*/ curfnum[22]));; - /*_.FORMSYMBMAP__V76*/ curfptr[75] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[18])), (/*_#I__L24*/ curfnum[23])));; - MELT_LOCATION("warmelt-normal.melt:4695:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4695:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V67*/ curfptr[66]; - /*_.ADD_NCTX_DATA__V77*/ curfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4696:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4696:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V72*/ curfptr[71]; - /*_.ADD_NCTX_DATA__V78*/ curfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L25*/ curfnum[24] = - (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[20]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4698:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L25*/ curfnum[24]), (melt_ptr_t)(/*_.NAMSTRDATA__V67*/ curfptr[66]));} - ; - MELT_LOCATION("warmelt-normal.melt:4700:/ apply"); - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUP__V74*/ curfptr[73]; - MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V76*/ curfptr[75]; - MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.FILL_NORMAL_FORMALS__V79*/ curfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.INSFMA__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4701:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4704:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4704:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4704:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4704:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V80*/ curfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4701:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4701:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[22])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V82*/ curfptr[81] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4701:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4701:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4701:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (2), (/*_.NORMAL_PREDEF__V80*/ curfptr[79]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4701:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (5), (/*_.INSTUP__V74*/ curfptr[73]), "NTUP_COMP"); - ; - /*_.INSTUPDATA__V81*/ curfptr[80] = /*_.INST__V82*/ curfptr[81];;} - ; - MELT_LOCATION("warmelt-normal.melt:4707:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4707:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUPDATA__V81*/ curfptr[80]; - /*_.ADD_NCTX_DATA__V83*/ curfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L26*/ curfnum[25] = - (melt_get_int((melt_ptr_t)((/*!AMATCH_IN*/ curfrout->tabval[23]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4708:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L26*/ curfnum[25]), (melt_ptr_t)(/*_.INSTUPDATA__V81*/ curfptr[80]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4701:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V80*/ curfptr[79] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4701:/ clear"); - /*clear*/ /*_.INSTUPDATA__V81*/ curfptr[80] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4701:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V83*/ curfptr[82] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4701:/ clear"); - /*clear*/ /*_#GET_INT__L26*/ curfnum[25] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4712:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4712:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V76*/ curfptr[75]; - MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.MBDATA__V84*/ curfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.MBIFMA__V26*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L27*/ curfnum[25] = - (melt_get_int((melt_ptr_t)((/*!AMATCH_MATCHBIND*/ curfrout->tabval[25]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4713:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L27*/ curfnum[25]), (melt_ptr_t)(/*_.MBDATA__V84*/ curfptr[79]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4712:/ clear"); - /*clear*/ /*_.MBDATA__V84*/ curfptr[79] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4712:/ clear"); - /*clear*/ /*_#GET_INT__L27*/ curfnum[25] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4717:/ apply"); - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUP__V75*/ curfptr[74]; - MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V76*/ curfptr[75]; - MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.FILL_NORMAL_FORMALS__V85*/ curfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4718:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4721:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4721:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4721:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:4721:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V86*/ curfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4718:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4718:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[22])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V88*/ curfptr[87] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4718:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4718:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4718:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (2), (/*_.NORMAL_PREDEF__V86*/ curfptr[82]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4718:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (5), (/*_.OUTSTUP__V75*/ curfptr[74]), "NTUP_COMP"); - ; - /*_.OUTSTUPDATA__V87*/ curfptr[79] = /*_.INST__V88*/ curfptr[87];;} - ; - MELT_LOCATION("warmelt-normal.melt:4724:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4724:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUPDATA__V87*/ curfptr[79]; - /*_.ADD_NCTX_DATA__V89*/ curfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#GET_INT__L28*/ curfnum[25] = - (melt_get_int((melt_ptr_t)((/*!AMATCH_OUT*/ curfrout->tabval[26]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4725:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L28*/ curfnum[25]), (melt_ptr_t)(/*_.OUTSTUPDATA__V87*/ curfptr[79]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4718:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V86*/ curfptr[82] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4718:/ clear"); - /*clear*/ /*_.OUTSTUPDATA__V87*/ curfptr[79] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4718:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V89*/ curfptr[88] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4718:/ clear"); - /*clear*/ /*_#GET_INT__L28*/ curfnum[25] = 0 ;} - ; - /*_#GET_INT__L29*/ curfnum[25] = - (melt_get_int((melt_ptr_t)((/*!FMATCH_MATCHF*/ curfrout->tabval[27]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4729:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L29*/ curfnum[25]), (melt_ptr_t)(/*_.NMATCHF__V46*/ curfptr[45]));} - ; - /*_#GET_INT__L30*/ curfnum[29] = - (melt_get_int((melt_ptr_t)((/*!FMATCH_APPLYF*/ curfrout->tabval[28]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4732:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L30*/ curfnum[29]), (melt_ptr_t)(/*_.NAPPLF__V52*/ curfptr[51]));} - ; - /*_#GET_INT__L31*/ curfnum[30] = - (melt_get_int((melt_ptr_t)((/*!FMATCH_DATA*/ curfrout->tabval[29]))));; - - { - MELT_LOCATION("warmelt-normal.melt:4735:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L31*/ curfnum[30]), (melt_ptr_t)(/*_.NDATA__V58*/ curfptr[57]));} - ; - MELT_LOCATION("warmelt-normal.melt:4738:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4738:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.FMBIND__V33*/ curfptr[31]), (1), (/*_.INSDATA__V72*/ curfptr[71]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:4738:/ touch"); - meltgc_touch(/*_.FMBIND__V33*/ curfptr[31]); - ; - /*epilog*/} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4740:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4740:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L32*/ curfnum[31] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4740:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher final fmbind"; - MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[31]; - MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg"); - argtab[3].bp_long = 4740; - /*_.DEBUG_MSG_FUN__V91*/ curfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V90*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[79];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4740:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4740:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[79] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4740:/ cppif.else"); - /*_.IFCPP___V90*/ curfptr[82] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4743:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4743:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L33*/ curfnum[31] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4743:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher return insdata"; - MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[31]; - MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg"); - argtab[3].bp_long = 4743; - /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INSDATA__V72*/ curfptr[71]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V92*/ curfptr[88] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[79];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4743:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4743:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4743:/ cppif.else"); - /*_.IFCPP___V92*/ curfptr[88] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4744:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4744:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L34*/ curfnum[31] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4744:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defunmatcher return resbinds"; - MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[31]; - MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg"); - argtab[3].bp_long = 4744; - /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V94*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4744:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4744:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4744:/ cppif.else"); - /*_.IFCPP___V94*/ curfptr[79] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4745:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V72*/ curfptr[71];; - MELT_LOCATION("warmelt-normal.melt:4745:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.RESBINDS__V24*/ curfptr[23]); - ; - MELT_LOCATION("warmelt-normal.melt:4745:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V64*/ curfptr[62] = /*_.RETURN___V96*/ curfptr[94];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V65*/ curfptr[64] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.NAMED_NAME__V66*/ curfptr[65] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.NAMSTRDATA__V67*/ curfptr[66] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#OBJECT_LENGTH__L16*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.SLOTUP__V69*/ curfptr[68] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V70*/ curfptr[69] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#NONZERO_HASH__L17*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V71*/ curfptr[70] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.INSDATA__V72*/ curfptr[71] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.INSTUP__V74*/ curfptr[73] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ curfnum[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.OUTSTUP__V75*/ curfptr[74] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L20*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L21*/ curfnum[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#I__L22*/ curfnum[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.FORMSYMBMAP__V76*/ curfptr[75] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V77*/ curfptr[76] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V78*/ curfptr[77] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#GET_INT__L25*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.FILL_NORMAL_FORMALS__V79*/ curfptr[78] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.FILL_NORMAL_FORMALS__V85*/ curfptr[80] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#GET_INT__L29*/ curfnum[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#GET_INT__L30*/ curfnum[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_#GET_INT__L31*/ curfnum[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.IFCPP___V90*/ curfptr[82] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.IFCPP___V92*/ curfptr[88] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.IFCPP___V94*/ curfptr[79] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4675:/ clear"); - /*clear*/ /*_.RETURN___V96*/ curfptr[94] = 0 ;} - ; - /*_.MULTI___V57*/ curfptr[56] = /*_.LET___V64*/ curfptr[62];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4670:/ clear"); - /*clear*/ /*_.IFCPP___V60*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4670:/ clear"); - /*clear*/ /*_.IFCPP___V62*/ curfptr[60] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4670:/ clear"); - /*clear*/ /*_.LET___V64*/ curfptr[62] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4670:/ clear"); - /*clear*/ /*_.NDABINDS__V59*/ curfptr[58] = 0 ;} - ; - /*_.MULTI___V51*/ curfptr[50] = /*_.MULTI___V57*/ curfptr[56];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4665:/ clear"); - /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4665:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V56*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4665:/ clear"); - /*clear*/ /*_.MULTI___V57*/ curfptr[56] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4665:/ clear"); - /*clear*/ /*_.NAPBINDS__V53*/ curfptr[52] = 0 ;} - ; - /*_.MULTI___V45*/ curfptr[43] = /*_.MULTI___V51*/ curfptr[50];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4660:/ clear"); - /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4660:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V50*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4660:/ clear"); - /*clear*/ /*_.MULTI___V51*/ curfptr[50] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4660:/ clear"); - /*clear*/ /*_.NMABINDS__V47*/ curfptr[46] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V45*/ curfptr[43];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.SFORMAL_ARGS__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.SMATCHED__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.SINS__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.SOUTS__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.SMATCHF__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.SAPPLYF__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.SDATA__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.RESBINDS__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.INSFMA__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.MBIFMA__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.FMBIND__V33*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.FUNMATCHER__V34*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.IFCPP___V35*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.IFCPP___V37*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4638:/ clear"); - /*clear*/ /*_.MULTI___V45*/ curfptr[43] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4633:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:4633:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4633:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4633:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4633:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4633:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4633:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_DEFUNMATCHER", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_131_warmelt_normal_NORMEXP_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_131_warmelt_normal_NORMEXP_DEFCLASS_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 98 - void* varptr[98]; -#define CURFRAM_NBVARNUM 35 - long varnum[35]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<98; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 98; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_DEFCLASS", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4756:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4756:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4756:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4756:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4756:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4757:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4757:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4757:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4757:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4757:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4757:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4757:/ locexp"); - melt_assert_failed(( "check defclass recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4757)?(4757):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4757:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4757:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4757:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4758:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4758:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4758:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4758:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4758:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4758:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4758:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4758)?(4758):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4758:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4758:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4758:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4759:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4759:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:4759:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4759:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4759:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4759:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4759:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4759)?(4759):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4759:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4759:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4759:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4760:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4760:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4761:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4762:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SPREDEF__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4763:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCLASS_CLABIND");/*_.SCLABIND__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4764:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SCLASS_SUPERBIND");/*_.SUPERBIND__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4765:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SCLASS_FLDBINDS");/*_.SFLDBINDS__V18*/ curfptr[17] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4767:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4767:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:4767:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4767:/ cond.then"); - /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4767:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4767:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4767:/ locexp"); - melt_assert_failed(( "check sclabind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4767)?(4767):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4767:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4767:/ clear"); - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4767:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4768:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4768:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), 3, "CBIND_CLASS");/*_.CLAOBJ__V22*/ curfptr[21] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4769:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4769:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4769:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.NAMSYMDATA__V23*/ curfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4772:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4772:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4772:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4772:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V24*/ curfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4773:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4771:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4771:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[5])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V27*/ curfptr[26] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4771:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.NORMAL_PREDEF__V24*/ curfptr[23]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4771:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.NAMED_NAME__V25*/ curfptr[24]), "NSTR_STRING"); - ; - /*_.NAMSTRDATA__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;} - ; - /*_#OBJ_LEN__L5*/ curfnum[0] = - (melt_obj_len((melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21])));; - /*_.CLASLOTS__V28*/ curfptr[27] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#OBJ_LEN__L5*/ curfnum[0])));; - MELT_LOCATION("warmelt-normal.melt:4780:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4780:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4780:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4780:/ apply.arg"); - argtab[2].bp_cstring = "class_class"; - /*_.NORMAL_PREDEF__V29*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#OBJ_HASH__L6*/ curfnum[5] = - (melt_obj_hash((melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21])));; - /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_HASH__L6*/ curfnum[5])));; - MELT_LOCATION("warmelt-normal.melt:4777:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4777:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V32*/ curfptr[31] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4777:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4777:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4777:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.NORMAL_PREDEF__V29*/ curfptr[28]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4777:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (7), (/*_.MAKE_INTEGERBOX__V30*/ curfptr[29]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:4777:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (6), (/*_.SPREDEF__V15*/ curfptr[14]), "NINST_PREDEF"); - ; - MELT_LOCATION("warmelt-normal.melt:4777:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (8), (/*_.CLASLOTS__V28*/ curfptr[27]), "NINST_SLOTS"); - ; - MELT_LOCATION("warmelt-normal.melt:4777:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (5), ((/*!konst_12_OBMAG_OBJECT*/ curfrout->tabval[12])), "NINST_OBJNUM"); - ; - /*_.CLADATA__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} - ; - MELT_LOCATION("warmelt-normal.melt:4786:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), 5, "CLASS_ANCESTORS");/*_.ANCSEQ__V33*/ curfptr[32] = slot; }; - ; - /*_#NBANC__L7*/ curfnum[6] = - (melt_multiple_length((melt_ptr_t)(/*_.ANCSEQ__V33*/ curfptr[32])));; - /*_.ANCTUP__V34*/ curfptr[33] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#NBANC__L7*/ curfnum[6])));; - MELT_LOCATION("warmelt-normal.melt:4793:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4793:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4793:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4793:/ apply.arg"); - argtab[2].bp_cstring = "discr_class_sequence"; - /*_.NORMAL_PREDEF__V35*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_CLASS_SEQUENCE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4789:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4789:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[13])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V37*/ curfptr[36] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4789:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4789:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4789:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.NORMAL_PREDEF__V35*/ curfptr[34]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4789:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), (/*_.ANCTUP__V34*/ curfptr[33]), "NTUP_COMP"); - ; - /*_.ANCDATA__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} - ; - MELT_LOCATION("warmelt-normal.melt:4796:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), 6, "CLASS_FIELDS");/*_.FLDSEQ__V38*/ curfptr[37] = slot; }; - ; - /*_#NBFLD__L8*/ curfnum[7] = - (melt_multiple_length((melt_ptr_t)(/*_.FLDSEQ__V38*/ curfptr[37])));; - /*_#NBOWNFLD__L9*/ curfnum[8] = - (melt_multiple_length((melt_ptr_t)(/*_.SFLDBINDS__V18*/ curfptr[17])));; - /*_#NBSUPFLD__L10*/ curfnum[9] = - ((/*_#NBFLD__L8*/ curfnum[7]) - (/*_#NBOWNFLD__L9*/ curfnum[8]));; - /*_#IX__L11*/ curfnum[10] = 0;; - /*_.FLDTUP__V39*/ curfptr[38] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#NBFLD__L8*/ curfnum[7])));; - MELT_LOCATION("warmelt-normal.melt:4806:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4806:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4806:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4806:/ apply.arg"); - argtab[2].bp_cstring = "discr_field_sequence"; - /*_.NORMAL_PREDEF__V40*/ curfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_FIELD_SEQUENCE*/ curfrout->tabval[15])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4802:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4802:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[13])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V42*/ curfptr[41] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4802:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4802:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4802:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.NORMAL_PREDEF__V40*/ curfptr[39]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4802:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (5), (/*_.FLDTUP__V39*/ curfptr[38]), "NTUP_COMP"); - ; - /*_.FLDDATA__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;} - ; - /*_#IS_A__L12*/ curfnum[11] = - melt_is_instance_of((melt_ptr_t)(/*_.SUPERBIND__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[16])));; - MELT_LOCATION("warmelt-normal.melt:4810:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4810:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4810:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4811:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SUPERBIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V44*/ curfptr[43] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4811:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4811:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4811:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4811:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.NORMAL_EXP__V45*/ curfptr[44] = meltgc_send((melt_ptr_t)(/*_.BINDER__V44*/ curfptr[43]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.SUPERDATA__V43*/ curfptr[42] = /*_.NORMAL_EXP__V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4810:/ clear"); - /*clear*/ /*_.BINDER__V44*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4810:/ clear"); - /*clear*/ /*_.NORMAL_EXP__V45*/ curfptr[44] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4810:/ cond.else"); - - /*_.SUPERDATA__V43*/ curfptr[42] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4813:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4813:/ block"); - /*block*/{ - /*_#IS_A__L13*/ curfnum[12] = - melt_is_instance_of((melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[10])));; - MELT_LOCATION("warmelt-normal.melt:4813:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4813:/ cond.then"); - /*_.IFELSE___V47*/ curfptr[44] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4813:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4813:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4813:/ locexp"); - melt_assert_failed(( "check claobj"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4813)?(4813):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V47*/ curfptr[44] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V46*/ curfptr[43] = /*_.IFELSE___V47*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4813:/ clear"); - /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4813:/ clear"); - /*clear*/ /*_.IFELSE___V47*/ curfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4813:/ cppif.else"); - /*_.IFCPP___V46*/ curfptr[43] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4814:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4814:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLADATA__V31*/ curfptr[30]; - /*_.ADD_NCTX_DATA__V48*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4815:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4815:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V26*/ curfptr[25]; - /*_.ADD_NCTX_DATA__V49*/ curfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4816:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4816:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ANCDATA__V36*/ curfptr[35]; - /*_.ADD_NCTX_DATA__V50*/ curfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4817:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4817:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDDATA__V41*/ curfptr[40]; - /*_.ADD_NCTX_DATA__V51*/ curfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4818:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4818:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[20]); - MELT_LOCATION("warmelt-normal.melt:4818:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V26*/ curfptr[25]; - /*_.FILL_DATA_SLOT__V52*/ curfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4819:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4819:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!CLASS_ANCESTORS*/ curfrout->tabval[21]); - MELT_LOCATION("warmelt-normal.melt:4819:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ANCDATA__V36*/ curfptr[35]; - /*_.FILL_DATA_SLOT__V53*/ curfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4820:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4820:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!CLASS_FIELDS*/ curfrout->tabval[22]); - MELT_LOCATION("warmelt-normal.melt:4820:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FLDDATA__V41*/ curfptr[40]; - /*_.FILL_DATA_SLOT__V54*/ curfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4821:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4821:/ block"); - /*block*/{ - /*_#IS_A__L14*/ curfnum[12] = - melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:4821:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ curfnum[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4821:/ cond.then"); - /*_.IFELSE___V56*/ curfptr[55] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4821:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4821:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4821:/ locexp"); - melt_assert_failed(( "check sclabind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4821)?(4821):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V55*/ curfptr[54] = /*_.IFELSE___V56*/ curfptr[55];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4821:/ clear"); - /*clear*/ /*_#IS_A__L14*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4821:/ clear"); - /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4821:/ cppif.else"); - /*_.IFCPP___V55*/ curfptr[54] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4822:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4822:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15])) == OBMAG_OBJECT); - melt_putfield_object((/*_.SCLABIND__V16*/ curfptr[15]), (1), (/*_.CLADATA__V31*/ curfptr[30]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:4822:/ touch"); - meltgc_touch(/*_.SCLABIND__V16*/ curfptr[15]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:4826:/ compute"); - /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L15*/ curfnum[12] = 0;; - MELT_LOCATION("warmelt-normal.melt:4827:/ loop"); - /*loop*/{ labloop_LOOPSUPERFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4827:/ loopbody"); - - MELT_LOCATION("warmelt-normal.melt:4827:/ block"); - /*block*/{ - /*_#I__L16*/ curfnum[15] = - ((/*_#IX__L11*/ curfnum[10]) >= (/*_#NBSUPFLD__L10*/ curfnum[9]));; - MELT_LOCATION("warmelt-normal.melt:4828:/ cond"); - /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4828:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4828:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4828:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4828:/ compute"); - /*_.LOOPSUPERFIELD__V58*/ curfptr[57] = NULL;; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4828:/ exit"); - /*exit*/{ - goto labexit_LOOPSUPERFIELD_1;} - ;} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-normal.melt:4829:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4833:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4833:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[24])), (3), "CLASS_NREP_FIELDACC");/*_.INST__V60*/ curfptr[59] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4833:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4833:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NACCF_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (1), (/*_.SUPERDATA__V43*/ curfptr[42]), "NACCF_OBJ"); - ; - MELT_LOCATION("warmelt-normal.melt:4833:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NACCF_FLD", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (2), ((/*!CLASS_FIELDS*/ curfrout->tabval[22])), "NACCF_FLD"); - ; - /*_.INST___V59*/ curfptr[58] = /*_.INST__V60*/ curfptr[59];;} - ; - /*_.MAKE_INTEGERBOX__V61*/ curfptr[60] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#IX__L11*/ curfnum[10])));; - MELT_LOCATION("warmelt-normal.melt:4830:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4830:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[23])), (3), "CLASS_NREP_MULTACC");/*_.INST__V63*/ curfptr[62] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4830:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4830:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NACCM_MUL", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.INST___V59*/ curfptr[58]), "NACCM_MUL"); - ; - MELT_LOCATION("warmelt-normal.melt:4830:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NACCM_IX", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.MAKE_INTEGERBOX__V61*/ curfptr[60]), "NACCM_IX"); - ; - /*_.SUPFLDATA__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:4841:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.FLDTUP__V39*/ curfptr[38]), (/*_#IX__L11*/ curfnum[10]), (melt_ptr_t)(/*_.SUPFLDATA__V62*/ curfptr[61]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4829:/ clear"); - /*clear*/ /*_.INST___V59*/ curfptr[58] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4829:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V61*/ curfptr[60] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4829:/ clear"); - /*clear*/ /*_.SUPFLDATA__V62*/ curfptr[61] = 0 ;} - ; - /*_#I__L17*/ curfnum[16] = - ((/*_#IX__L11*/ curfnum[10]) + (1));; - MELT_LOCATION("warmelt-normal.melt:4843:/ compute"); - /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L18*/ curfnum[17] = /*_#I__L17*/ curfnum[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4827:/ clear"); - /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4827:/ clear"); - /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4827:/ clear"); - /*clear*/ /*_#SETQ___L18*/ curfnum[17] = 0 ;} - ; - ; - goto labloop_LOOPSUPERFIELD_1; - labexit_LOOPSUPERFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4827:/ loopepilog"); - /*loopepilog*/ - /*_.FOREVER___V57*/ curfptr[55] = /*_.LOOPSUPERFIELD__V58*/ curfptr[57];; - } - ; - MELT_LOCATION("warmelt-normal.melt:4845:/ compute"); - /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L19*/ curfnum[15] = 0;; - MELT_LOCATION("warmelt-normal.melt:4847:/ loop"); - /*loop*/{ labloop_LOOPOWNFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4847:/ loopbody"); - - MELT_LOCATION("warmelt-normal.melt:4847:/ block"); - /*block*/{ - /*_#I__L20*/ curfnum[16] = - ((/*_#IX__L11*/ curfnum[10]) >= (/*_#NBOWNFLD__L9*/ curfnum[8]));; - MELT_LOCATION("warmelt-normal.melt:4848:/ cond"); - /*cond*/ if (/*_#I__L20*/ curfnum[16]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4848:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4848:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4848:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4848:/ compute"); - /*_.LOOPOWNFIELD__V65*/ curfptr[60] = NULL;; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4848:/ exit"); - /*exit*/{ - goto labexit_LOOPOWNFIELD_1;} - ;} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-normal.melt:4849:/ block"); - /*block*/{ - /*_.OWNFLDBIND__V66*/ curfptr[61] = - (melt_multiple_nth((melt_ptr_t)(/*_.SFLDBINDS__V18*/ curfptr[17]), (/*_#IX__L11*/ curfnum[10])));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4850:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4850:/ block"); - /*block*/{ - /*_#IS_A__L21*/ curfnum[17] = - melt_is_instance_of((melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[25])));; - MELT_LOCATION("warmelt-normal.melt:4850:/ cond"); - /*cond*/ if (/*_#IS_A__L21*/ curfnum[17]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4850:/ cond.then"); - /*_.IFELSE___V68*/ curfptr[67] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4850:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4850:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4850:/ locexp"); - melt_assert_failed(( "check ownfldbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4850)?(4850):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V67*/ curfptr[66] = /*_.IFELSE___V68*/ curfptr[67];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4850:/ clear"); - /*clear*/ /*_#IS_A__L21*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4850:/ clear"); - /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4850:/ cppif.else"); - /*_.IFCPP___V67*/ curfptr[66] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4851:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4851:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), 0, "BINDER");/*_.OWNFLDSYM__V69*/ curfptr[67] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4852:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), 3, "FLBIND_FIELD");/*_.OWNFLD__V70*/ curfptr[69] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4854:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4854:/ block"); - /*block*/{ - /*_#IS_A__L22*/ curfnum[17] = - melt_is_instance_of((melt_ptr_t)(/*_.OWNFLDSYM__V69*/ curfptr[67]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[26])));; - MELT_LOCATION("warmelt-normal.melt:4854:/ cond"); - /*cond*/ if (/*_#IS_A__L22*/ curfnum[17]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4854:/ cond.then"); - /*_.IFELSE___V72*/ curfptr[71] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4854:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4854:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4854:/ locexp"); - melt_assert_failed(( "check ownfldsym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4854)?(4854):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V71*/ curfptr[70] = /*_.IFELSE___V72*/ curfptr[71];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4854:/ clear"); - /*clear*/ /*_#IS_A__L22*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4854:/ clear"); - /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4854:/ cppif.else"); - /*_.IFCPP___V71*/ curfptr[70] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4855:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4855:/ block"); - /*block*/{ - /*_#IS_A__L23*/ curfnum[17] = - melt_is_instance_of((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[27])));; - MELT_LOCATION("warmelt-normal.melt:4855:/ cond"); - /*cond*/ if (/*_#IS_A__L23*/ curfnum[17]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4855:/ cond.then"); - /*_.IFELSE___V74*/ curfptr[73] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4855:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4855:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4855:/ locexp"); - melt_assert_failed(( "check ownfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4855)?(4855):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V74*/ curfptr[73] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V73*/ curfptr[71] = /*_.IFELSE___V74*/ curfptr[73];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4855:/ clear"); - /*clear*/ /*_#IS_A__L23*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4855:/ clear"); - /*clear*/ /*_.IFELSE___V74*/ curfptr[73] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4855:/ cppif.else"); - /*_.IFCPP___V73*/ curfptr[71] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4856:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4856:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4856:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4856:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - /*_.OWNFLDSYMDATA__V75*/ curfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OWNFLDSYM__V69*/ curfptr[67]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#OBJ_LEN__L24*/ curfnum[17] = - (melt_obj_len((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));; - /*_.OWNFLDSLOTS__V76*/ curfptr[75] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#OBJ_LEN__L24*/ curfnum[17])));; - MELT_LOCATION("warmelt-normal.melt:4860:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4860:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4860:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4860:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V77*/ curfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4861:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69]), 1, "NAMED_NAME");/*_.NAMED_NAME__V78*/ curfptr[77] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4859:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4859:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[5])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V80*/ curfptr[79] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4859:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V80*/ curfptr[79]), (2), (/*_.NORMAL_PREDEF__V77*/ curfptr[76]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4859:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V80*/ curfptr[79]), (5), (/*_.NAMED_NAME__V78*/ curfptr[77]), "NSTR_STRING"); - ; - /*_.OWNFLSTRDATA__V79*/ curfptr[78] = /*_.INST__V80*/ curfptr[79];;} - ; - MELT_LOCATION("warmelt-normal.melt:4866:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4866:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4866:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; - MELT_LOCATION("warmelt-normal.melt:4866:/ apply.arg"); - argtab[2].bp_cstring = "class_field"; - /*_.NORMAL_PREDEF__V81*/ curfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[27])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#OBJ_HASH__L25*/ curfnum[24] = - (melt_obj_hash((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));; - /*_.MAKE_INTEGERBOX__V82*/ curfptr[81] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_HASH__L25*/ curfnum[24])));; - /*_#OBJ_NUM__L26*/ curfnum[25] = - (melt_obj_num((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));; - /*_.MAKE_INTEGERBOX__V83*/ curfptr[82] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_NUM__L26*/ curfnum[25])));; - MELT_LOCATION("warmelt-normal.melt:4863:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4863:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V85*/ curfptr[84] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4863:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4863:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (1), (/*_.OWNFLDSYM__V69*/ curfptr[67]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4863:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (2), (/*_.NORMAL_PREDEF__V81*/ curfptr[80]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4863:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (7), (/*_.MAKE_INTEGERBOX__V82*/ curfptr[81]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:4863:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (5), (/*_.MAKE_INTEGERBOX__V83*/ curfptr[82]), "NINST_OBJNUM"); - ; - MELT_LOCATION("warmelt-normal.melt:4863:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (8), (/*_.OWNFLDSLOTS__V76*/ curfptr[75]), "NINST_SLOTS"); - ; - /*_.OWNFLDATA__V84*/ curfptr[83] = /*_.INST__V85*/ curfptr[84];;} - ; - MELT_LOCATION("warmelt-normal.melt:4871:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4871:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OWNFLDATA__V84*/ curfptr[83]; - /*_.ADD_NCTX_DATA__V86*/ curfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4872:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4872:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OWNFLSTRDATA__V79*/ curfptr[78]; - /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4873:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4873:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[20]); - MELT_LOCATION("warmelt-normal.melt:4873:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.OWNFLSTRDATA__V79*/ curfptr[78]; - /*_.FILL_DATA_SLOT__V88*/ curfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4874:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4874:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FLD_OWNCLASS*/ curfrout->tabval[28]); - MELT_LOCATION("warmelt-normal.melt:4874:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CLADATA__V31*/ curfptr[30]; - /*_.FILL_DATA_SLOT__V89*/ curfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#I__L27*/ curfnum[26] = - ((/*_#IX__L11*/ curfnum[10]) + (/*_#NBSUPFLD__L10*/ curfnum[9]));; - - { - MELT_LOCATION("warmelt-normal.melt:4875:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.FLDTUP__V39*/ curfptr[38]), (/*_#I__L27*/ curfnum[26]), (melt_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]));} - ; - MELT_LOCATION("warmelt-normal.melt:4877:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4877:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61])) == OBMAG_OBJECT); - melt_putfield_object((/*_.OWNFLDBIND__V66*/ curfptr[61]), (1), (/*_.OWNFLDATA__V84*/ curfptr[83]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:4877:/ touch"); - meltgc_touch(/*_.OWNFLDBIND__V66*/ curfptr[61]); - ; - /*epilog*/} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.OWNFLDSYMDATA__V75*/ curfptr[73] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_#OBJ_LEN__L24*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.OWNFLDSLOTS__V76*/ curfptr[75] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V77*/ curfptr[76] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.NAMED_NAME__V78*/ curfptr[77] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.OWNFLSTRDATA__V79*/ curfptr[78] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V81*/ curfptr[80] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_#OBJ_HASH__L25*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V82*/ curfptr[81] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_#OBJ_NUM__L26*/ curfnum[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V83*/ curfptr[82] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.OWNFLDATA__V84*/ curfptr[83] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V86*/ curfptr[85] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V88*/ curfptr[87] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V89*/ curfptr[88] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4856:/ clear"); - /*clear*/ /*_#I__L27*/ curfnum[26] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4851:/ clear"); - /*clear*/ /*_.OWNFLDSYM__V69*/ curfptr[67] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4851:/ clear"); - /*clear*/ /*_.OWNFLD__V70*/ curfptr[69] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4851:/ clear"); - /*clear*/ /*_.IFCPP___V71*/ curfptr[70] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4851:/ clear"); - /*clear*/ /*_.IFCPP___V73*/ curfptr[71] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4849:/ clear"); - /*clear*/ /*_.OWNFLDBIND__V66*/ curfptr[61] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4849:/ clear"); - /*clear*/ /*_.IFCPP___V67*/ curfptr[66] = 0 ;} - ; - /*_#I__L28*/ curfnum[17] = - ((/*_#IX__L11*/ curfnum[10]) + (1));; - MELT_LOCATION("warmelt-normal.melt:4881:/ compute"); - /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L29*/ curfnum[24] = /*_#I__L28*/ curfnum[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4847:/ clear"); - /*clear*/ /*_#I__L20*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4847:/ clear"); - /*clear*/ /*_#I__L28*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4847:/ clear"); - /*clear*/ /*_#SETQ___L29*/ curfnum[24] = 0 ;} - ; - ; - goto labloop_LOOPOWNFIELD_1; - labexit_LOOPOWNFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4847:/ loopepilog"); - /*loopepilog*/ - /*_.FOREVER___V64*/ curfptr[58] = /*_.LOOPOWNFIELD__V65*/ curfptr[60];; - } - ; - MELT_LOCATION("warmelt-normal.melt:4884:/ cond"); - /*cond*/ if (/*_.SUPERDATA__V43*/ curfptr[42]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4884:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4884:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4884:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4884:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISC_SUPER*/ curfrout->tabval[29]); - MELT_LOCATION("warmelt-normal.melt:4884:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SUPERDATA__V43*/ curfptr[42]; - /*_.FILL_DATA_SLOT__V91*/ curfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IF___V90*/ curfptr[73] = /*_.FILL_DATA_SLOT__V91*/ curfptr[75];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4884:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V91*/ curfptr[75] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4884:/ cond.else"); - - /*_.IF___V90*/ curfptr[73] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:4886:/ compute"); - /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L30*/ curfnum[25] = 0;; - MELT_LOCATION("warmelt-normal.melt:4888:/ loop"); - /*loop*/{ labloop_LOOPANCESTORSUPER_1:;MELT_LOCATION("warmelt-normal.melt:4888:/ loopbody"); - - MELT_LOCATION("warmelt-normal.melt:4888:/ block"); - /*block*/{ - /*_#I__L31*/ curfnum[26] = - ((/*_#NBANC__L7*/ curfnum[6]) - (1));; - /*_#I__L32*/ curfnum[16] = - ((/*_#IX__L11*/ curfnum[10]) >= (/*_#I__L31*/ curfnum[26]));; - MELT_LOCATION("warmelt-normal.melt:4889:/ cond"); - /*cond*/ if (/*_#I__L32*/ curfnum[16]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4889:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4889:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4889:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4889:/ compute"); - /*_.LOOPANCESTORSUPER__V93*/ curfptr[77] = NULL;; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4889:/ exit"); - /*exit*/{ - goto labexit_LOOPANCESTORSUPER_1;} - ;} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-normal.melt:4890:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4894:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4894:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[24])), (3), "CLASS_NREP_FIELDACC");/*_.INST__V95*/ curfptr[80] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4894:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V95*/ curfptr[80]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4894:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NACCF_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V95*/ curfptr[80]), (1), (/*_.SUPERDATA__V43*/ curfptr[42]), "NACCF_OBJ"); - ; - MELT_LOCATION("warmelt-normal.melt:4894:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NACCF_FLD", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V95*/ curfptr[80]), (2), ((/*!CLASS_ANCESTORS*/ curfrout->tabval[21])), "NACCF_FLD"); - ; - /*_.INST___V94*/ curfptr[78] = /*_.INST__V95*/ curfptr[80];;} - ; - /*_.MAKE_INTEGERBOX__V96*/ curfptr[81] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#IX__L11*/ curfnum[10])));; - MELT_LOCATION("warmelt-normal.melt:4891:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4891:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[23])), (3), "CLASS_NREP_MULTACC");/*_.INST__V98*/ curfptr[83] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4891:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ curfptr[83]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4891:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NACCM_MUL", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ curfptr[83]), (1), (/*_.INST___V94*/ curfptr[78]), "NACCM_MUL"); - ; - MELT_LOCATION("warmelt-normal.melt:4891:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NACCM_IX", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ curfptr[83]), (2), (/*_.MAKE_INTEGERBOX__V96*/ curfptr[81]), "NACCM_IX"); - ; - /*_.SUPANCDATA__V97*/ curfptr[82] = /*_.INST__V98*/ curfptr[83];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:4899:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.ANCTUP__V34*/ curfptr[33]), (/*_#IX__L11*/ curfnum[10]), (melt_ptr_t)(/*_.SUPANCDATA__V97*/ curfptr[82]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4890:/ clear"); - /*clear*/ /*_.INST___V94*/ curfptr[78] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4890:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V96*/ curfptr[81] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4890:/ clear"); - /*clear*/ /*_.SUPANCDATA__V97*/ curfptr[82] = 0 ;} - ; - /*_#I__L33*/ curfnum[17] = - ((/*_#IX__L11*/ curfnum[10]) + (1));; - MELT_LOCATION("warmelt-normal.melt:4901:/ compute"); - /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L34*/ curfnum[24] = /*_#I__L33*/ curfnum[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4888:/ clear"); - /*clear*/ /*_#I__L31*/ curfnum[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4888:/ clear"); - /*clear*/ /*_#I__L32*/ curfnum[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4888:/ clear"); - /*clear*/ /*_#I__L33*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4888:/ clear"); - /*clear*/ /*_#SETQ___L34*/ curfnum[24] = 0 ;} - ; - ; - goto labloop_LOOPANCESTORSUPER_1; - labexit_LOOPANCESTORSUPER_1:;MELT_LOCATION("warmelt-normal.melt:4888:/ loopepilog"); - /*loopepilog*/ - /*_.FOREVER___V92*/ curfptr[76] = /*_.LOOPANCESTORSUPER__V93*/ curfptr[77];; - } - ; - MELT_LOCATION("warmelt-normal.melt:4904:/ cond"); - /*cond*/ if (/*_.SUPERDATA__V43*/ curfptr[42]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4904:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4904:/ block"); - /*block*/{ - /*_#I__L35*/ curfnum[26] = - ((/*_#NBANC__L7*/ curfnum[6]) - (1));; - - { - MELT_LOCATION("warmelt-normal.melt:4904:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.ANCTUP__V34*/ curfptr[33]), (/*_#I__L35*/ curfnum[26]), (melt_ptr_t)(/*_.SUPERDATA__V43*/ curfptr[42]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4904:/ clear"); - /*clear*/ /*_#I__L35*/ curfnum[26] = 0 ;} - ; - } /*noelse*/ - ; - /*_.LET___V21*/ curfptr[19] = /*_.CLADATA__V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.CLAOBJ__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.NAMSYMDATA__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.NAMSTRDATA__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#OBJ_LEN__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.CLASLOTS__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#OBJ_HASH__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.CLADATA__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.ANCSEQ__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#NBANC__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.ANCTUP__V34*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.ANCDATA__V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.FLDSEQ__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#NBFLD__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#NBOWNFLD__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#NBSUPFLD__L10*/ curfnum[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#IX__L11*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.FLDTUP__V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V40*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.FLDDATA__V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.SUPERDATA__V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.IFCPP___V46*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V48*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V49*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V50*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V51*/ curfptr[50] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.IFCPP___V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#SETQ___L15*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.FOREVER___V57*/ curfptr[55] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#SETQ___L19*/ curfnum[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.FOREVER___V64*/ curfptr[58] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.IF___V90*/ curfptr[73] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_#SETQ___L30*/ curfnum[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4768:/ clear"); - /*clear*/ /*_.FOREVER___V92*/ curfptr[76] = 0 ;} - ; - /*_.LET___V12*/ curfptr[10] = /*_.LET___V21*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4760:/ clear"); - /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4760:/ clear"); - /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4760:/ clear"); - /*clear*/ /*_.SPREDEF__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4760:/ clear"); - /*clear*/ /*_.SCLABIND__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4760:/ clear"); - /*clear*/ /*_.SUPERBIND__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4760:/ clear"); - /*clear*/ /*_.SFLDBINDS__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4760:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4760:/ clear"); - /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4756:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - MELT_LOCATION("warmelt-normal.melt:4756:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4756:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4756:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4756:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4756:/ clear"); - /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_DEFCLASS", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_131_warmelt_normal_NORMEXP_DEFCLASS*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 64 - void* varptr[64]; -#define CURFRAM_NBVARNUM 20 - long varnum[20]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<64; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 64; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_DEFINSTANCE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4915:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4915:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:4915:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:4915:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4915:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4916:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4916:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINSTANCE*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:4916:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4916:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4916:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4916:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4916:/ locexp"); - melt_assert_failed(( "check definstance recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4916)?(4916):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4916:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4916:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4916:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4917:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4917:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4917:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4917:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4917:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4917:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4917:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4917)?(4917):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4917:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4917:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4917:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4918:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4918:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:4918:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4918:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4918:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4918:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4918:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4918)?(4918):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4918:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4918:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4918:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4919:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4919:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4919:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg"); - argtab[0].bp_cstring = "normexp_definstance recv"; - MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg"); - argtab[3].bp_long = 4919; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4919:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4919:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4919:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4920:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4920:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4921:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4922:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SPREDEF__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4923:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDOCSTR__V18*/ curfptr[17] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4924:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINSTCLASS__V19*/ curfptr[18] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4925:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SINST_CLABIND");/*_.SINSTCLABND__V20*/ curfptr[19] = slot; }; - ; - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:4926:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4926:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4926:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4926:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), 0, "BINDER");/*_.BINDER__V22*/ curfptr[21] = slot; }; - ; - /*_.SINSTCLASYM__V21*/ curfptr[20] = /*_.BINDER__V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4926:/ clear"); - /*clear*/ /*_.BINDER__V22*/ curfptr[21] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4926:/ cond.else"); - - /*_.SINSTCLASYM__V21*/ curfptr[20] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:4927:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SINST_OBJNUM");/*_.SINSTOBJNUM__V23*/ curfptr[21] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4928:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 8, "SINST_FIELDS");/*_.SINSTFIELDS__V24*/ curfptr[23] = slot; }; - ; - /*_.NBINDLIST__V25*/ curfptr[24] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; - /*_.NBINDBOX__V26*/ curfptr[25] = - meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NBINDLIST__V25*/ curfptr[24]));; - MELT_LOCATION("warmelt-normal.melt:4931:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4931:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15]; - /*_.BINDINS__V27*/ curfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4932:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4932:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4932:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NAMDATA__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#IS_A__L6*/ curfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; - MELT_LOCATION("warmelt-normal.melt:4934:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4934:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4934:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4935:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4935:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:4935:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:4935:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NORMAL_EXP__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.ICLADATA__V29*/ curfptr[28] = /*_.NORMAL_EXP__V30*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4934:/ clear"); - /*clear*/ /*_.NORMAL_EXP__V30*/ curfptr[29] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4934:/ cond.else"); - - /*_.ICLADATA__V29*/ curfptr[28] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4937:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4937:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4937:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg"); - argtab[0].bp_cstring = "normexp_definstance bindins"; - MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg"); - argtab[3].bp_long = 4937; - /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDINS__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4937:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4937:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4937:/ cppif.else"); - /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4938:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4938:/ block"); - /*block*/{ - /*_#IS_A__L8*/ curfnum[6] = - melt_is_instance_of((melt_ptr_t)(/*_.BINDINS__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ curfrout->tabval[11])));; - MELT_LOCATION("warmelt-normal.melt:4938:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4938:/ cond.then"); - /*_.IFELSE___V34*/ curfptr[33] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4938:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4938:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4938:/ locexp"); - melt_assert_failed(( "check bindins"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4938)?(4938):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V33*/ curfptr[31] = /*_.IFELSE___V34*/ curfptr[33];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4938:/ clear"); - /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4938:/ clear"); - /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4938:/ cppif.else"); - /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_A__L9*/ curfnum[6] = - melt_is_instance_of((melt_ptr_t)(/*_.ICLADATA__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[12])));; - /*_#NOT__L10*/ curfnum[9] = - (!(/*_#IS_A__L9*/ curfnum[6]));; - MELT_LOCATION("warmelt-normal.melt:4939:/ cond"); - /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4939:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4939:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4941:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ curfptr[35] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:4941:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in definstance"), (melt_ptr_t)(/*_.NAMED_NAME__V36*/ curfptr[35]));} - ; - MELT_LOCATION("warmelt-normal.melt:4942:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normal.melt:4942:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:4940:/ block"); - /*block*/{ - /*_.PROGN___V38*/ curfptr[37] = /*_.RETURN___V37*/ curfptr[36];;} - ; - /*_.IF___V35*/ curfptr[33] = /*_.PROGN___V38*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4939:/ clear"); - /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4939:/ clear"); - /*clear*/ /*_.RETURN___V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4939:/ clear"); - /*clear*/ /*_.PROGN___V38*/ curfptr[37] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:4939:/ cond.else"); - - /*_.IF___V35*/ curfptr[33] = NULL;; - } - ; - /*_#NULL__L11*/ curfnum[10] = - ((/*_.SPREDEF__V17*/ curfptr[16]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:4944:/ cond"); - /*cond*/ if (/*_#NULL__L11*/ curfnum[10]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4944:/ cond.then"); - /*_.IFELSE___V39*/ curfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4944:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4944:/ block"); - /*block*/{ - /*_#IS_INTEGERBOX__L12*/ curfnum[11] = - (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);; - MELT_LOCATION("warmelt-normal.melt:4945:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L12*/ curfnum[11]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4945:/ cond.then"); - /*_.IFELSE___V40*/ curfptr[36] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4945:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4945:/ block"); - /*block*/{ - /*_#IS_A__L13*/ curfnum[12] = - melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; - MELT_LOCATION("warmelt-normal.melt:4946:/ cond"); - /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4946:/ cond.then"); - /*_.IFELSE___V41*/ curfptr[37] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4946:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4946:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4948:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V42*/ curfptr[41] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:4948:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad predef in DEFINSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V42*/ curfptr[41]));} - ; - MELT_LOCATION("warmelt-normal.melt:4949:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normal.melt:4949:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:4947:/ block"); - /*block*/{ - /*_.PROGN___V44*/ curfptr[43] = /*_.RETURN___V43*/ curfptr[42];;} - ; - /*_.IFELSE___V41*/ curfptr[37] = /*_.PROGN___V44*/ curfptr[43];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4946:/ clear"); - /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4946:/ clear"); - /*clear*/ /*_.RETURN___V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4946:/ clear"); - /*clear*/ /*_.PROGN___V44*/ curfptr[43] = 0 ;} - ; - } - ; - /*_.IFELSE___V40*/ curfptr[36] = /*_.IFELSE___V41*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4945:/ clear"); - /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4945:/ clear"); - /*clear*/ /*_.IFELSE___V41*/ curfptr[37] = 0 ;} - ; - } - ; - /*_.IFELSE___V39*/ curfptr[35] = /*_.IFELSE___V40*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4944:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L12*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4944:/ clear"); - /*clear*/ /*_.IFELSE___V40*/ curfptr[36] = 0 ;} - ; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4950:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4950:/ block"); - /*block*/{ - /*_#IS_A__L14*/ curfnum[12] = - melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));; - MELT_LOCATION("warmelt-normal.melt:4950:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ curfnum[12]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4950:/ cond.then"); - /*_.IFELSE___V46*/ curfptr[42] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4950:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4950:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4950:/ locexp"); - melt_assert_failed(( "check sinstclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4950)?(4950):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V46*/ curfptr[42] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V45*/ curfptr[41] = /*_.IFELSE___V46*/ curfptr[42];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4950:/ clear"); - /*clear*/ /*_#IS_A__L14*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4950:/ clear"); - /*clear*/ /*_.IFELSE___V46*/ curfptr[42] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4950:/ cppif.else"); - /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4951:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4951:/ block"); - /*block*/{ - /*_#IS_A__L15*/ curfnum[11] = - melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; - MELT_LOCATION("warmelt-normal.melt:4951:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ curfnum[11]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4951:/ cond.then"); - /*_.IFELSE___V48*/ curfptr[37] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4951:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4951:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4951:/ locexp"); - melt_assert_failed(( "check sinstclasym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4951)?(4951):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V48*/ curfptr[37] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V47*/ curfptr[43] = /*_.IFELSE___V48*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4951:/ clear"); - /*clear*/ /*_#IS_A__L15*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4951:/ clear"); - /*clear*/ /*_.IFELSE___V48*/ curfptr[37] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4951:/ cppif.else"); - /*_.IFCPP___V47*/ curfptr[43] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4952:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4954:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V50*/ curfptr[42] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L16*/ curfnum[12] = - (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V50*/ curfptr[42])));; - /*_.SLOTUP__V51*/ curfptr[37] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L16*/ curfnum[12])));; - /*_#NONZERO_HASH__L17*/ curfnum[11] = - (melt_nonzerohash());; - /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[16])), (/*_#NONZERO_HASH__L17*/ curfnum[11])));; - MELT_LOCATION("warmelt-normal.melt:4955:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4955:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[15])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V54*/ curfptr[53] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:4955:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:4955:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:4955:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.ICLADATA__V29*/ curfptr[28]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:4955:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (7), (/*_.MAKE_INTEGERBOX__V52*/ curfptr[51]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:4955:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (6), (/*_.SPREDEF__V17*/ curfptr[16]), "NINST_PREDEF"); - ; - MELT_LOCATION("warmelt-normal.melt:4955:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (8), (/*_.SLOTUP__V51*/ curfptr[37]), "NINST_SLOTS"); - ; - MELT_LOCATION("warmelt-normal.melt:4955:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (5), (/*_.SINSTOBJNUM__V23*/ curfptr[21]), "NINST_OBJNUM"); - ; - /*_.INSDATA__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;} - ; - MELT_LOCATION("warmelt-normal.melt:4965:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4965:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V53*/ curfptr[52]; - /*_.ADD_NCTX_DATA__V55*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4966:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4966:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BINDINS__V27*/ curfptr[26]; - /*_.PUT_ENV__V56*/ curfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4967:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4967:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.BINDINS__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.BINDINS__V27*/ curfptr[26]), (1), (/*_.INSDATA__V53*/ curfptr[52]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:4967:/ touch"); - meltgc_touch(/*_.BINDINS__V27*/ curfptr[26]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:4973:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4973:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V58*/ curfptr[57] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_25*/ curfrout->tabval[25])), (6)); - ; - MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[0] = (melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]); - ; - MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]); - ; - MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[2] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]); - ; - MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[3] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); - ; - MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[4] = (melt_ptr_t)(/*_.SLOTUP__V51*/ curfptr[37]); - ; - MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[5] = (melt_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]); - ; - /*_.LAMBDA___V57*/ curfptr[56] = /*_.LAMBDA___V58*/ curfptr[57];;} - ; - MELT_LOCATION("warmelt-normal.melt:4971:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4971:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V57*/ curfptr[56]; - /*_.MULTIPLE_EVERY__V59*/ curfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.SINSTFIELDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4995:/ block"); - /*block*/{ - /*_.THEBINDLIST__V61*/ curfptr[60] = - melt_box_content((meltbox_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]));; - MELT_LOCATION("warmelt-normal.melt:4996:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4996:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]); - /*_.NBINDTUP__V62*/ curfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.THEBINDLIST__V61*/ curfptr[60]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = - (melt_multiple_length((melt_ptr_t)(/*_.NBINDTUP__V62*/ curfptr[61])));; - /*_#I__L19*/ curfnum[18] = - ((/*_#MULTIPLE_LENGTH__L18*/ curfnum[17]) > (0));; - MELT_LOCATION("warmelt-normal.melt:4998:/ cond"); - /*cond*/ if (/*_#I__L19*/ curfnum[18]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4998:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4998:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4999:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4999:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_LOCBIND", melt_magic_discr((melt_ptr_t)(/*_.INSDATA__V53*/ curfptr[52])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INSDATA__V53*/ curfptr[52]), (4), (/*_.NBINDTUP__V62*/ curfptr[61]), "NDATA_LOCBIND"); - ; - MELT_LOCATION("warmelt-normal.melt:4999:/ touch"); - meltgc_touch(/*_.INSDATA__V53*/ curfptr[52]); - ; - /*epilog*/} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5001:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5001:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L20*/ curfnum[19] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5001:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg"); - argtab[0].bp_cstring = "normexp_definstance return insdata"; - MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19]; - MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg"); - argtab[3].bp_long = 5001; - /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INSDATA__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V63*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5001:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5001:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5001:/ cppif.else"); - /*_.IFCPP___V63*/ curfptr[62] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V60*/ curfptr[59] = /*_.INSDATA__V53*/ curfptr[52];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4995:/ clear"); - /*clear*/ /*_.THEBINDLIST__V61*/ curfptr[60] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4995:/ clear"); - /*clear*/ /*_.NBINDTUP__V62*/ curfptr[61] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4995:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4995:/ clear"); - /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4995:/ clear"); - /*clear*/ /*_.IFCPP___V63*/ curfptr[62] = 0 ;} - ; - /*_.LET___V49*/ curfptr[36] = /*_.LET___V60*/ curfptr[59];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V50*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_.SLOTUP__V51*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_#NONZERO_HASH__L17*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_.INSDATA__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_.PUT_ENV__V56*/ curfptr[55] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_.LAMBDA___V57*/ curfptr[56] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V59*/ curfptr[58] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4952:/ clear"); - /*clear*/ /*_.LET___V60*/ curfptr[59] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.LET___V49*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.SDOCSTR__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.SINSTCLASS__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.SINSTCLABND__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.SINSTCLASYM__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.SINSTOBJNUM__V23*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.SINSTFIELDS__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.NBINDLIST__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.NBINDBOX__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.BINDINS__V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.NAMDATA__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.ICLADATA__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_#IS_A__L9*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.IF___V35*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_#NULL__L11*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.IFELSE___V39*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.IFCPP___V47*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4920:/ clear"); - /*clear*/ /*_.LET___V49*/ curfptr[36] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:4915:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:4915:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4915:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4915:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4915:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4915:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4915:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_DEFINSTANCE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_133_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_133_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 23 - void* varptr[23]; -#define CURFRAM_NBVARNUM 9 - long varnum[9]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<23; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 23; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:4973:/ getarg"); - /*_.FLDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:4973:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:4973:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4974:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4974:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4974:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg"); - argtab[0].bp_cstring = "normexp_definstance flda"; - MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg"); - argtab[3].bp_long = 4974; - /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4974:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4974:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4974:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4975:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4975:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:4975:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4975:/ cond.then"); - /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4975:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4975:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4975:/ locexp"); - melt_assert_failed(( "check flda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4975)?(4975):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4975:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4975:/ clear"); - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4975:/ cppif.else"); - /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4976:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4976:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.CURFLD__V7*/ curfptr[5] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:4977:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V8*/ curfptr[7] = slot; }; - ; - /*_#CUROFF__L4*/ curfnum[1] = - (melt_obj_num((melt_ptr_t)(/*_.CURFLD__V7*/ curfptr[5])));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4980:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4980:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[4] = - melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V7*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:4980:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4980:/ cond.then"); - /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4980:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4980:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4980:/ locexp"); - melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4980)?(4980):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4980:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4980:/ clear"); - /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4980:/ cppif.else"); - /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4981:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4981:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4982:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*~SINSTCLASS*/ curfclos->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V12*/ curfptr[11] = slot; }; - ; - /*_.MULTIPLE_NTH__V13*/ curfptr[12] = - (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V12*/ curfptr[11]), (/*_#CUROFF__L4*/ curfnum[1])));; - /*_#__L6*/ curfnum[4] = - ((/*_.MULTIPLE_NTH__V13*/ curfptr[12]) == (/*_.CURFLD__V7*/ curfptr[5]));; - MELT_LOCATION("warmelt-normal.melt:4981:/ cond"); - /*cond*/ if (/*_#__L6*/ curfnum[4]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4981:/ cond.then"); - /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:4981:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:4981:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:4981:/ locexp"); - melt_assert_failed(( "good curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (4981)?(4981):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V14*/ curfptr[13];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4981:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V12*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4981:/ clear"); - /*clear*/ /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4981:/ clear"); - /*clear*/ /*_#__L6*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4981:/ clear"); - /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4981:/ cppif.else"); - /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4984:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4984:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[4] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4984:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg"); - argtab[0].bp_cstring = "normexp_definstance field curexp"; - MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4]; - MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg"); - argtab[3].bp_long = 4984; - /*_.DEBUG_MSG_FUN__V16*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V15*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4984:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4984:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4984:/ cppif.else"); - /*_.IFCPP___V15*/ curfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:4985:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]); - MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V18*/ curfptr[12];MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.send"); - /*_.NCUR__V17*/ curfptr[13] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[3]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:4985:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:4988:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:4988:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[4] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:4988:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg"); - argtab[0].bp_cstring = "normexp_definstance field ncur"; - MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[4]; - MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg"); - argtab[3].bp_long = 4988; - /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCUR__V17*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4988:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4988:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:4988:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:4989:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)((/*~SLOTUP*/ curfclos->tabval[4])), (/*_#CUROFF__L4*/ curfnum[1]), (melt_ptr_t)(/*_.NCUR__V17*/ curfptr[13]));} - ; - /*_#IS_LIST__L9*/ curfnum[4] = - (melt_magic_discr((melt_ptr_t)(/*_.NBINDCUR__V18*/ curfptr[12])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:4990:/ cond"); - /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[4]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:4990:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:4990:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:4991:/ block"); - /*block*/{ - /*_.THEBINDLIST__V21*/ curfptr[19] = - melt_box_content((meltbox_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:4992:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:4992:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V18*/ curfptr[12]; - /*_.LIST_APPEND2LIST__V22*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.THEBINDLIST__V21*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:4992:/ compute"); - /*_.THEBINDLIST__V21*/ curfptr[19] = /*_.SETQ___V23*/ curfptr[22] = /*_.LIST_APPEND2LIST__V22*/ curfptr[21];; - - { - MELT_LOCATION("warmelt-normal.melt:4993:/ locexp"); - meltgc_box_put((melt_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.THEBINDLIST__V21*/ curfptr[19]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4991:/ clear"); - /*clear*/ /*_.THEBINDLIST__V21*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4991:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4991:/ clear"); - /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4985:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4985:/ clear"); - /*clear*/ /*_#IS_LIST__L9*/ curfnum[4] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4985:/ clear"); - /*clear*/ /*_.NBINDCUR__V18*/ curfptr[12] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4976:/ clear"); - /*clear*/ /*_.CURFLD__V7*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4976:/ clear"); - /*clear*/ /*_.CUREXP__V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4976:/ clear"); - /*clear*/ /*_#CUROFF__L4*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4976:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4976:/ clear"); - /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4976:/ clear"); - /*clear*/ /*_.IFCPP___V15*/ curfptr[11] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:4973:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:4973:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_133_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 78 - void* varptr[78]; -#define CURFRAM_NBVARNUM 27 - long varnum[27]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<78; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 78; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_DEFSELECTOR", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5009:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5009:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5009:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5009:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5009:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5010:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5010:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFSELECTOR*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5010:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5010:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5010:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5010:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5010:/ locexp"); - melt_assert_failed(( "check defselector recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5010)?(5010):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5010:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5010:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5010:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5011:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5011:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5011:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5011:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5011:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5011:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5011:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5011)?(5011):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5011:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5011:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5011:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5012:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5012:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5012:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5012:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5012:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5012:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5012:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5012)?(5012):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5012:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5012:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5012:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5013:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5013:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5013:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg"); - argtab[0].bp_cstring = "normexp defselector recv"; - MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg"); - argtab[3].bp_long = 5013; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5013:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5013:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5013:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5014:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5015:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5016:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5017:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SPREDEF__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5018:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDOCSTR__V18*/ curfptr[17] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5019:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINSTCLASS__V19*/ curfptr[18] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5020:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SINST_CLABIND");/*_.SINSTCLABND__V20*/ curfptr[19] = slot; }; - ; - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:5021:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5021:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5021:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5021:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), 0, "BINDER");/*_.BINDER__V22*/ curfptr[21] = slot; }; - ; - /*_.SINSTCLASYM__V21*/ curfptr[20] = /*_.BINDER__V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5021:/ clear"); - /*clear*/ /*_.BINDER__V22*/ curfptr[21] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5021:/ cond.else"); - - /*_.SINSTCLASYM__V21*/ curfptr[20] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:5022:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SINST_OBJNUM");/*_.SINSTOBJNUM__V23*/ curfptr[21] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5023:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 8, "SINST_FIELDS");/*_.SINSTFIELDS__V24*/ curfptr[23] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5024:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 9, "SDEFSEL_FORMALS");/*_.SFORMALS__V25*/ curfptr[24] = slot; }; - ; - /*_.NBINDLIST__V26*/ curfptr[25] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; - /*_.NBINDBOX__V27*/ curfptr[26] = - meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NBINDLIST__V26*/ curfptr[25]));; - MELT_LOCATION("warmelt-normal.melt:5027:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5027:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15]; - /*_.BINDSEL__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5028:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5028:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5028:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NAMDATA__V29*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#IS_A__L6*/ curfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; - MELT_LOCATION("warmelt-normal.melt:5030:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5030:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5030:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5031:/ msend"); - /*msend*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5031:/ ojbmsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:5031:/ ojbmsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5031:/ ojbmsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.NORMAL_EXP__V31*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.ICLADATA__V30*/ curfptr[29] = /*_.NORMAL_EXP__V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5030:/ clear"); - /*clear*/ /*_.NORMAL_EXP__V31*/ curfptr[30] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5030:/ cond.else"); - - /*_.ICLADATA__V30*/ curfptr[29] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5033:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5033:/ block"); - /*block*/{ - /*_#IS_A__L7*/ curfnum[6] = - melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[11])));; - MELT_LOCATION("warmelt-normal.melt:5033:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5033:/ cond.then"); - /*_.IFELSE___V33*/ curfptr[32] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5033:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5033:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5033:/ locexp"); - melt_assert_failed(( "check bindsel"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5033)?(5033):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V32*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[32];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5033:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5033:/ clear"); - /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5033:/ cppif.else"); - /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_A__L8*/ curfnum[6] = - melt_is_instance_of((melt_ptr_t)(/*_.ICLADATA__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[12])));; - /*_#NOT__L9*/ curfnum[8] = - (!(/*_#IS_A__L8*/ curfnum[6]));; - MELT_LOCATION("warmelt-normal.melt:5034:/ cond"); - /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5034:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5034:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5036:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[34] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5036:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in defselector"), (melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[34]));} - ; - MELT_LOCATION("warmelt-normal.melt:5037:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normal.melt:5037:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:5035:/ block"); - /*block*/{ - /*_.PROGN___V37*/ curfptr[36] = /*_.RETURN___V36*/ curfptr[35];;} - ; - /*_.IF___V34*/ curfptr[32] = /*_.PROGN___V37*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5034:/ clear"); - /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5034:/ clear"); - /*clear*/ /*_.RETURN___V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5034:/ clear"); - /*clear*/ /*_.PROGN___V37*/ curfptr[36] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5034:/ cond.else"); - - /*_.IF___V34*/ curfptr[32] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:5038:/ cond"); - /*cond*/ if (/*_.SPREDEF__V17*/ curfptr[16]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5038:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5038:/ block"); - /*block*/{ - /*_#IS_INTEGERBOX__L10*/ curfnum[9] = - (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);; - MELT_LOCATION("warmelt-normal.melt:5039:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L10*/ curfnum[9]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5039:/ cond.then"); - /*_#OR___L11*/ curfnum[10] = /*_#IS_INTEGERBOX__L10*/ curfnum[9];; - } else {MELT_LOCATION("warmelt-normal.melt:5039:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5039:/ block"); - /*block*/{ - /*_#IS_A__L12*/ curfnum[11] = - melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; - /*_#OR___L11*/ curfnum[10] = /*_#IS_A__L12*/ curfnum[11];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5039:/ clear"); - /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;} - ; - } - ; - /*_#NOT__L13*/ curfnum[11] = - (!(/*_#OR___L11*/ curfnum[10]));; - MELT_LOCATION("warmelt-normal.melt:5039:/ cond"); - /*cond*/ if (/*_#NOT__L13*/ curfnum[11]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5039:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5039:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5040:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[36] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5040:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad predef in defselector"), (melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[36]));} - ; - MELT_LOCATION("warmelt-normal.melt:5041:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-normal.melt:5041:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:5040:/ block"); - /*block*/{ - /*_.PROGN___V42*/ curfptr[41] = /*_.RETURN___V41*/ curfptr[40];;} - ; - /*_.IF___V39*/ curfptr[35] = /*_.PROGN___V42*/ curfptr[41];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5039:/ clear"); - /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5039:/ clear"); - /*clear*/ /*_.RETURN___V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5039:/ clear"); - /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5039:/ cond.else"); - - /*_.IF___V39*/ curfptr[35] = NULL;; - } - ; - /*_.IF___V38*/ curfptr[34] = /*_.IF___V39*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5038:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L10*/ curfnum[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5038:/ clear"); - /*clear*/ /*_#OR___L11*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5038:/ clear"); - /*clear*/ /*_#NOT__L13*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5038:/ clear"); - /*clear*/ /*_.IF___V39*/ curfptr[35] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5038:/ cond.else"); - - /*_.IF___V38*/ curfptr[34] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5042:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5042:/ block"); - /*block*/{ - /*_#IS_A__L14*/ curfnum[9] = - melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));; - MELT_LOCATION("warmelt-normal.melt:5042:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ curfnum[9]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5042:/ cond.then"); - /*_.IFELSE___V44*/ curfptr[40] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5042:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5042:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5042:/ locexp"); - melt_assert_failed(( "check sinstclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5042)?(5042):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V44*/ curfptr[40] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V43*/ curfptr[36] = /*_.IFELSE___V44*/ curfptr[40];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5042:/ clear"); - /*clear*/ /*_#IS_A__L14*/ curfnum[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5042:/ clear"); - /*clear*/ /*_.IFELSE___V44*/ curfptr[40] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5042:/ cppif.else"); - /*_.IFCPP___V43*/ curfptr[36] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5043:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5043:/ block"); - /*block*/{ - /*_#IS_A__L15*/ curfnum[10] = - melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; - MELT_LOCATION("warmelt-normal.melt:5043:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ curfnum[10]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5043:/ cond.then"); - /*_.IFELSE___V46*/ curfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5043:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5043:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5043:/ locexp"); - melt_assert_failed(( "check sinstclasym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5043)?(5043):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V46*/ curfptr[35] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V45*/ curfptr[41] = /*_.IFELSE___V46*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5043:/ clear"); - /*clear*/ /*_#IS_A__L15*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5043:/ clear"); - /*clear*/ /*_.IFELSE___V46*/ curfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5043:/ cppif.else"); - /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5044:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5044:/ block"); - /*block*/{ - /*_#IS_A__L16*/ curfnum[11] = - melt_is_instance_of((melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; - MELT_LOCATION("warmelt-normal.melt:5044:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5044:/ cond.then"); - /*_.IFELSE___V48*/ curfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5044:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5044:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5044:/ locexp"); - melt_assert_failed(( "check sname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5044)?(5044):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V48*/ curfptr[35] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V47*/ curfptr[40] = /*_.IFELSE___V48*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5044:/ clear"); - /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5044:/ clear"); - /*clear*/ /*_.IFELSE___V48*/ curfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5044:/ cppif.else"); - /*_.IFCPP___V47*/ curfptr[40] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5045:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5047:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V50*/ curfptr[49] = slot; }; - ; - /*_#MULTIPLE_LENGTH__L17*/ curfnum[9] = - (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V50*/ curfptr[49])));; - /*_.SLOTUP__V51*/ curfptr[50] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L17*/ curfnum[9])));; - MELT_LOCATION("warmelt-normal.melt:5050:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5050:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5050:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5050:/ apply.arg"); - argtab[2].bp_cstring = "discr_string"; - /*_.NORMAL_PREDEF__V52*/ curfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[16])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5051:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[52] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5048:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5048:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V55*/ curfptr[54] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5048:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5048:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), (/*_.NORMAL_PREDEF__V52*/ curfptr[51]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:5048:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (5), (/*_.NAMED_NAME__V53*/ curfptr[52]), "NSTR_STRING"); - ; - /*_.NAMSTRDATA__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;} - ; - /*_#NONZERO_HASH__L18*/ curfnum[10] = - (melt_nonzerohash());; - /*_.MAKE_INTEGERBOX__V56*/ curfptr[55] = - (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[19])), (/*_#NONZERO_HASH__L18*/ curfnum[10])));; - MELT_LOCATION("warmelt-normal.melt:5052:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5052:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[18])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V58*/ curfptr[57] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5052:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5052:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:5052:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (2), (/*_.ICLADATA__V30*/ curfptr[29]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:5052:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (7), (/*_.MAKE_INTEGERBOX__V56*/ curfptr[55]), "NINST_HASH"); - ; - MELT_LOCATION("warmelt-normal.melt:5052:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (6), (/*_.SPREDEF__V17*/ curfptr[16]), "NINST_PREDEF"); - ; - MELT_LOCATION("warmelt-normal.melt:5052:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (8), (/*_.SLOTUP__V51*/ curfptr[50]), "NINST_SLOTS"); - ; - MELT_LOCATION("warmelt-normal.melt:5052:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (5), (/*_.SINSTOBJNUM__V23*/ curfptr[21]), "NINST_OBJNUM"); - ; - /*_.INSDATA__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;} - ; - /*_#MULTIPLE_LENGTH__L19*/ curfnum[11] = - (melt_multiple_length((melt_ptr_t)(/*_.SFORMALS__V25*/ curfptr[24])));; - /*_#I__L20*/ curfnum[19] = - ((/*_#MULTIPLE_LENGTH__L19*/ curfnum[11]) * (2));; - /*_#I__L21*/ curfnum[20] = - ((3) + (/*_#I__L20*/ curfnum[19]));; - /*_.FORMSYMBMAP__V59*/ curfptr[58] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[20])), (/*_#I__L21*/ curfnum[20])));; - MELT_LOCATION("warmelt-normal.melt:5062:/ cond"); - /*cond*/ if (/*_.SFORMALS__V25*/ curfptr[24]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5062:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5062:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5063:/ block"); - /*block*/{ - /*_#NBFORMALS__L22*/ curfnum[21] = - (melt_multiple_length((melt_ptr_t)(/*_.SFORMALS__V25*/ curfptr[24])));; - /*_.NFORMALTUPLE__V62*/ curfptr[61] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#NBFORMALS__L22*/ curfnum[21])));; - MELT_LOCATION("warmelt-normal.melt:5069:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5069:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5069:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5069:/ apply.arg"); - argtab[2].bp_cstring = "discr_multiple"; - /*_.NORMAL_PREDEF__V63*/ curfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[16])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5065:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5065:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[21])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V65*/ curfptr[64] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5065:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5065:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); - ; - MELT_LOCATION("warmelt-normal.melt:5065:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (2), (/*_.NORMAL_PREDEF__V63*/ curfptr[62]), "NDATA_DISCRX"); - ; - MELT_LOCATION("warmelt-normal.melt:5065:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (5), (/*_.NFORMALTUPLE__V62*/ curfptr[61]), "NTUP_COMP"); - ; - /*_.NFORMDATA__V64*/ curfptr[63] = /*_.INST__V65*/ curfptr[64];;} - ; - MELT_LOCATION("warmelt-normal.melt:5072:/ apply"); - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NFORMALTUPLE__V62*/ curfptr[61]; - MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V59*/ curfptr[58]; - MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - /*_.FILL_NORMAL_FORMALS__V66*/ curfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.SFORMALS__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5073:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5073:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NFORMDATA__V64*/ curfptr[63]; - /*_.ADD_NCTX_DATA__V67*/ curfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5074:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5074:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!SDEFSEL_FORMALS*/ curfrout->tabval[25]); - MELT_LOCATION("warmelt-normal.melt:5074:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NFORMDATA__V64*/ curfptr[63]; - /*_.FILL_DATA_SLOT__V68*/ curfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.INSDATA__V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.LET___V61*/ curfptr[60] = /*_.NFORMALTUPLE__V62*/ curfptr[61];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5063:/ clear"); - /*clear*/ /*_#NBFORMALS__L22*/ curfnum[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5063:/ clear"); - /*clear*/ /*_.NFORMALTUPLE__V62*/ curfptr[61] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5063:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V63*/ curfptr[62] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5063:/ clear"); - /*clear*/ /*_.NFORMDATA__V64*/ curfptr[63] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5063:/ clear"); - /*clear*/ /*_.FILL_NORMAL_FORMALS__V66*/ curfptr[65] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5063:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V67*/ curfptr[66] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5063:/ clear"); - /*clear*/ /*_.FILL_DATA_SLOT__V68*/ curfptr[67] = 0 ;} - ; - /*_.NFORMTUP__V60*/ curfptr[59] = /*_.LET___V61*/ curfptr[60];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5062:/ clear"); - /*clear*/ /*_.LET___V61*/ curfptr[60] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5062:/ cond.else"); - - /*_.NFORMTUP__V60*/ curfptr[59] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:5078:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5078:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V57*/ curfptr[56]; - /*_.ADD_NCTX_DATA__V69*/ curfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5079:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5079:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V54*/ curfptr[53]; - /*_.ADD_NCTX_DATA__V70*/ curfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5080:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5080:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27])) == OBMAG_OBJECT); - melt_putfield_object((/*_.BINDSEL__V28*/ curfptr[27]), (1), (/*_.INSDATA__V57*/ curfptr[56]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:5080:/ touch"); - meltgc_touch(/*_.BINDSEL__V28*/ curfptr[27]); - ; - /*epilog*/} - ; - MELT_LOCATION("warmelt-normal.melt:5086:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5086:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V72*/ curfptr[65] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_31*/ curfrout->tabval[31])), (6)); - ; - MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[0] = (melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]); - ; - MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]); - ; - MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[2] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]); - ; - MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[3] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); - ; - MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[4] = (melt_ptr_t)(/*_.SLOTUP__V51*/ curfptr[50]); - ; - MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[5] = (melt_ptr_t)(/*_.NBINDBOX__V27*/ curfptr[26]); - ; - /*_.LAMBDA___V71*/ curfptr[63] = /*_.LAMBDA___V72*/ curfptr[65];;} - ; - MELT_LOCATION("warmelt-normal.melt:5084:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5084:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V71*/ curfptr[63]; - /*_.MULTIPLE_EVERY__V73*/ curfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.SINSTFIELDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5105:/ block"); - /*block*/{ - /*_.THEBINDLIST__V75*/ curfptr[60] = - melt_box_content((meltbox_ptr_t)(/*_.NBINDBOX__V27*/ curfptr[26]));; - MELT_LOCATION("warmelt-normal.melt:5106:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5106:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]); - /*_.NBINDTUP__V76*/ curfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[32])), (melt_ptr_t)(/*_.THEBINDLIST__V75*/ curfptr[60]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#MULTIPLE_LENGTH__L23*/ curfnum[21] = - (melt_multiple_length((melt_ptr_t)(/*_.NBINDTUP__V76*/ curfptr[75])));; - /*_#I__L24*/ curfnum[23] = - ((/*_#MULTIPLE_LENGTH__L23*/ curfnum[21]) > (0));; - MELT_LOCATION("warmelt-normal.melt:5108:/ cond"); - /*cond*/ if (/*_#I__L24*/ curfnum[23]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5108:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5108:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5109:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5109:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NDATA_LOCBIND", melt_magic_discr((melt_ptr_t)(/*_.INSDATA__V57*/ curfptr[56])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INSDATA__V57*/ curfptr[56]), (4), (/*_.NBINDTUP__V76*/ curfptr[75]), "NDATA_LOCBIND"); - ; - MELT_LOCATION("warmelt-normal.melt:5109:/ touch"); - meltgc_touch(/*_.INSDATA__V57*/ curfptr[56]); - ; - /*epilog*/} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - /*_#GET_INT__L25*/ curfnum[24] = - (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[33]))));; - - { - MELT_LOCATION("warmelt-normal.melt:5111:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V51*/ curfptr[50]), (/*_#GET_INT__L25*/ curfnum[24]), (melt_ptr_t)(/*_.NAMSTRDATA__V54*/ curfptr[53]));} - ; - /*_#IS_A__L26*/ curfnum[25] = - melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[11])));; - MELT_LOCATION("warmelt-normal.melt:5112:/ cond"); - /*cond*/ if (/*_#IS_A__L26*/ curfnum[25]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5112:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5112:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5113:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5113:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27])) == OBMAG_OBJECT); - melt_putfield_object((/*_.BINDSEL__V28*/ curfptr[27]), (1), (/*_.INSDATA__V57*/ curfptr[56]), "FIXBIND_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:5113:/ touch"); - meltgc_touch(/*_.BINDSEL__V28*/ curfptr[27]); - ; - /*epilog*/} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5117:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5117:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L27*/ curfnum[26] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5117:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg"); - argtab[0].bp_cstring = "normexp_defselector return insdata"; - MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[26]; - MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg"); - argtab[3].bp_long = 5117; - /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INSDATA__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V77*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5117:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5117:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5117:/ cppif.else"); - /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V74*/ curfptr[67] = /*_.INSDATA__V57*/ curfptr[56];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5105:/ clear"); - /*clear*/ /*_.THEBINDLIST__V75*/ curfptr[60] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5105:/ clear"); - /*clear*/ /*_.NBINDTUP__V76*/ curfptr[75] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5105:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L23*/ curfnum[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5105:/ clear"); - /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5105:/ clear"); - /*clear*/ /*_#GET_INT__L25*/ curfnum[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5105:/ clear"); - /*clear*/ /*_#IS_A__L26*/ curfnum[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5105:/ clear"); - /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ;} - ; - /*_.LET___V49*/ curfptr[35] = /*_.LET___V74*/ curfptr[67];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V50*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ curfnum[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.SLOTUP__V51*/ curfptr[50] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.NORMAL_PREDEF__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.NAMSTRDATA__V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_#NONZERO_HASH__L18*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V56*/ curfptr[55] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.INSDATA__V57*/ curfptr[56] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.FORMSYMBMAP__V59*/ curfptr[58] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.NFORMTUP__V60*/ curfptr[59] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V69*/ curfptr[61] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.ADD_NCTX_DATA__V70*/ curfptr[62] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.LAMBDA___V71*/ curfptr[63] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V73*/ curfptr[66] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5045:/ clear"); - /*clear*/ /*_.LET___V74*/ curfptr[67] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.LET___V49*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SDOCSTR__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SINSTCLASS__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SINSTCLABND__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SINSTCLASYM__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SINSTOBJNUM__V23*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SINSTFIELDS__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.SFORMALS__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.NBINDLIST__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.NBINDBOX__V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.BINDSEL__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.NAMDATA__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.ICLADATA__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.IF___V34*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.IF___V38*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.IFCPP___V43*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.IFCPP___V47*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5014:/ clear"); - /*clear*/ /*_.LET___V49*/ curfptr[35] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5009:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5009:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5009:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5009:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5009:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5009:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5009:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_DEFSELECTOR", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_135_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_135_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 17 - void* varptr[17]; -#define CURFRAM_NBVARNUM 6 - long varnum[6]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<17; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 17; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5086:/ getarg"); - /*_.FLDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5086:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5086:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5087:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5087:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5087:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5087:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5087:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5087:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5087:/ locexp"); - melt_assert_failed(( "check flda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5087)?(5087):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5087:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5087:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5087:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5088:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5088:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.CURFLD__V5*/ curfptr[3] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5089:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V6*/ curfptr[5] = slot; }; - ; - /*_#CUROFF__L3*/ curfnum[1] = - (melt_obj_num((melt_ptr_t)(/*_.CURFLD__V5*/ curfptr[3])));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5092:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5092:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[3] = - melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5092:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5092:/ cond.then"); - /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5092:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5092:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5092:/ locexp"); - melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5092)?(5092):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5092:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5092:/ clear"); - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5092:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5093:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5093:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5094:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*~SINSTCLASS*/ curfclos->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V10*/ curfptr[9] = slot; }; - ; - /*_.MULTIPLE_NTH__V11*/ curfptr[10] = - (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V10*/ curfptr[9]), (/*_#CUROFF__L3*/ curfnum[1])));; - /*_#__L5*/ curfnum[3] = - ((/*_.MULTIPLE_NTH__V11*/ curfptr[10]) == (/*_.CURFLD__V5*/ curfptr[3]));; - MELT_LOCATION("warmelt-normal.melt:5093:/ cond"); - /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5093:/ cond.then"); - /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5093:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5093:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5093:/ locexp"); - melt_assert_failed(( "good curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5093)?(5093):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V12*/ curfptr[11];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5093:/ clear"); - /*clear*/ /*_.CLASS_FIELDS__V10*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5093:/ clear"); - /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5093:/ clear"); - /*clear*/ /*_#__L5*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5093:/ clear"); - /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5093:/ cppif.else"); - /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5096:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]); - MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V14*/ curfptr[10];MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.send"); - /*_.NCUR__V13*/ curfptr[9] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V6*/ curfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5096:/ block"); - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5099:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)((/*~SLOTUP*/ curfclos->tabval[4])), (/*_#CUROFF__L3*/ curfnum[1]), (melt_ptr_t)(/*_.NCUR__V13*/ curfptr[9]));} - ; - /*_#IS_LIST__L6*/ curfnum[3] = - (melt_magic_discr((melt_ptr_t)(/*_.NBINDCUR__V14*/ curfptr[10])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:5100:/ cond"); - /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[3]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5100:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5100:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5101:/ block"); - /*block*/{ - /*_.THEBINDLIST__V15*/ curfptr[11] = - melt_box_content((meltbox_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:5102:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5102:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V14*/ curfptr[10]; - /*_.LIST_APPEND2LIST__V16*/ curfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.THEBINDLIST__V15*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5102:/ compute"); - /*_.THEBINDLIST__V15*/ curfptr[11] = /*_.SETQ___V17*/ curfptr[16] = /*_.LIST_APPEND2LIST__V16*/ curfptr[15];; - - { - MELT_LOCATION("warmelt-normal.melt:5103:/ locexp"); - meltgc_box_put((melt_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.THEBINDLIST__V15*/ curfptr[11]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5101:/ clear"); - /*clear*/ /*_.THEBINDLIST__V15*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5101:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5101:/ clear"); - /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5096:/ clear"); - /*clear*/ /*_#IS_LIST__L6*/ curfnum[3] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5096:/ clear"); - /*clear*/ /*_.NBINDCUR__V14*/ curfptr[10] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5088:/ clear"); - /*clear*/ /*_.CURFLD__V5*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5088:/ clear"); - /*clear*/ /*_.CUREXP__V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5088:/ clear"); - /*clear*/ /*_#CUROFF__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5088:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5088:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5086:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_135_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 22 - void* varptr[22]; -#define CURFRAM_NBVARNUM 3 - long varnum[3]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<22; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 22; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMAL_VALUE_EXPORTER", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5138:/ getarg"); - /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5138:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5138:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5138:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5138:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5139:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5139:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5139:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5139:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5139:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5139:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5139:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5139)?(5139):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5139:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5139:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5139:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5140:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5140:/ block"); - /*block*/{ - /*_#IS_LIST__L2*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:5140:/ cond"); - /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5140:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5140:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5140:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5140:/ locexp"); - melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5140)?(5140):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5140:/ clear"); - /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5140:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5140:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5141:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5141:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5141:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5141:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5141:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5141:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5141:/ locexp"); - melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5141)?(5141):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5141:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5141:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5141:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5142:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5142:/ apply"); - /*apply*/{ - /*_.CSYMVALEXP__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[2])), (melt_ptr_t)((/*!konst_3_VALUEXPORTER_*/ curfrout->tabval[3])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5143:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5143:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[4])), (2), "CLASS_NREP_PREDEF");/*_.INST__V15*/ curfptr[14] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5143:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5143:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), ((/*!konst_5_INITIAL_SYSTEM_DATA*/ curfrout->tabval[5])), "NRPREDEF"); - ; - /*_.NSYSDAT__V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;} - ; - MELT_LOCATION("warmelt-normal.melt:5150:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5150:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[8])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V17*/ curfptr[16] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5150:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5150:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.NSYSDAT__V14*/ curfptr[13]), "NUGET_OBJ"); - ; - MELT_LOCATION("warmelt-normal.melt:5150:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), ((/*!SYSDATA_VALUE_EXPORTER*/ curfrout->tabval[9])), "NUGET_FIELD"); - ; - /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} - ; - MELT_LOCATION("warmelt-normal.melt:5146:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5146:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[6])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V19*/ curfptr[18] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5146:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5146:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.CSYMVALEXP__V13*/ curfptr[12]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:5146:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:5146:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.INST___V16*/ curfptr[15]), "LETBIND_EXPR"); - ; - /*_.CBIND__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} - ; - MELT_LOCATION("warmelt-normal.melt:5154:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5154:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V21*/ curfptr[20] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5154:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5154:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5154:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.CSYMVALEXP__V13*/ curfptr[12]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:5154:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.CBIND__V18*/ curfptr[17]), "NOCC_BIND"); - ; - /*_.LOCSYM__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:5160:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (melt_ptr_t)(/*_.CBIND__V18*/ curfptr[17]));} - ; - MELT_LOCATION("warmelt-normal.melt:5161:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V20*/ curfptr[19];; - MELT_LOCATION("warmelt-normal.melt:5161:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5142:/ clear"); - /*clear*/ /*_.CSYMVALEXP__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5142:/ clear"); - /*clear*/ /*_.NSYSDAT__V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5142:/ clear"); - /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5142:/ clear"); - /*clear*/ /*_.CBIND__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5142:/ clear"); - /*clear*/ /*_.LOCSYM__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5142:/ clear"); - /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5138:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - MELT_LOCATION("warmelt-normal.melt:5138:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5138:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5138:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5138:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5138:/ clear"); - /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMAL_VALUE_EXPORTER", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 60 - void* varptr[60]; -#define CURFRAM_NBVARNUM 14 - long varnum[14]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<60; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 60; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMAL_EXPORTED_VALUE", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5173:/ getarg"); - /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5173:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5173:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NVALUEXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5173:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:5173:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); - - - /*getarg#5*/ - MELT_LOCATION("warmelt-normal.melt:5173:/ getarg"); - if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL); - - - /*getarg#6*/ - MELT_LOCATION("warmelt-normal.melt:5173:/ getarg"); - if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs; - /*_.BINDSLIST__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5173:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5174:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5174:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5174:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_value start sym"; - MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg"); - argtab[3].bp_long = 5174; - /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5174:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5174:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5174:/ cppif.else"); - /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5175:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5175:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5175:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_value start nexp"; - MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg"); - argtab[3].bp_long = 5175; - /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5175:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5175:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5175:/ cppif.else"); - /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5176:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5176:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5176:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_value start nvaluexp"; - MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg"); - argtab[3].bp_long = 5176; - /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5176:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5176:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5176:/ cppif.else"); - /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5177:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5177:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5177:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5177:/ cond.then"); - /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5177:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5177:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5177:/ locexp"); - melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5177)?(5177):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5177:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5177:/ clear"); - /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5177:/ cppif.else"); - /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5178:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5178:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5178:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5178:/ cond.then"); - /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5178:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5178:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5178:/ locexp"); - melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5178)?(5178):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5178:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5178:/ clear"); - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5178:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5179:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5179:/ block"); - /*block*/{ - /*_#IS_A__L6*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5179:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5179:/ cond.then"); - /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5179:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5179:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5179:/ locexp"); - melt_assert_failed(( "check nvaluexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5179)?(5179):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5179:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5179:/ clear"); - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5179:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5180:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5180:/ block"); - /*block*/{ - /*_#IS_A__L7*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:5180:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5180:/ cond.then"); - /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5180:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5180:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5180:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5180)?(5180):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5180:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5180:/ clear"); - /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5180:/ cppif.else"); - /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5181:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5181:/ block"); - /*block*/{ - /*_#IS_A__L8*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:5181:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5181:/ cond.then"); - /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5181:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5181:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5181:/ locexp"); - melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5181)?(5181):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5181:/ clear"); - /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5181:/ clear"); - /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5181:/ cppif.else"); - /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5182:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5182:/ block"); - /*block*/{ - /*_#IS_LIST__L9*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:5182:/ cond"); - /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5182:/ cond.then"); - /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5182:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5182:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5182:/ locexp"); - melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5182)?(5182):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5182:/ clear"); - /*clear*/ /*_#IS_LIST__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5182:/ clear"); - /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5182:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5183:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5183:/ apply"); - /*apply*/{ - /*_.CSYMEXPO__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTED_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5184:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5184:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5]; - MELT_LOCATION("warmelt-normal.melt:5184:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; - /*_.SYMDATA__V29*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5185:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), 0, "NCTX_INITPROC");/*_.INIPROC__V30*/ curfptr[29] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5186:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), 10, "NCTX_CURPROC");/*_.CURPROC__V31*/ curfptr[30] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5187:/ block"); - /*block*/{ - /*_.SB__V33*/ curfptr[32] = - meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);; - - { - MELT_LOCATION("warmelt-normal.melt:5188:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V33*/ curfptr[32]), ( "norm.exp.val : "));} - ; - MELT_LOCATION("warmelt-normal.melt:5189:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5189:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V33*/ curfptr[32]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[33])));} - ; - /*_.LET___V32*/ curfptr[31] = /*_.SB__V33*/ curfptr[32];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5187:/ clear"); - /*clear*/ /*_.SB__V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5187:/ clear"); - /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ;} - ; - /*_.CSBUF__V35*/ curfptr[32] = /*_.LET___V32*/ curfptr[31];; - /*_.STRBUF2STRING__V36*/ curfptr[33] = - (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V35*/ curfptr[32]))));; - MELT_LOCATION("warmelt-normal.melt:5191:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5191:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ curfptr[37] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5191:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.PSLOC__V7*/ curfptr[6]), "LOCA_LOCATION"); - ; - MELT_LOCATION("warmelt-normal.melt:5191:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), (/*_.STRBUF2STRING__V36*/ curfptr[33]), "CMEC_COMMENT"); - ; - /*_.SCURENVBOX__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5195:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5195:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5195:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_value scurenvbox"; - MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg"); - argtab[3].bp_long = 5195; - /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5195:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5195:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5195:/ cppif.else"); - /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5196:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; - MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V43*/ curfptr[42];MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.send"); - /*_.NCURENVBOX__V42*/ curfptr[41] = meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5196:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5199:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5199:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L11*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5199:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_value ncurenvbox"; - MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg"); - argtab[3].bp_long = 5199; - /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5199:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5199:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5199:/ cppif.else"); - /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5200:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5200:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L12*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5200:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_value curenvbinds"; - MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg"); - argtab[3].bp_long = 5200; - /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5200:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5200:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5200:/ cppif.else"); - /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5202:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5202:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V43*/ curfptr[42]; - /*_.LIST_APPEND2LIST__V48*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5203:/ block"); - /*block*/{ - /*_.ARGTUP__V50*/ curfptr[49] = - (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SYMDATA__V29*/ curfptr[28]), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)(/*_.NCURENVBOX__V42*/ curfptr[41])));; - MELT_LOCATION("warmelt-normal.melt:5209:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5209:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[16])), (4), "CLASS_NREP_APPLY");/*_.INST__V52*/ curfptr[51] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5209:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5209:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[17])), "NEXPR_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5209:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (3), (/*_.NVALUEXP__V4*/ curfptr[3]), "NAPP_FUN"); - ; - MELT_LOCATION("warmelt-normal.melt:5209:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (2), (/*_.ARGTUP__V50*/ curfptr[49]), "NEXPR_ARGS"); - ; - /*_.INST___V51*/ curfptr[50] = /*_.INST__V52*/ curfptr[51];;} - ; - MELT_LOCATION("warmelt-normal.melt:5205:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5205:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V54*/ curfptr[53] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5205:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (3), (/*_.PSLOC__V7*/ curfptr[6]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5205:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.CSYMEXPO__V28*/ curfptr[27]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:5205:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:5205:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.INST___V51*/ curfptr[50]), "LETBIND_EXPR"); - ; - /*_.CBIND__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;} - ; - MELT_LOCATION("warmelt-normal.melt:5215:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5215:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[18])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V56*/ curfptr[55] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5215:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5215:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5215:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), (/*_.CSYMEXPO__V28*/ curfptr[27]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:5215:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (3), (/*_.CBIND__V53*/ curfptr[52]), "NOCC_BIND"); - ; - /*_.SYOCC__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5221:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5221:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L13*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5221:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_value cbind"; - MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg"); - argtab[3].bp_long = 5221; - /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V57*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[57];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5221:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5221:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5221:/ cppif.else"); - /*_.IFCPP___V57*/ curfptr[56] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5222:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5222:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L14*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5222:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_value return syocc"; - MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg"); - argtab[3].bp_long = 5222; - /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V59*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5222:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5222:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5222:/ cppif.else"); - /*_.IFCPP___V59*/ curfptr[57] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:5223:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (melt_ptr_t)(/*_.CBIND__V53*/ curfptr[52]));} - ; - /*_.LET___V49*/ curfptr[48] = /*_.SYOCC__V55*/ curfptr[54];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5203:/ clear"); - /*clear*/ /*_.ARGTUP__V50*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5203:/ clear"); - /*clear*/ /*_.INST___V51*/ curfptr[50] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5203:/ clear"); - /*clear*/ /*_.CBIND__V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5203:/ clear"); - /*clear*/ /*_.SYOCC__V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5203:/ clear"); - /*clear*/ /*_.IFCPP___V57*/ curfptr[56] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5203:/ clear"); - /*clear*/ /*_.IFCPP___V59*/ curfptr[57] = 0 ;} - ; - /*_.MULTI___V41*/ curfptr[39] = /*_.LET___V49*/ curfptr[48];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5196:/ clear"); - /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5196:/ clear"); - /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5196:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V48*/ curfptr[46] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5196:/ clear"); - /*clear*/ /*_.LET___V49*/ curfptr[48] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5196:/ clear"); - /*clear*/ /*_.CURENVBINDS__V43*/ curfptr[42] = 0 ;} - ; - /*_.LET___V27*/ curfptr[25] = /*_.MULTI___V41*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.CSYMEXPO__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.SYMDATA__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.INIPROC__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.CURPROC__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.CSBUF__V35*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.SCURENVBOX__V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5183:/ clear"); - /*clear*/ /*_.MULTI___V41*/ curfptr[39] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5173:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V27*/ curfptr[25];; - MELT_LOCATION("warmelt-normal.melt:5173:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5173:/ clear"); - /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMAL_EXPORTED_VALUE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 30 - void* varptr[30]; -#define CURFRAM_NBVARNUM 7 - long varnum[7]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<30; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 30; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_EXPORT_VALUES", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5230:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5230:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5230:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5230:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5230:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5237:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5237:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_VALUES*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5237:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5237:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5237:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5237:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5237:/ locexp"); - melt_assert_failed(( "check exportval recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5237)?(5237):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5237:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5237:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5237:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5238:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5238:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5238:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5238:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5238:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5238:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5238:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5238)?(5238):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5238:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5238:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5238:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5239:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5239:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5239:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5239:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5239:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5239:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5239:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5239)?(5239):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5239:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5239:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5239:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5240:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5240:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5240:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values recv"; - MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg"); - argtab[3].bp_long = 5240; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5240:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5240:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5240:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5241:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5242:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5243:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ curfptr[15] = slot; }; - ; - /*_.BINDSLIST__V17*/ curfptr[16] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; - MELT_LOCATION("warmelt-normal.melt:5245:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5245:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5245:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5245:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V17*/ curfptr[16]; - /*_.NVALUEXPORTER__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5246:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5246:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ curfptr[19] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5246:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - /*_.NILNREP__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5249:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5249:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5249:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values nvaluexporter"; - MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg"); - argtab[3].bp_long = 5249; - /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5249:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5249:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5249:/ cppif.else"); - /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5252:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5252:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (5)); - ; - MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]); - ; - MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]); - ; - MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); - ; - MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[3] = (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]); - ; - MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[4] = (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]); - ; - /*_.LAMBDA___V23*/ curfptr[21] = /*_.LAMBDA___V24*/ curfptr[23];;} - ; - MELT_LOCATION("warmelt-normal.melt:5250:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5250:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[21]; - /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SXNAMES__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5267:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5267:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5267:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values final nilnrep"; - MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg"); - argtab[3].bp_long = 5267; - /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5267:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5267:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5267:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5268:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5268:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5268:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values final bindslist"; - MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg"); - argtab[3].bp_long = 5268; - /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5268:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5268:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5268:/ cppif.else"); - /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5269:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V19*/ curfptr[18];; - MELT_LOCATION("warmelt-normal.melt:5269:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V17*/ curfptr[16]); - ; - MELT_LOCATION("warmelt-normal.melt:5269:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V30*/ curfptr[28];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.SXNAMES__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.BINDSLIST__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.NVALUEXPORTER__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.NILNREP__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.LAMBDA___V23*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5241:/ clear"); - /*clear*/ /*_.RETURN___V30*/ curfptr[28] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5230:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5230:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5230:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5230:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5230:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5230:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5230:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_EXPORT_VALUES", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_139_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_139_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 22 - void* varptr[22]; -#define CURFRAM_NBVARNUM 8 - long varnum[8]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<22; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 22; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5252:/ getarg"); - /*_.XNAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5252:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5252:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5253:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5253:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5253:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5253:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5253:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5253:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5253:/ locexp"); - melt_assert_failed(( "check xnam"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5253)?(5253):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5253:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5253:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5253:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5254:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5254:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5254:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values xnam"; - MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg"); - argtab[3].bp_long = 5254; - /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5254:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5254:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5254:/ cppif.else"); - /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5255:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); - MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYMBINDS__V9*/ curfptr[8];MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.send"); - /*_.NSYM__V8*/ curfptr[7] = meltgc_send ((melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5255:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5258:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5258:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5258:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values nsym"; - MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg"); - argtab[3].bp_long = 5258; - /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NSYM__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5258:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5258:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5258:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5259:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5259:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5259:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values nsymbinds"; - MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg"); - argtab[3].bp_long = 5259; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NSYMBINDS__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5259:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5259:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5259:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5260:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5260:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYMBINDS__V9*/ curfptr[8]; - /*_.LIST_APPEND2LIST__V14*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (melt_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5261:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5261:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5261:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values xnam again"; - MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg"); - argtab[3].bp_long = 5261; - /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5261:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5261:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5261:/ cppif.else"); - /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5262:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5262:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5262:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values before normal_exported_value bindslist"; - MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg"); - argtab[3].bp_long = 5262; - /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[3])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5262:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5262:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5262:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5263:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5263:/ apply"); - /*apply*/{ - union meltparam_un argtab[6]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYM__V8*/ curfptr[7]; - MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[4]); - MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); - MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); - MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg"); - argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[3]); - /*_.NEXPV__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5265:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5265:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5265:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_values normal_exported_value gave nexpv"; - MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg"); - argtab[3].bp_long = 5265; - /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NEXPV__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5265:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5265:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5265:/ cppif.else"); - /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V19*/ curfptr[17] = /*_.IFCPP___V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5263:/ clear"); - /*clear*/ /*_.NEXPV__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5263:/ clear"); - /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;} - ; - /*_.MULTI___V7*/ curfptr[5] = /*_.LET___V19*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5255:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5255:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5255:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V14*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5255:/ clear"); - /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5255:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5255:/ clear"); - /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5255:/ clear"); - /*clear*/ /*_.NSYMBINDS__V9*/ curfptr[8] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5252:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTI___V7*/ curfptr[5];; - MELT_LOCATION("warmelt-normal.melt:5252:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5252:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5252:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5252:/ clear"); - /*clear*/ /*_.MULTI___V7*/ curfptr[5] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_139_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 48 - void* varptr[48]; -#define CURFRAM_NBVARNUM 14 - long varnum[14]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<48; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 48; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_EXPORT_SYNONYM", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5276:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5276:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5276:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5276:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5276:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5278:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5278:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_SYNONYM*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5278:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5278:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5278:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5278:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5278:/ locexp"); - melt_assert_failed(( "check exportsyn recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5278)?(5278):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5278:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5278:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5278:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5279:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5279:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5279:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5279:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5279:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5279:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5279:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5279)?(5279):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5279:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5279:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5279:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5280:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5280:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5280:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5280:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5280:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5280:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5280:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5280)?(5280):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5280:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5280:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5280:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5281:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5281:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5281:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_synonym recv"; - MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg"); - argtab[3].bp_long = 5281; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5281:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5281:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5281:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5282:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5283:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5284:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPSYN_NEWNAME");/*_.NEWNAME__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5285:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXPSYN_OLDNAME");/*_.OLDNAME__V17*/ curfptr[16] = slot; }; - ; - /*_.BINDSLIST__V18*/ curfptr[17] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; - MELT_LOCATION("warmelt-normal.melt:5287:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5287:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5287:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5287:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17]; - /*_.NVALUEXPORTER__V19*/ curfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5288:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5288:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ curfptr[20] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5288:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - /*_.NILNREP__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5291:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5291:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5291:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_synonym nvaluexporter"; - MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg"); - argtab[3].bp_long = 5291; - /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NVALUEXPORTER__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5291:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5291:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5291:/ cppif.else"); - /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5292:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5292:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5292:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_synonym newname"; - MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg"); - argtab[3].bp_long = 5292; - /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWNAME__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V24*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5292:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5292:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5292:/ cppif.else"); - /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5293:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5293:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5293:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_synonym oldname"; - MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg"); - argtab[3].bp_long = 5293; - /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.OLDNAME__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5293:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5293:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5293:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5294:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5294:/ block"); - /*block*/{ - /*_#IS_A__L8*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NEWNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:5294:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5294:/ cond.then"); - /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5294:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5294:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5294:/ locexp"); - melt_assert_failed(( "check newname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5294)?(5294):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5294:/ clear"); - /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5294:/ clear"); - /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5294:/ cppif.else"); - /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5295:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5295:/ block"); - /*block*/{ - /*_#IS_A__L9*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.OLDNAME__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:5295:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5295:/ cond.then"); - /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5295:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5295:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5295:/ locexp"); - melt_assert_failed(( "check oldname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5295)?(5295):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5295:/ clear"); - /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5295:/ clear"); - /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5295:/ cppif.else"); - /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5301:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYMBINDS__V34*/ curfptr[33];MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.send"); - /*_.NOLDSYM__V33*/ curfptr[32] = meltgc_send ((melt_ptr_t)(/*_.OLDNAME__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5301:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5304:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5304:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5304:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_synonym noldsym"; - MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg"); - argtab[3].bp_long = 5304; - /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NOLDSYM__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5304:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5304:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5304:/ cppif.else"); - /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5305:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5305:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L11*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5305:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_synonym noldsymbinds"; - MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg"); - argtab[3].bp_long = 5305; - /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NOLDSYMBINDS__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5305:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5305:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5305:/ cppif.else"); - /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5306:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5306:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYMBINDS__V34*/ curfptr[33]; - /*_.LIST_APPEND2LIST__V39*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5307:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5307:/ apply"); - /*apply*/{ - union meltparam_un argtab[6]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYM__V33*/ curfptr[32]; - MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NVALUEXPORTER__V19*/ curfptr[18]; - MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg"); - argtab[5].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17]; - /*_.NEXPV__V41*/ curfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.NEWNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5309:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5309:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L12*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5309:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_synonym normal_exported_value gave nexpv"; - MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg"); - argtab[3].bp_long = 5309; - /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPV__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5309:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5309:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5309:/ cppif.else"); - /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5310:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5310:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L13*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5310:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_synonym final nilnrep"; - MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg"); - argtab[3].bp_long = 5310; - /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V44*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5310:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5310:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5310:/ cppif.else"); - /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5311:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5311:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L14*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5311:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_synonym final bindslist"; - MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg"); - argtab[3].bp_long = 5311; - /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5311:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5311:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5311:/ cppif.else"); - /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5312:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V20*/ curfptr[19];; - MELT_LOCATION("warmelt-normal.melt:5312:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V18*/ curfptr[17]); - ; - MELT_LOCATION("warmelt-normal.melt:5312:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V40*/ curfptr[39] = /*_.RETURN___V48*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5307:/ clear"); - /*clear*/ /*_.NEXPV__V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5307:/ clear"); - /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5307:/ clear"); - /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5307:/ clear"); - /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5307:/ clear"); - /*clear*/ /*_.RETURN___V48*/ curfptr[46] = 0 ;} - ; - /*_.MULTI___V32*/ curfptr[30] = /*_.LET___V40*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5301:/ clear"); - /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5301:/ clear"); - /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5301:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V39*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5301:/ clear"); - /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5301:/ clear"); - /*clear*/ /*_.NOLDSYMBINDS__V34*/ curfptr[33] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V32*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.NEWNAME__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.OLDNAME__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.BINDSLIST__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.NVALUEXPORTER__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.NILNREP__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5282:/ clear"); - /*clear*/ /*_.MULTI___V32*/ curfptr[30] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5276:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5276:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5276:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5276:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5276:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5276:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5276:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_EXPORT_SYNONYM", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 31 - void* varptr[31]; -#define CURFRAM_NBVARNUM 7 - long varnum[7]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<31; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 31; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_EXPORT_CLASS", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5319:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5319:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5319:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5319:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5319:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5320:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5320:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_CLASS*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5320:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5320:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5320:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5320:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5320:/ locexp"); - melt_assert_failed(( "check export_class recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5320)?(5320):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5320:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5320:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5320:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5321:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5321:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5321:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5321:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5321:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5321:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5321:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5321)?(5321):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5321:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5321:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5321:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5322:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5322:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5322:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5322:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5322:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5322:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5322:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5322)?(5322):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5322:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5322:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5322:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5323:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5323:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5323:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg"); - argtab[0].bp_cstring = "normexp export_class recv"; - MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg"); - argtab[3].bp_long = 5323; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5323:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5323:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5323:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5324:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5325:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5326:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ curfptr[15] = slot; }; - ; - /*_.BINDSLIST__V17*/ curfptr[16] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; - MELT_LOCATION("warmelt-normal.melt:5328:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5328:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5328:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5328:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V17*/ curfptr[16]; - /*_.NVALUEXPORTER__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5329:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5329:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ curfptr[19] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5329:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - /*_.NILNREP__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;} - ; - MELT_LOCATION("warmelt-normal.melt:5331:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MOCX__V21*/ curfptr[20] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5333:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5333:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MOCX__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:5333:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5333:/ cond.then"); - /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5333:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5333:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5333:/ locexp"); - melt_assert_failed(( "check mocx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5333)?(5333):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5333:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5333:/ clear"); - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5333:/ cppif.else"); - /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5336:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5336:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (6)); - ; - MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]); - ; - MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]); - ; - MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); - ; - MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[3] = (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]); - ; - MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[4] = (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]); - ; - MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[5] = (melt_ptr_t)(/*_.MOCX__V21*/ curfptr[20]); - ; - /*_.LAMBDA___V24*/ curfptr[22] = /*_.LAMBDA___V25*/ curfptr[24];;} - ; - MELT_LOCATION("warmelt-normal.melt:5334:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5334:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[22]; - /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SXNAMES__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5392:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5392:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5392:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_class final nilnrep"; - MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg"); - argtab[3].bp_long = 5392; - /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5392:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5392:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5392:/ cppif.else"); - /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5393:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5393:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5393:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_class final bindslist"; - MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg"); - argtab[3].bp_long = 5393; - /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V29*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5393:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5393:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5393:/ cppif.else"); - /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5394:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V19*/ curfptr[18];; - MELT_LOCATION("warmelt-normal.melt:5394:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V17*/ curfptr[16]); - ; - MELT_LOCATION("warmelt-normal.melt:5394:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V31*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.SXNAMES__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.BINDSLIST__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.NVALUEXPORTER__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.NILNREP__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.MOCX__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.LAMBDA___V24*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5324:/ clear"); - /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5319:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5319:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5319:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5319:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5319:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5319:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5319:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_EXPORT_CLASS", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_142_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_142_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 37 - void* varptr[37]; -#define CURFRAM_NBVARNUM 15 - long varnum[15]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<37; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 37; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5336:/ getarg"); - /*_.XNAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5336:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5336:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5337:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5337:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5337:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5337:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5337:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5337:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5337:/ locexp"); - melt_assert_failed(( "check xnam"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5337)?(5337):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5337:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5337:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5337:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5338:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5338:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5338:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XNAM__V2*/ curfptr[1]; - /*_.XBIND__V6*/ curfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~ENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5339:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5339:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); - MELT_LOCATION("warmelt-normal.melt:5339:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); - /*_.XSYMDATA__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5341:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5341:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[1] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5341:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_class xbind"; - MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; - MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg"); - argtab[3].bp_long = 5341; - /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5341:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5341:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5341:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5342:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5342:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.XSYMDATA__V7*/ curfptr[6]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:5342:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5342:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5342:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5342:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5342:/ locexp"); - melt_assert_failed(( "check xsymdata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5342)?(5342):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5342:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5342:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5342:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_NOT_A__L5*/ curfnum[1] = - !melt_is_instance_of((melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:5343:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5343:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5343:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5346:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5345:/ locexp"); - melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "EXPORT_CLASS with non-class-bound symbol"), (melt_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12]));} - ; - MELT_LOCATION("warmelt-normal.melt:5347:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = NULL;; - MELT_LOCATION("warmelt-normal.melt:5347:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:5344:/ block"); - /*block*/{ - /*_.PROGN___V15*/ curfptr[14] = /*_.RETURN___V14*/ curfptr[13];;} - ; - /*_.IF___V12*/ curfptr[10] = /*_.PROGN___V15*/ curfptr[14];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5343:/ clear"); - /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5343:/ clear"); - /*clear*/ /*_.RETURN___V14*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5343:/ clear"); - /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5343:/ cond.else"); - - /*_.IF___V12*/ curfptr[10] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:5349:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5349:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), 1, "FIXBIND_DATA");/*_.XDATA__V17*/ curfptr[13] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5350:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), 3, "CBIND_CLASS");/*_.XCLASS__V18*/ curfptr[14] = slot; }; - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5352:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5352:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[5] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5352:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_class xdata"; - MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg"); - argtab[3].bp_long = 5352; - /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.XDATA__V17*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5352:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5352:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5352:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_NOT_A__L7*/ curfnum[5] = - !melt_is_instance_of((melt_ptr_t)(/*_.XDATA__V17*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[6])));; - MELT_LOCATION("warmelt-normal.melt:5353:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L7*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5353:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5353:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5355:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ curfptr[19] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5354:/ locexp"); - melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "forward defined class symbol to EXPORT_CLASS"), (melt_ptr_t)(/*_.NAMED_NAME__V21*/ curfptr[19]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5353:/ clear"); - /*clear*/ /*_.NAMED_NAME__V21*/ curfptr[19] = 0 ;} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-normal.melt:5356:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5356:/ apply"); - /*apply*/{ - union meltparam_un argtab[6]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XDATA__V17*/ curfptr[13]; - MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[3]); - MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); - MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); - MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg"); - argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[4]); - /*_.NCLAV__V23*/ curfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5358:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5358:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[7] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5358:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_class nclav"; - MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg"); - argtab[3].bp_long = 5358; - /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCLAV__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5358:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5358:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5358:/ cppif.else"); - /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5359:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5359:/ block"); - /*block*/{ - /*_#IS_A__L9*/ curfnum[7] = - melt_is_instance_of((melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));; - MELT_LOCATION("warmelt-normal.melt:5359:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5359:/ cond.then"); - /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5359:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5359:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5359:/ locexp"); - melt_assert_failed(( "check xclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5359)?(5359):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5359:/ clear"); - /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5359:/ clear"); - /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5359:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5360:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5360:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), 6, "CLASS_FIELDS");/*_.XCLFIELDS__V29*/ curfptr[28] = slot; }; - ; - /*_#OBJECT_LENGTH__L10*/ curfnum[7] = - ((long)melt_object_length((melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5]))));; - /*_#GET_INT__L11*/ curfnum[10] = - (melt_get_int((melt_ptr_t)((/*!MOCX_EXPCLASSDICT*/ curfrout->tabval[9]))));; - /*_#I__L12*/ curfnum[11] = - ((/*_#OBJECT_LENGTH__L10*/ curfnum[7]) > (/*_#GET_INT__L11*/ curfnum[10]));; - MELT_LOCATION("warmelt-normal.melt:5364:/ cond"); - /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5364:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5364:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5365:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5])), 2, "MOCX_EXPCLASSDICT");/*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30] = slot; }; - ; - /*_.EXPCLADIC__V30*/ curfptr[29] = /*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5364:/ clear"); - /*clear*/ /*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5364:/ cond.else"); - - /*_.EXPCLADIC__V30*/ curfptr[29] = NULL;; - } - ; - /*_#OBJECT_LENGTH__L13*/ curfnum[12] = - ((long)melt_object_length((melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5]))));; - /*_#GET_INT__L14*/ curfnum[13] = - (melt_get_int((melt_ptr_t)((/*!MOCX_EXPFIELDICT*/ curfrout->tabval[10]))));; - /*_#I__L15*/ curfnum[14] = - ((/*_#OBJECT_LENGTH__L13*/ curfnum[12]) > (/*_#GET_INT__L14*/ curfnum[13]));; - MELT_LOCATION("warmelt-normal.melt:5367:/ cond"); - /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5367:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5367:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5368:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5])), 1, "MOCX_EXPFIELDICT");/*_.MOCX_EXPFIELDICT__V33*/ curfptr[32] = slot; }; - ; - /*_.EXPFLDIC__V32*/ curfptr[30] = /*_.MOCX_EXPFIELDICT__V33*/ curfptr[32];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5367:/ clear"); - /*clear*/ /*_.MOCX_EXPFIELDICT__V33*/ curfptr[32] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5367:/ cond.else"); - - /*_.EXPFLDIC__V32*/ curfptr[30] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:5370:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[32] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5370:/ locexp"); - meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.EXPCLADIC__V30*/ curfptr[29]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[32])), (melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]));} - ; - MELT_LOCATION("warmelt-normal.melt:5373:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5373:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V36*/ curfptr[35] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (7)); - ; - MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[0] = (melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]); - ; - MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[1] = (melt_ptr_t)((/*~ENV*/ curfclos->tabval[0])); - ; - MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[2] = (melt_ptr_t)((/*~NVALUEXPORTER*/ curfclos->tabval[3])); - ; - MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[3] = (melt_ptr_t)((/*~NCX*/ curfclos->tabval[1])); - ; - MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[4] = (melt_ptr_t)((/*~SLOC*/ curfclos->tabval[2])); - ; - MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[5] = (melt_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[4])); - ; - MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 6>= 0 && 6< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[6] = (melt_ptr_t)(/*_.EXPFLDIC__V32*/ curfptr[30]); - ; - /*_.LAMBDA___V35*/ curfptr[34] = /*_.LAMBDA___V36*/ curfptr[35];;} - ; - MELT_LOCATION("warmelt-normal.melt:5371:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5371:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V35*/ curfptr[34]; - /*_.MULTIPLE_EVERY__V37*/ curfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.XCLFIELDS__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.LET___V28*/ curfptr[26] = /*_.MULTIPLE_EVERY__V37*/ curfptr[36];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_.XCLFIELDS__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_#OBJECT_LENGTH__L10*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_#GET_INT__L11*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_.EXPCLADIC__V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_#OBJECT_LENGTH__L13*/ curfnum[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_#GET_INT__L14*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_.EXPFLDIC__V32*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_.LAMBDA___V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5360:/ clear"); - /*clear*/ /*_.MULTIPLE_EVERY__V37*/ curfptr[36] = 0 ;} - ; - /*_.LET___V22*/ curfptr[19] = /*_.LET___V28*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5356:/ clear"); - /*clear*/ /*_.NCLAV__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5356:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5356:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5356:/ clear"); - /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;} - ; - /*_.LET___V16*/ curfptr[12] = /*_.LET___V22*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5349:/ clear"); - /*clear*/ /*_.XDATA__V17*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5349:/ clear"); - /*clear*/ /*_.XCLASS__V18*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5349:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5349:/ clear"); - /*clear*/ /*_#IS_NOT_A__L7*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5349:/ clear"); - /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;} - ; - /*_.LET___V5*/ curfptr[3] = /*_.LET___V16*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5338:/ clear"); - /*clear*/ /*_.XBIND__V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5338:/ clear"); - /*clear*/ /*_.XSYMDATA__V7*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5338:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5338:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5338:/ clear"); - /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5338:/ clear"); - /*clear*/ /*_.IF___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5338:/ clear"); - /*clear*/ /*_.LET___V16*/ curfptr[12] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5336:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; - MELT_LOCATION("warmelt-normal.melt:5336:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5336:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5336:/ clear"); - /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_142_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_143_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_143_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 22 - void* varptr[22]; -#define CURFRAM_NBVARNUM 6 - long varnum[6]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<22; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 22; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5373:/ getarg"); - /*_.CURFLD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5373:/ getarg"); - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5373:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5374:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5374:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[1] = - melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5374:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5374:/ cond.then"); - /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5374:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5374:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5374:/ locexp"); - melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5374)?(5374):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5374:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5374:/ clear"); - /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5374:/ cppif.else"); - /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5375:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5375:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.FLDNAM__V6*/ curfptr[5] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5376:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), 2, "FLD_OWNCLASS");/*_.FLDCLASS__V7*/ curfptr[6] = slot; }; - ; - /*_#__L3*/ curfnum[1] = - ((/*_.FLDCLASS__V7*/ curfptr[6]) == ((/*~XCLASS*/ curfclos->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5378:/ cond"); - /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5378:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5378:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5379:/ block"); - /*block*/{ - /*_.FLDSYM__V10*/ curfptr[9] = - meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.FLDNAM__V6*/ curfptr[5])), MELT_GET);; - MELT_LOCATION("warmelt-normal.melt:5380:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5380:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDSYM__V10*/ curfptr[9]; - /*_.FLDBIND__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~ENV*/ curfclos->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5382:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5382:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[3] = - melt_is_instance_of((melt_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5382:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5382:/ cond.then"); - /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5382:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5382:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5382:/ locexp"); - melt_assert_failed(( "check fldbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5382)?(5382):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5382:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5382:/ clear"); - /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5382:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5383:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5383:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), 1, "FIXBIND_DATA");/*_.FLDATA__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5384:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), 3, "FLBIND_FIELD");/*_.FIELD__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5385:/ apply"); - /*apply*/{ - union meltparam_un argtab[6]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDATA__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[2]); - MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]); - MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[3]); - MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[4]); - MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg"); - argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[5]); - /*_.NFLD__V17*/ curfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLDSYM__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5387:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5387:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[3] = - melt_is_instance_of((melt_ptr_t)(/*_.FIELD__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5387:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5387:/ cond.then"); - /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5387:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5387:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5387:/ locexp"); - melt_assert_failed(( "check field"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5387)?(5387):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5387:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5387:/ clear"); - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5387:/ cppif.else"); - /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5388:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FIELD__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ curfptr[18] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5388:/ locexp"); - meltgc_put_mapstrings((struct meltmapstrings_st *) ((/*~EXPFLDIC*/ curfclos->tabval[6])), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V20*/ curfptr[18])), (melt_ptr_t)(/*_.FIELD__V16*/ curfptr[15]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5389:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5389:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[3] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5389:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_class nfld"; - MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[3]; - MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg"); - argtab[3].bp_long = 5389; - /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NFLD__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5389:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5389:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5389:/ cppif.else"); - /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V14*/ curfptr[12] = /*_.IFCPP___V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5383:/ clear"); - /*clear*/ /*_.FLDATA__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5383:/ clear"); - /*clear*/ /*_.FIELD__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5383:/ clear"); - /*clear*/ /*_.NFLD__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5383:/ clear"); - /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5383:/ clear"); - /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5383:/ clear"); - /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;} - ; - /*_.LET___V9*/ curfptr[8] = /*_.LET___V14*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5379:/ clear"); - /*clear*/ /*_.FLDSYM__V10*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5379:/ clear"); - /*clear*/ /*_.FLDBIND__V11*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5379:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5379:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - ; - /*_.IF___V8*/ curfptr[7] = /*_.LET___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5378:/ clear"); - /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5378:/ cond.else"); - - /*_.IF___V8*/ curfptr[7] = NULL;; - } - ; - /*_.LET___V5*/ curfptr[3] = /*_.IF___V8*/ curfptr[7];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5375:/ clear"); - /*clear*/ /*_.FLDNAM__V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5375:/ clear"); - /*clear*/ /*_.FLDCLASS__V7*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5375:/ clear"); - /*clear*/ /*_#__L3*/ curfnum[1] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5375:/ clear"); - /*clear*/ /*_.IF___V8*/ curfptr[7] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5373:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; - MELT_LOCATION("warmelt-normal.melt:5373:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5373:/ clear"); - /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5373:/ clear"); - /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_143_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 26 - void* varptr[26]; -#define CURFRAM_NBVARNUM 5 - long varnum[5]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<26; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 26; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMAL_MACRO_EXPORTER", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5401:/ getarg"); - /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5401:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5401:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5401:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5401:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5402:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5402:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5402:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5402:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5402:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5402:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5402:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5402)?(5402):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5402:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5402:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5402:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5403:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5403:/ block"); - /*block*/{ - /*_#IS_LIST__L2*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:5403:/ cond"); - /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5403:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5403:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5403:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5403:/ locexp"); - melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5403)?(5403):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5403:/ clear"); - /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5403:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5403:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5404:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5404:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5404:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5404:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5404:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5404:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5404:/ locexp"); - melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5404)?(5404):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5404:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5404:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5404:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5405:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5405:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5405:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg"); - argtab[0].bp_cstring = "normal_macro_exporter start psloc"; - MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg"); - argtab[3].bp_long = 5405; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5405:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5405:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5405:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5406:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5406:/ apply"); - /*apply*/{ - /*_.CSYMVALEXP__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[3])), (melt_ptr_t)((/*!konst_4_MACROXPORTER_*/ curfrout->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5407:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5407:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[5])), (2), "CLASS_NREP_PREDEF");/*_.INST__V17*/ curfptr[16] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5407:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5407:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*!konst_6_INITIAL_SYSTEM_DATA*/ curfrout->tabval[6])), "NRPREDEF"); - ; - /*_.NSYSDAT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} - ; - MELT_LOCATION("warmelt-normal.melt:5414:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5414:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V19*/ curfptr[18] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5414:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5414:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.NSYSDAT__V16*/ curfptr[15]), "NUGET_OBJ"); - ; - MELT_LOCATION("warmelt-normal.melt:5414:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), ((/*!SYSDATA_MACRO_EXPORTER*/ curfrout->tabval[10])), "NUGET_FIELD"); - ; - /*_.INST___V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} - ; - MELT_LOCATION("warmelt-normal.melt:5410:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5410:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ curfptr[20] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5410:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5410:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:5410:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:5410:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.INST___V18*/ curfptr[17]), "LETBIND_EXPR"); - ; - /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} - ; - MELT_LOCATION("warmelt-normal.melt:5418:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5418:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5418:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5418:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5418:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:5418:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND"); - ; - /*_.LOCSYM__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:5424:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (melt_ptr_t)(/*_.CBIND__V20*/ curfptr[19]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5425:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5425:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5425:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg"); - argtab[0].bp_cstring = "normal_macro_exporter return locsym"; - MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg"); - argtab[3].bp_long = 5425; - /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYM__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5425:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5425:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5425:/ cppif.else"); - /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5426:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V22*/ curfptr[21];; - MELT_LOCATION("warmelt-normal.melt:5426:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V26*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5406:/ clear"); - /*clear*/ /*_.CSYMVALEXP__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5406:/ clear"); - /*clear*/ /*_.NSYSDAT__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5406:/ clear"); - /*clear*/ /*_.INST___V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5406:/ clear"); - /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5406:/ clear"); - /*clear*/ /*_.LOCSYM__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5406:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5406:/ clear"); - /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5401:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5401:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5401:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5401:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5401:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5401:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5401:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMAL_MACRO_EXPORTER", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 26 - void* varptr[26]; -#define CURFRAM_NBVARNUM 5 - long varnum[5]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<26; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 26; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMAL_PATMACRO_EXPORTER", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5431:/ getarg"); - /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5431:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5431:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5431:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5431:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5432:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5432:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5432:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5432:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5432:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5432:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5432:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5432)?(5432):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5432:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5432:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5432:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5433:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5433:/ block"); - /*block*/{ - /*_#IS_LIST__L2*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:5433:/ cond"); - /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5433:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5433:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5433:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5433:/ locexp"); - melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5433)?(5433):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5433:/ clear"); - /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5433:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5433:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5434:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5434:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5434:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5434:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5434:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5434:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5434:/ locexp"); - melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5434)?(5434):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5434:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5434:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5434:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5435:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5435:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5435:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg"); - argtab[0].bp_cstring = "normal_patmacro_exporter start psloc"; - MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg"); - argtab[3].bp_long = 5435; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5435:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5435:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5435:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5436:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5436:/ apply"); - /*apply*/{ - /*_.CSYMVALEXP__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[3])), (melt_ptr_t)((/*!konst_4_PATMACROXPORTER_*/ curfrout->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5437:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5437:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[5])), (2), "CLASS_NREP_PREDEF");/*_.INST__V17*/ curfptr[16] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5437:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5437:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*!konst_6_INITIAL_SYSTEM_DATA*/ curfrout->tabval[6])), "NRPREDEF"); - ; - /*_.NSYSDAT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} - ; - MELT_LOCATION("warmelt-normal.melt:5444:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5444:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V19*/ curfptr[18] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5444:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5444:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.NSYSDAT__V16*/ curfptr[15]), "NUGET_OBJ"); - ; - MELT_LOCATION("warmelt-normal.melt:5444:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), ((/*!SYSDATA_PATMACRO_EXPORTER*/ curfrout->tabval[10])), "NUGET_FIELD"); - ; - /*_.INST___V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} - ; - MELT_LOCATION("warmelt-normal.melt:5440:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5440:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ curfptr[20] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5440:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5440:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:5440:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:5440:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.INST___V18*/ curfptr[17]), "LETBIND_EXPR"); - ; - /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} - ; - MELT_LOCATION("warmelt-normal.melt:5448:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5448:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5448:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5448:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5448:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:5448:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND"); - ; - /*_.LOCSYM__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:5454:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (melt_ptr_t)(/*_.CBIND__V20*/ curfptr[19]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5455:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5455:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5455:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg"); - argtab[0].bp_cstring = "normal_patmacro_exporter return locsym"; - MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg"); - argtab[3].bp_long = 5455; - /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYM__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5455:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5455:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5455:/ cppif.else"); - /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5456:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V22*/ curfptr[21];; - MELT_LOCATION("warmelt-normal.melt:5456:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V26*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5436:/ clear"); - /*clear*/ /*_.CSYMVALEXP__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5436:/ clear"); - /*clear*/ /*_.NSYSDAT__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5436:/ clear"); - /*clear*/ /*_.INST___V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5436:/ clear"); - /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5436:/ clear"); - /*clear*/ /*_.LOCSYM__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5436:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5436:/ clear"); - /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5431:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5431:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5431:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5431:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5431:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5431:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5431:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMAL_PATMACRO_EXPORTER", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 59 - void* varptr[59]; -#define CURFRAM_NBVARNUM 15 - long varnum[15]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<59; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 59; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMAL_EXPORTED_MACRO", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5463:/ getarg"); - /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5463:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5463:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NMACROXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5463:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:5463:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); - - - /*getarg#5*/ - MELT_LOCATION("warmelt-normal.melt:5463:/ getarg"); - if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL); - - - /*getarg#6*/ - MELT_LOCATION("warmelt-normal.melt:5463:/ getarg"); - if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs; - /*_.BINDSLIST__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5463:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5464:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5464:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5464:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_macro start sym"; - MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg"); - argtab[3].bp_long = 5464; - /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5464:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5464:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5464:/ cppif.else"); - /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5465:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5465:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5465:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_macro start nexp"; - MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg"); - argtab[3].bp_long = 5465; - /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5465:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5465:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5465:/ cppif.else"); - /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5466:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5466:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5466:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_macro start nmacroxp"; - MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg"); - argtab[3].bp_long = 5466; - /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5466:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5466:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5466:/ cppif.else"); - /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5467:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5467:/ block"); - /*block*/{ - /*_#IS_A__L4*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5467:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5467:/ cond.then"); - /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5467:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5467:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5467:/ locexp"); - melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5467)?(5467):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5467:/ clear"); - /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5467:/ clear"); - /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5467:/ cppif.else"); - /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5468:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5468:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5468:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5468:/ cond.then"); - /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5468:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5468:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5468:/ locexp"); - melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5468)?(5468):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5468:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5468:/ clear"); - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5468:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5469:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5469:/ block"); - /*block*/{ - /*_#IS_A__L6*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5469:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5469:/ cond.then"); - /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5469:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5469:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5469:/ locexp"); - melt_assert_failed(( "check nmacroxp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5469)?(5469):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5469:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5469:/ clear"); - /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5469:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5470:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5470:/ block"); - /*block*/{ - /*_#IS_A__L7*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:5470:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5470:/ cond.then"); - /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5470:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5470:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5470:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5470)?(5470):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5470:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5470:/ clear"); - /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5470:/ cppif.else"); - /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5471:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5471:/ block"); - /*block*/{ - /*_#IS_A__L8*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:5471:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5471:/ cond.then"); - /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5471:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5471:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5471:/ locexp"); - melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5471)?(5471):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5471:/ clear"); - /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5471:/ clear"); - /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5471:/ cppif.else"); - /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5472:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5472:/ block"); - /*block*/{ - /*_#IS_LIST__L9*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:5472:/ cond"); - /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5472:/ cond.then"); - /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5472:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5472:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5472:/ locexp"); - melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5472)?(5472):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5472:/ clear"); - /*clear*/ /*_#IS_LIST__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5472:/ clear"); - /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5472:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5473:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5473:/ apply"); - /*apply*/{ - /*_.CSYMEXPO__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTEDM_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5474:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5474:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5]; - MELT_LOCATION("warmelt-normal.melt:5474:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; - /*_.SYMDATA__V29*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5475:/ block"); - /*block*/{ - /*_.SB__V31*/ curfptr[30] = - meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);; - - { - MELT_LOCATION("warmelt-normal.melt:5476:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ curfptr[30]), ( "norm.exp.val : "));} - ; - MELT_LOCATION("warmelt-normal.melt:5477:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ curfptr[31] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5477:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ curfptr[30]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[31])));} - ; - /*_.LET___V30*/ curfptr[29] = /*_.SB__V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5475:/ clear"); - /*clear*/ /*_.SB__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5475:/ clear"); - /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[31] = 0 ;} - ; - /*_.CSBUF__V33*/ curfptr[30] = /*_.LET___V30*/ curfptr[29];; - /*_.STRBUF2STRING__V34*/ curfptr[31] = - (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V33*/ curfptr[30]))));; - MELT_LOCATION("warmelt-normal.melt:5479:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5479:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V36*/ curfptr[35] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5479:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.PSLOC__V7*/ curfptr[6]), "LOCA_LOCATION"); - ; - MELT_LOCATION("warmelt-normal.melt:5479:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.STRBUF2STRING__V34*/ curfptr[31]), "CMEC_COMMENT"); - ; - /*_.SCURENVBOX__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5483:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5483:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5483:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_macro sgetcurenvbox"; - MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg"); - argtab[3].bp_long = 5483; - /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5483:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5483:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5483:/ cppif.else"); - /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5484:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; - MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ curfptr[40];MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.send"); - /*_.NCURENVBOX__V40*/ curfptr[39] = meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V35*/ curfptr[34]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5484:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5487:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5487:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L11*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5487:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_macro ncurenvbox"; - MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg"); - argtab[3].bp_long = 5487; - /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V40*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5487:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5487:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5487:/ cppif.else"); - /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5488:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5488:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L12*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5488:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_macro curenvbinds"; - MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg"); - argtab[3].bp_long = 5488; - /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V44*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5488:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5488:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5488:/ cppif.else"); - /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_LIST__L13*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.CURENVBINDS__V41*/ curfptr[40])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:5489:/ cond"); - /*cond*/ if (/*_#IS_LIST__L13*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5489:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5489:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5489:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5489:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ curfptr[40]; - /*_.LIST_APPEND2LIST__V47*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IF___V46*/ curfptr[44] = /*_.LIST_APPEND2LIST__V47*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5489:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V47*/ curfptr[46] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5489:/ cond.else"); - - /*_.IF___V46*/ curfptr[44] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:5490:/ block"); - /*block*/{ - /*_.ARGTUP__V49*/ curfptr[48] = - (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SYMDATA__V29*/ curfptr[28]), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)(/*_.NCURENVBOX__V40*/ curfptr[39])));; - MELT_LOCATION("warmelt-normal.melt:5496:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5496:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[16])), (4), "CLASS_NREP_APPLY");/*_.INST__V51*/ curfptr[50] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5496:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5496:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NEXPR_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5496:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.NMACROXP__V4*/ curfptr[3]), "NAPP_FUN"); - ; - MELT_LOCATION("warmelt-normal.melt:5496:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.ARGTUP__V49*/ curfptr[48]), "NEXPR_ARGS"); - ; - /*_.INST___V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;} - ; - MELT_LOCATION("warmelt-normal.melt:5492:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5492:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V53*/ curfptr[52] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5492:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (3), (/*_.PSLOC__V7*/ curfptr[6]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5492:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (0), (/*_.CSYMEXPO__V28*/ curfptr[27]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:5492:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:5492:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (2), (/*_.INST___V50*/ curfptr[49]), "LETBIND_EXPR"); - ; - /*_.CBIND__V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;} - ; - MELT_LOCATION("warmelt-normal.melt:5502:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5502:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V55*/ curfptr[54] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5502:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5502:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5502:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (1), (/*_.CSYMEXPO__V28*/ curfptr[27]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:5502:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (3), (/*_.CBIND__V52*/ curfptr[51]), "NOCC_BIND"); - ; - /*_.SYOCC__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5508:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5508:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L14*/ curfnum[13] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5508:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_macro cbind"; - MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; - MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg"); - argtab[3].bp_long = 5508; - /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5508:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5508:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5508:/ cppif.else"); - /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5509:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5509:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[13] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5509:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_macro return syocc"; - MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg"); - argtab[3].bp_long = 5509; - /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V58*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5509:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5509:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5509:/ cppif.else"); - /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:5510:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (melt_ptr_t)(/*_.CBIND__V52*/ curfptr[51]));} - ; - /*_.LET___V48*/ curfptr[46] = /*_.SYOCC__V54*/ curfptr[53];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5490:/ clear"); - /*clear*/ /*_.ARGTUP__V49*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5490:/ clear"); - /*clear*/ /*_.INST___V50*/ curfptr[49] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5490:/ clear"); - /*clear*/ /*_.CBIND__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5490:/ clear"); - /*clear*/ /*_.SYOCC__V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5490:/ clear"); - /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5490:/ clear"); - /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ;} - ; - /*_.MULTI___V39*/ curfptr[37] = /*_.LET___V48*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5484:/ clear"); - /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5484:/ clear"); - /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5484:/ clear"); - /*clear*/ /*_#IS_LIST__L13*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5484:/ clear"); - /*clear*/ /*_.IF___V46*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5484:/ clear"); - /*clear*/ /*_.LET___V48*/ curfptr[46] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5484:/ clear"); - /*clear*/ /*_.CURENVBINDS__V41*/ curfptr[40] = 0 ;} - ; - /*_.LET___V27*/ curfptr[25] = /*_.MULTI___V39*/ curfptr[37];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5473:/ clear"); - /*clear*/ /*_.CSYMEXPO__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5473:/ clear"); - /*clear*/ /*_.SYMDATA__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5473:/ clear"); - /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5473:/ clear"); - /*clear*/ /*_.CSBUF__V33*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5473:/ clear"); - /*clear*/ /*_.STRBUF2STRING__V34*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5473:/ clear"); - /*clear*/ /*_.SCURENVBOX__V35*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5473:/ clear"); - /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5473:/ clear"); - /*clear*/ /*_.MULTI___V39*/ curfptr[37] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5463:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V27*/ curfptr[25];; - MELT_LOCATION("warmelt-normal.melt:5463:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); - /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMAL_EXPORTED_MACRO", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 36 - void* varptr[36]; -#define CURFRAM_NBVARNUM 8 - long varnum[8]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<36; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 36; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_EXPORT_MACRO", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5516:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5516:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5516:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5516:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5516:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5517:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5517:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5517:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5517:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5517:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5517:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5517:/ locexp"); - melt_assert_failed(( "check export_macro recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5517)?(5517):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5517:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5517:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5517:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5518:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5518:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5518:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5518:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5518:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5518:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5518:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5518)?(5518):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5518:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5518:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5518:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5519:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5519:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5519:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5519:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5519:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5519:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5519:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5519)?(5519):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5519:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5519:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5519:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5520:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5520:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5520:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg"); - argtab[0].bp_cstring = "normexp export_macro recv"; - MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg"); - argtab[3].bp_long = 5520; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5520:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5520:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5520:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5521:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5522:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5523:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.MNAME__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5524:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXPMAC_MVAL");/*_.MVALEXP__V17*/ curfptr[16] = slot; }; - ; - /*_.BINDSLIST__V18*/ curfptr[17] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; - MELT_LOCATION("warmelt-normal.melt:5526:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5526:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5526:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5526:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17]; - /*_.NMACEXP__V19*/ curfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_MACRO_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5527:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5527:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ curfptr[20] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5527:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - /*_.NREPNIL__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5529:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5529:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:5529:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5529:/ cond.then"); - /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5529:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5529:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5529:/ locexp"); - melt_assert_failed(( "check mname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5529)?(5529):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5529:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5529:/ clear"); - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5529:/ cppif.else"); - /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5530:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V26*/ curfptr[25];MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.send"); - /*_.NEXP__V25*/ curfptr[24] = meltgc_send ((melt_ptr_t)(/*_.MVALEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5530:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5533:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5533:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V26*/ curfptr[25]; - /*_.LIST_APPEND2LIST__V27*/ curfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5534:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5535:/ apply"); - /*apply*/{ - union meltparam_un argtab[6]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXP__V25*/ curfptr[24]; - MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NMACEXP__V19*/ curfptr[18]; - MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg"); - argtab[5].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17]; - /*_.NEXPM__V29*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_MACRO*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5537:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5537:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5537:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_macro nexpm"; - MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg"); - argtab[3].bp_long = 5537; - /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPM__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5537:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5537:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5537:/ cppif.else"); - /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_.LET___V28*/ curfptr[27] = /*_.IFCPP___V30*/ curfptr[29];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5534:/ clear"); - /*clear*/ /*_.NEXPM__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5534:/ clear"); - /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5539:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5539:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5539:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_macro final nrepnil"; - MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg"); - argtab[3].bp_long = 5539; - /*_.DEBUG_MSG_FUN__V33*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREPNIL__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[28];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5539:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5539:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[28] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5539:/ cppif.else"); - /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5540:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5540:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5540:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_macro final bindslist"; - MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg"); - argtab[3].bp_long = 5540; - /*_.DEBUG_MSG_FUN__V35*/ curfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V34*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[28];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5540:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5540:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[28] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5540:/ cppif.else"); - /*_.IFCPP___V34*/ curfptr[29] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5541:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NREPNIL__V20*/ curfptr[19];; - MELT_LOCATION("warmelt-normal.melt:5541:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V18*/ curfptr[17]); - ; - MELT_LOCATION("warmelt-normal.melt:5541:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.MULTI___V24*/ curfptr[22] = /*_.RETURN___V36*/ curfptr[28];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5530:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V27*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5530:/ clear"); - /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5530:/ clear"); - /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5530:/ clear"); - /*clear*/ /*_.IFCPP___V34*/ curfptr[29] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5530:/ clear"); - /*clear*/ /*_.RETURN___V36*/ curfptr[28] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5530:/ clear"); - /*clear*/ /*_.NBINDS__V26*/ curfptr[25] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V24*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5521:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5521:/ clear"); - /*clear*/ /*_.MNAME__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5521:/ clear"); - /*clear*/ /*_.MVALEXP__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5521:/ clear"); - /*clear*/ /*_.BINDSLIST__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5521:/ clear"); - /*clear*/ /*_.NMACEXP__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5521:/ clear"); - /*clear*/ /*_.NREPNIL__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5521:/ clear"); - /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5521:/ clear"); - /*clear*/ /*_.MULTI___V24*/ curfptr[22] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5516:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5516:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5516:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5516:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5516:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5516:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5516:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_EXPORT_MACRO", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 62 - void* varptr[62]; -#define CURFRAM_NBVARNUM 16 - long varnum[16]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<62; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 62; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMAL_EXPORTED_PATMACRO", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5553:/ getarg"); - /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5553:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5553:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NMACROXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5553:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.NPATTXP__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NPATTXP__V5*/ curfptr[4])) != NULL); - - - /*getarg#4*/ - MELT_LOCATION("warmelt-normal.melt:5553:/ getarg"); - if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V6*/ curfptr[5])) != NULL); - - - /*getarg#5*/ - MELT_LOCATION("warmelt-normal.melt:5553:/ getarg"); - if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V7*/ curfptr[6])) != NULL); - - - /*getarg#6*/ - MELT_LOCATION("warmelt-normal.melt:5553:/ getarg"); - if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V8*/ curfptr[7])) != NULL); - - - /*getarg#7*/ - MELT_LOCATION("warmelt-normal.melt:5553:/ getarg"); - if (xargdescr_[6] != BPAR_PTR) goto lab_endgetargs; - /*_.BINDSLIST__V9*/ curfptr[8] = (xargtab_[6].bp_aptr) ? (*(xargtab_[6].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5553:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5554:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5554:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L1*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5554:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_patmacro start sym"; - MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg"); - argtab[3].bp_long = 5554; - /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5554:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5554:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5554:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5555:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5555:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L2*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5555:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_patmacro start nexp"; - MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg"); - argtab[3].bp_long = 5555; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5555:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5555:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5555:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5556:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5556:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L3*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5556:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_patmacro start nmacroxp"; - MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg"); - argtab[3].bp_long = 5556; - /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5556:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5556:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5556:/ cppif.else"); - /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5557:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5557:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5557:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_patmacro start npattxp"; - MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg"); - argtab[3].bp_long = 5557; - /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NPATTXP__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V16*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5557:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5557:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5557:/ cppif.else"); - /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5558:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5558:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5558:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5558:/ cond.then"); - /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5558:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5558:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5558:/ locexp"); - melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5558)?(5558):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5558:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5558:/ clear"); - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5558:/ cppif.else"); - /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5559:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5559:/ block"); - /*block*/{ - /*_#IS_A__L6*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5559:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5559:/ cond.then"); - /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5559:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5559:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5559:/ locexp"); - melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5559)?(5559):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5559:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5559:/ clear"); - /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5559:/ cppif.else"); - /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5560:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5560:/ block"); - /*block*/{ - /*_#IS_A__L7*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5560:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5560:/ cond.then"); - /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5560:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5560:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5560:/ locexp"); - melt_assert_failed(( "check nmacroxp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5560)?(5560):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V22*/ curfptr[20] = /*_.IFELSE___V23*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5560:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5560:/ clear"); - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5560:/ cppif.else"); - /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5561:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5561:/ block"); - /*block*/{ - /*_#IS_A__L8*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));; - MELT_LOCATION("warmelt-normal.melt:5561:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5561:/ cond.then"); - /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5561:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5561:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5561:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5561)?(5561):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5561:/ clear"); - /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5561:/ clear"); - /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5561:/ cppif.else"); - /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5562:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5562:/ block"); - /*block*/{ - /*_#IS_A__L9*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V7*/ curfptr[6]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:5562:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5562:/ cond.then"); - /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5562:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5562:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5562:/ locexp"); - melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5562)?(5562):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5562:/ clear"); - /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5562:/ clear"); - /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5562:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5563:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5563:/ block"); - /*block*/{ - /*_#IS_LIST__L10*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:5563:/ cond"); - /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5563:/ cond.then"); - /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5563:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5563:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5563:/ locexp"); - melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5563)?(5563):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5563:/ clear"); - /*clear*/ /*_#IS_LIST__L10*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5563:/ clear"); - /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5563:/ cppif.else"); - /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5564:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5564:/ apply"); - /*apply*/{ - /*_.CSYMEXPO__V31*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTEDPAT_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5565:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5565:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V7*/ curfptr[6]; - MELT_LOCATION("warmelt-normal.melt:5565:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V8*/ curfptr[7]; - /*_.SYMDATA__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5566:/ block"); - /*block*/{ - /*_.SB__V34*/ curfptr[33] = - meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);; - - { - MELT_LOCATION("warmelt-normal.melt:5567:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), ( "norm.exp.pat : "));} - ; - MELT_LOCATION("warmelt-normal.melt:5568:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[34] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5568:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[34])));} - ; - /*_.LET___V33*/ curfptr[32] = /*_.SB__V34*/ curfptr[33];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5566:/ clear"); - /*clear*/ /*_.SB__V34*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5566:/ clear"); - /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[34] = 0 ;} - ; - /*_.CSBUF__V36*/ curfptr[33] = /*_.LET___V33*/ curfptr[32];; - /*_.STRBUF2STRING__V37*/ curfptr[34] = - (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V36*/ curfptr[33]))));; - MELT_LOCATION("warmelt-normal.melt:5570:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5570:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V39*/ curfptr[38] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5570:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.PSLOC__V8*/ curfptr[7]), "LOCA_LOCATION"); - ; - MELT_LOCATION("warmelt-normal.melt:5570:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.STRBUF2STRING__V37*/ curfptr[34]), "CMEC_COMMENT"); - ; - /*_.SCURENVBOX__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5574:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5574:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L11*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5574:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_patmacro sgetcurenvbox"; - MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg"); - argtab[3].bp_long = 5574; - /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5574:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5574:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5574:/ cppif.else"); - /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5575:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V7*/ curfptr[6];MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V8*/ curfptr[7]; - MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V44*/ curfptr[43];MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.send"); - /*_.NCURENVBOX__V43*/ curfptr[42] = meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V38*/ curfptr[37]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5575:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5578:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5578:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L12*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5578:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_patmacro ncurenvbox"; - MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg"); - argtab[3].bp_long = 5578; - /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5578:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5578:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5578:/ cppif.else"); - /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5579:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5579:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L13*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5579:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_patmacro curenvbinds"; - MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg"); - argtab[3].bp_long = 5579; - /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5579:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5579:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5579:/ cppif.else"); - /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_LIST__L14*/ curfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.CURENVBINDS__V44*/ curfptr[43])) == OBMAG_LIST);; - MELT_LOCATION("warmelt-normal.melt:5580:/ cond"); - /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5580:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5580:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5580:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5580:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V44*/ curfptr[43]; - /*_.LIST_APPEND2LIST__V50*/ curfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IF___V49*/ curfptr[47] = /*_.LIST_APPEND2LIST__V50*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5580:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V50*/ curfptr[49] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5580:/ cond.else"); - - /*_.IF___V49*/ curfptr[47] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:5581:/ block"); - /*block*/{ - /*_.ARGTUP__V52*/ curfptr[51] = - (meltgc_new_mult4((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SYMDATA__V32*/ curfptr[31]), - (melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (melt_ptr_t)(/*_.NPATTXP__V5*/ curfptr[4]), (melt_ptr_t)(/*_.NCURENVBOX__V43*/ curfptr[42])));; - MELT_LOCATION("warmelt-normal.melt:5587:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5587:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[16])), (4), "CLASS_NREP_APPLY");/*_.INST__V54*/ curfptr[53] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5587:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.PSLOC__V8*/ curfptr[7]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5587:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NEXPR_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5587:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (3), (/*_.NEXP__V3*/ curfptr[2]), "NAPP_FUN"); - ; - MELT_LOCATION("warmelt-normal.melt:5587:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.ARGTUP__V52*/ curfptr[51]), "NEXPR_ARGS"); - ; - /*_.INST___V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;} - ; - MELT_LOCATION("warmelt-normal.melt:5583:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5583:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V56*/ curfptr[55] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5583:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (3), (/*_.PSLOC__V8*/ curfptr[7]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5583:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.CSYMEXPO__V31*/ curfptr[30]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:5583:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:5583:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), (/*_.INST___V53*/ curfptr[52]), "LETBIND_EXPR"); - ; - /*_.CBIND__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;} - ; - MELT_LOCATION("warmelt-normal.melt:5593:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5593:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V58*/ curfptr[57] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5593:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), (/*_.PSLOC__V8*/ curfptr[7]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5593:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5593:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (1), (/*_.CSYMEXPO__V31*/ curfptr[30]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:5593:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (3), (/*_.CBIND__V55*/ curfptr[54]), "NOCC_BIND"); - ; - /*_.SYOCC__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5599:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5599:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[14] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5599:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_patmacro cbind"; - MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14]; - MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg"); - argtab[3].bp_long = 5599; - /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V59*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5599:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5599:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5599:/ cppif.else"); - /*_.IFCPP___V59*/ curfptr[58] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5600:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5600:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L16*/ curfnum[14] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5600:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg"); - argtab[0].bp_cstring = "normal_exported_patmacro return syocc"; - MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14]; - MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg"); - argtab[3].bp_long = 5600; - /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V61*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5600:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5600:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5600:/ cppif.else"); - /*_.IFCPP___V61*/ curfptr[59] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-normal.melt:5601:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CBIND__V55*/ curfptr[54]));} - ; - /*_.LET___V51*/ curfptr[49] = /*_.SYOCC__V57*/ curfptr[56];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5581:/ clear"); - /*clear*/ /*_.ARGTUP__V52*/ curfptr[51] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5581:/ clear"); - /*clear*/ /*_.INST___V53*/ curfptr[52] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5581:/ clear"); - /*clear*/ /*_.CBIND__V55*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5581:/ clear"); - /*clear*/ /*_.SYOCC__V57*/ curfptr[56] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5581:/ clear"); - /*clear*/ /*_.IFCPP___V59*/ curfptr[58] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5581:/ clear"); - /*clear*/ /*_.IFCPP___V61*/ curfptr[59] = 0 ;} - ; - /*_.MULTI___V42*/ curfptr[40] = /*_.LET___V51*/ curfptr[49];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5575:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5575:/ clear"); - /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5575:/ clear"); - /*clear*/ /*_#IS_LIST__L14*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5575:/ clear"); - /*clear*/ /*_.IF___V49*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5575:/ clear"); - /*clear*/ /*_.LET___V51*/ curfptr[49] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5575:/ clear"); - /*clear*/ /*_.CURENVBINDS__V44*/ curfptr[43] = 0 ;} - ; - /*_.LET___V30*/ curfptr[28] = /*_.MULTI___V42*/ curfptr[40];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5564:/ clear"); - /*clear*/ /*_.CSYMEXPO__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5564:/ clear"); - /*clear*/ /*_.SYMDATA__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5564:/ clear"); - /*clear*/ /*_.LET___V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5564:/ clear"); - /*clear*/ /*_.CSBUF__V36*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5564:/ clear"); - /*clear*/ /*_.STRBUF2STRING__V37*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5564:/ clear"); - /*clear*/ /*_.SCURENVBOX__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5564:/ clear"); - /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5564:/ clear"); - /*clear*/ /*_.MULTI___V42*/ curfptr[40] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5553:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V30*/ curfptr[28];; - MELT_LOCATION("warmelt-normal.melt:5553:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); - /*clear*/ /*_.LET___V30*/ curfptr[28] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMAL_EXPORTED_PATMACRO", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 49 - void* varptr[49]; -#define CURFRAM_NBVARNUM 12 - long varnum[12]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<49; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 49; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_EXPORT_PATMACRO", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5607:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5607:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5607:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5607:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5607:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5608:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5608:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5608:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5608:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5608:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5608:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5608:/ locexp"); - melt_assert_failed(( "check export_patmacro recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5608)?(5608):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5608:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5608:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5608:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5609:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5609:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5609:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5609:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5609:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5609:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5609:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5609)?(5609):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5609:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5609:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5609:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5610:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5610:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5610:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5610:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5610:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5610:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5610:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5610)?(5610):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5610:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5610:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5610:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5611:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5611:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5611:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg"); - argtab[0].bp_cstring = "normexp export_patmacro recv"; - MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg"); - argtab[3].bp_long = 5611; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5611:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5611:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5611:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5612:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5613:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5614:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.MNAME__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5615:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXPMAC_MVAL");/*_.MVALEXP__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5616:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SEXPPAT_PVAL");/*_.MPATEXP__V18*/ curfptr[17] = slot; }; - ; - /*_.BINDSLIST__V19*/ curfptr[18] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; - MELT_LOCATION("warmelt-normal.melt:5618:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5618:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5618:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5618:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V19*/ curfptr[18]; - /*_.NPMAEXP__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PATMACRO_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5619:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5619:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V22*/ curfptr[21] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5619:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - /*_.NREPNIL__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5621:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5621:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L5*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5621:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg"); - argtab[0].bp_cstring = "normexp export_patmacro mname"; - MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg"); - argtab[3].bp_long = 5621; - /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5621:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5621:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5621:/ cppif.else"); - /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5622:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5622:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L6*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5622:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg"); - argtab[0].bp_cstring = "normexp export_patmacro npmaexp"; - MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg"); - argtab[3].bp_long = 5622; - /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPMAEXP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5622:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5622:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5622:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5623:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5623:/ block"); - /*block*/{ - /*_#IS_A__L7*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));; - MELT_LOCATION("warmelt-normal.melt:5623:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5623:/ cond.then"); - /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5623:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5623:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5623:/ locexp"); - melt_assert_failed(( "check mname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5623)?(5623):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V27*/ curfptr[25] = /*_.IFELSE___V28*/ curfptr[27];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5623:/ clear"); - /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5623:/ clear"); - /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5623:/ cppif.else"); - /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5624:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDMS__V31*/ curfptr[30];MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.send"); - /*_.NEXPMAC__V30*/ curfptr[29] = meltgc_send ((melt_ptr_t)(/*_.MVALEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5624:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5627:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5627:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDMS__V31*/ curfptr[30]; - /*_.LIST_APPEND2LIST__V32*/ curfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5628:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5628:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5628:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_patmacro nexpmac"; - MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg"); - argtab[3].bp_long = 5628; - /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPMAC__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5628:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5628:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5628:/ cppif.else"); - /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5629:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDPS__V37*/ curfptr[36];MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.send"); - /*_.NEXPPAT__V36*/ curfptr[35] = meltgc_send ((melt_ptr_t)(/*_.MPATEXP__V18*/ curfptr[17]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5629:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5632:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5632:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDPS__V37*/ curfptr[36]; - /*_.LIST_APPEND2LIST__V38*/ curfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5633:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5633:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L9*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5633:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_patmacro nexppat"; - MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg"); - argtab[3].bp_long = 5633; - /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPMAC__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5633:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5633:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5633:/ cppif.else"); - /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5634:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5634:/ apply"); - /*apply*/{ - union meltparam_un argtab[7]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NPMAEXP__V20*/ curfptr[19]; - MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEXPMAC__V30*/ curfptr[29]; - MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NEXPPAT__V36*/ curfptr[35]; - MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg"); - argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg"); - argtab[4].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; - MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg"); - argtab[5].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg"); - argtab[6].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V19*/ curfptr[18]; - /*_.NEXPM__V42*/ curfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_PATMACRO*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5635:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5635:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L10*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5635:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_patmacro nexpm"; - MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg"); - argtab[3].bp_long = 5635; - /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPM__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5635:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5635:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5635:/ cppif.else"); - /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5636:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5636:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L11*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5636:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_macro final nrepnil"; - MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg"); - argtab[3].bp_long = 5636; - /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREPNIL__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V45*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5636:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5636:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5636:/ cppif.else"); - /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5637:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5637:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L12*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5637:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg"); - argtab[0].bp_cstring = "normexp_export_macro final bindslist"; - MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg"); - argtab[3].bp_long = 5637; - /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5637:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5637:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5637:/ cppif.else"); - /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5638:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NREPNIL__V21*/ curfptr[20];; - MELT_LOCATION("warmelt-normal.melt:5638:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V19*/ curfptr[18]); - ; - MELT_LOCATION("warmelt-normal.melt:5638:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V41*/ curfptr[39] = /*_.RETURN___V49*/ curfptr[47];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5634:/ clear"); - /*clear*/ /*_.NEXPM__V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5634:/ clear"); - /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5634:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5634:/ clear"); - /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5634:/ clear"); - /*clear*/ /*_.RETURN___V49*/ curfptr[47] = 0 ;} - ; - /*_.MULTI___V35*/ curfptr[33] = /*_.LET___V41*/ curfptr[39];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5629:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5629:/ clear"); - /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5629:/ clear"); - /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5629:/ clear"); - /*clear*/ /*_.NBINDPS__V37*/ curfptr[36] = 0 ;} - ; - /*_.MULTI___V29*/ curfptr[27] = /*_.MULTI___V35*/ curfptr[33];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5624:/ clear"); - /*clear*/ /*_.LIST_APPEND2LIST__V32*/ curfptr[31] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5624:/ clear"); - /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5624:/ clear"); - /*clear*/ /*_.MULTI___V35*/ curfptr[33] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5624:/ clear"); - /*clear*/ /*_.NBINDMS__V31*/ curfptr[30] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V29*/ curfptr[27];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.MNAME__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.MVALEXP__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.MPATEXP__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.BINDSLIST__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.NPMAEXP__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.NREPNIL__V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); - /*clear*/ /*_.MULTI___V29*/ curfptr[27] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5607:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5607:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5607:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5607:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5607:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5607:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5607:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_EXPORT_PATMACRO", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 27 - void* varptr[27]; -#define CURFRAM_NBVARNUM 7 - long varnum[7]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<27; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 27; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5646:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5646:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5646:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5646:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5646:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5647:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5647:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5647:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5647:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5647:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5647:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5647:/ locexp"); - melt_assert_failed(( "check current_module_environment_container recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5647)?(5647):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5647:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5647:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5647:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5648:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5648:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5648:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5648:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5648:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5648:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5648:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5648)?(5648):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5648:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5648:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5648:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5649:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5649:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5649:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5649:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5649:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5649:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5649:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5649)?(5649):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5649:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5649:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5649:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5650:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5650:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5650:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg"); - argtab[0].bp_cstring = "normexp_current_module_environment_container recv"; - MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg"); - argtab[3].bp_long = 5650; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5650:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5650:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5650:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5651:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5652:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5653:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "CMEC_COMMENT");/*_.SCOMM__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5654:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 14, "NCTX_PROCURMODENVLIST");/*_.NCURMODENVLIST__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5655:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V18*/ curfptr[17] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5656:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 12, "NCTX_QDATCURMODENVBOX");/*_.QDATCUR__V19*/ curfptr[18] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5657:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5657:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[4])), (5), "CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V21*/ curfptr[20] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5657:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5657:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL"); - ; - MELT_LOCATION("warmelt-normal.melt:5657:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.CURPROC__V18*/ curfptr[17]), "NCONST_PROC"); - ; - MELT_LOCATION("warmelt-normal.melt:5657:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.QDATCUR__V19*/ curfptr[18]), "NCONST_DATA"); - ; - MELT_LOCATION("warmelt-normal.melt:5657:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NQCMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (4), (/*_.SCOMM__V16*/ curfptr[15]), "NQCMEC_COMMENT"); - ; - /*_.NQUASI__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5665:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5665:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.QDATCUR__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:5665:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5665:/ cond.then"); - /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5665:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5665:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5665:/ locexp"); - melt_assert_failed(( "check qdatcur"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5665)?(5665):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5665:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5665:/ clear"); - /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5665:/ cppif.else"); - /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_A__L6*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));; - MELT_LOCATION("warmelt-normal.melt:5666:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5666:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5666:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5668:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V24*/ curfptr[22] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5668:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V24*/ curfptr[22]), (melt_ptr_t)(/*_.QDATCUR__V19*/ curfptr[18]));} - ; - - { - MELT_LOCATION("warmelt-normal.melt:5669:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NCURMODENVLIST__V17*/ curfptr[16]), (melt_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]));} - ; - MELT_LOCATION("warmelt-normal.melt:5667:/ block"); - /*block*/{} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5666:/ clear"); - /*clear*/ /*_.NRPRO_CONST__V24*/ curfptr[22] = 0 ;} - ; - } /*noelse*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5671:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5671:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5671:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg"); - argtab[0].bp_cstring = "normexp_current_module_environment_container nquasi"; - MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg"); - argtab[3].bp_long = 5671; - /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NQUASI__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V25*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5671:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5671:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5671:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[22] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5672:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NQUASI__V20*/ curfptr[19];; - MELT_LOCATION("warmelt-normal.melt:5672:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V27*/ curfptr[25];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_.NCURMODENVLIST__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_.CURPROC__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_.QDATCUR__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_.NQUASI__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5651:/ clear"); - /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5646:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5646:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5646:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5646:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5646:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5646:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5646:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 25 - void* varptr[25]; -#define CURFRAM_NBVARNUM 7 - long varnum[7]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<25; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 25; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_PARENT_MODULE_ENVIRONMENT", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5678:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5678:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5678:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5678:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5678:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5679:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5679:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5679:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5679:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5679:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5679:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5679:/ locexp"); - melt_assert_failed(( "check parent_module_environment recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5679)?(5679):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5679:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5679:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5679:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5680:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5680:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5680:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5680:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5680:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5680:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5680:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5680)?(5680):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5680:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5680:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5680:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5681:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5681:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5681:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5681:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5681:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5681:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5681:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5681)?(5681):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5681:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5681:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5681:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5682:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5682:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5682:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg"); - argtab[0].bp_cstring = "normexp_parent_module_environment recv"; - MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg"); - argtab[3].bp_long = 5682; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5682:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5682:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5682:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5683:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5684:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5685:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5686:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 13, "NCTX_QDATPARMODENV");/*_.QDATPAR__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5687:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5687:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[4])), (4), "CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT");/*_.INST__V19*/ curfptr[18] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5687:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5687:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL"); - ; - MELT_LOCATION("warmelt-normal.melt:5687:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.CURPROC__V16*/ curfptr[15]), "NCONST_PROC"); - ; - MELT_LOCATION("warmelt-normal.melt:5687:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.QDATPAR__V17*/ curfptr[16]), "NCONST_DATA"); - ; - /*_.NQUASI__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5694:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5694:/ block"); - /*block*/{ - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.QDATPAR__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[5])));; - MELT_LOCATION("warmelt-normal.melt:5694:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5694:/ cond.then"); - /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5694:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5694:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5694:/ locexp"); - melt_assert_failed(( "check qdatpar"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5694)?(5694):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5694:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5694:/ clear"); - /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5694:/ cppif.else"); - /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*_#IS_A__L6*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));; - MELT_LOCATION("warmelt-normal.melt:5695:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5695:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5695:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5696:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V22*/ curfptr[20] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5696:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V22*/ curfptr[20]), (melt_ptr_t)(/*_.QDATPAR__V17*/ curfptr[16]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5695:/ clear"); - /*clear*/ /*_.NRPRO_CONST__V22*/ curfptr[20] = 0 ;} - ; - } /*noelse*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5697:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5697:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5697:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg"); - argtab[0].bp_cstring = "normexp_parent_module_environment nquasi"; - MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg"); - argtab[3].bp_long = 5697; - /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NQUASI__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V23*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5697:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5697:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5697:/ cppif.else"); - /*_.IFCPP___V23*/ curfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5698:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NQUASI__V18*/ curfptr[17];; - MELT_LOCATION("warmelt-normal.melt:5698:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V25*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5683:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5683:/ clear"); - /*clear*/ /*_.CURPROC__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5683:/ clear"); - /*clear*/ /*_.QDATPAR__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5683:/ clear"); - /*clear*/ /*_.NQUASI__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5683:/ clear"); - /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5683:/ clear"); - /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5683:/ clear"); - /*clear*/ /*_.IFCPP___V23*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5683:/ clear"); - /*clear*/ /*_.RETURN___V25*/ curfptr[23] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5678:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5678:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5678:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5678:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5678:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5678:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5678:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_PARENT_MODULE_ENVIRONMENT", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 58 - void* varptr[58]; -#define CURFRAM_NBVARNUM 8 - long varnum[8]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<58; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 58; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5704:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5704:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5704:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5704:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5704:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5705:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5705:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5705:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5705:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5705:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5705:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5705:/ locexp"); - melt_assert_failed(( "check update_current_module_environment_container recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5705)?(5705):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5705:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5705:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5705:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5706:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5706:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5706:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5706:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5706:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5706:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5706:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5706)?(5706):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5706:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5706:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5706:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5707:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5707:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5707:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5707:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5707:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5707:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5707:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5707)?(5707):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5707:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5707:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5707:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5708:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5708:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5708:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg"); - argtab[0].bp_cstring = "normexp_update_current_module_environment_container recv"; - MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg"); - argtab[3].bp_long = 5708; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5708:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5708:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5708:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5709:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5710:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5711:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUCME_COMMENT");/*_.SCOMM__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5712:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5713:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 0, "NCTX_INITPROC");/*_.INIPROC__V18*/ curfptr[17] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5714:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MODCTX__V19*/ curfptr[18] = slot; }; - ; - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:5715:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5715:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5715:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5715:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), 0, "MOCX_MODULENAME");/*_.MOCX_MODULENAME__V21*/ curfptr[20] = slot; }; - ; - /*_.MODNAM__V20*/ curfptr[19] = /*_.MOCX_MODULENAME__V21*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5715:/ clear"); - /*clear*/ /*_.MOCX_MODULENAME__V21*/ curfptr[20] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5715:/ cond.else"); - - /*_.MODNAM__V20*/ curfptr[19] = NULL;; - } - ; - /*_#__L6*/ curfnum[5] = - ((/*_.CURPROC__V17*/ curfptr[16]) != (/*_.INIPROC__V18*/ curfptr[17]));; - MELT_LOCATION("warmelt-normal.melt:5717:/ cond"); - /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5717:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5717:/ block"); - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5719:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) not at toplevel"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-normal.melt:5720:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = NULL;; - MELT_LOCATION("warmelt-normal.melt:5720:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - MELT_LOCATION("warmelt-normal.melt:5718:/ block"); - /*block*/{ - /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;} - ; - /*_.IF___V22*/ curfptr[20] = /*_.PROGN___V24*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5717:/ clear"); - /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5717:/ clear"); - /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5717:/ cond.else"); - - /*_.IF___V22*/ curfptr[20] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:5721:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5721:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5721:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[5])), (3), "CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V27*/ curfptr[26] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5721:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5721:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NCUMEB_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.SCOMM__V16*/ curfptr[15]), "NCUMEB_COMMENT"); - ; - /*_.NUP__V26*/ curfptr[23] = /*_.INST__V27*/ curfptr[26];;} - ; - MELT_LOCATION("warmelt-normal.melt:5726:/ apply"); - /*apply*/{ - /*_.CSYM__V28*/ curfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_UPDATCURMODENVBOX_*/ curfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5727:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5727:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V30*/ curfptr[29] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5727:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5727:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (0), (/*_.CSYM__V28*/ curfptr[27]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:5727:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:5727:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.NUP__V26*/ curfptr[23]), "LETBIND_EXPR"); - ; - /*_.CBIND__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} - ; - MELT_LOCATION("warmelt-normal.melt:5734:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5734:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V32*/ curfptr[31] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5734:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5734:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5734:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.CSYM__V28*/ curfptr[27]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:5734:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.CBIND__V29*/ curfptr[28]), "NOCC_BIND"); - ; - /*_.CLOCC__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} - ; - MELT_LOCATION("warmelt-normal.melt:5740:/ block"); - /*block*/{ - /*_.SB__V34*/ curfptr[33] = - meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[11])), (char*)0);; - - { - MELT_LOCATION("warmelt-normal.melt:5741:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), ( "cur.mod.env.cont : "));} - ; - - { - MELT_LOCATION("warmelt-normal.melt:5742:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), melt_string_str((melt_ptr_t)(/*_.SCOMM__V16*/ curfptr[15])));} - ; - /*_.LET___V33*/ curfptr[32] = /*_.SB__V34*/ curfptr[33];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5740:/ clear"); - /*clear*/ /*_.SB__V34*/ curfptr[33] = 0 ;} - ; - /*_.CSBUF__V35*/ curfptr[33] = /*_.LET___V33*/ curfptr[32];; - /*_.STRBUF2STRING__V36*/ curfptr[35] = - (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[13])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V35*/ curfptr[33]))));; - MELT_LOCATION("warmelt-normal.melt:5744:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5744:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[12])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ curfptr[37] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5744:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.SLOC__V15*/ curfptr[14]), "LOCA_LOCATION"); - ; - MELT_LOCATION("warmelt-normal.melt:5744:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), (/*_.STRBUF2STRING__V36*/ curfptr[35]), "CMEC_COMMENT"); - ; - /*_.SCURENVBOX__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;} - ; - MELT_LOCATION("warmelt-normal.melt:5761:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5761:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ curfrout->tabval[18])), (3), "CLASS_SOURCE_FETCH_PREDEFINED");/*_.INST__V40*/ curfptr[39] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5761:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION"); - ; - MELT_LOCATION("warmelt-normal.melt:5761:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @SFEPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), ((/*!konst_19_INITIAL_SYSTEM_DATA*/ curfrout->tabval[19])), "SFEPD_PREDEF"); - ; - /*_.INST___V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;} - ; - MELT_LOCATION("warmelt-normal.melt:5758:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5758:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_GET_FIELD*/ curfrout->tabval[17])), (4), "CLASS_SOURCE_UNSAFE_GET_FIELD");/*_.INST__V42*/ curfptr[41] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5758:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION"); - ; - MELT_LOCATION("warmelt-normal.melt:5758:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.INST___V39*/ curfptr[38]), "SUGET_OBJ"); - ; - MELT_LOCATION("warmelt-normal.melt:5758:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (3), ((/*!SYSDATA_CONT_FRESH_ENV*/ curfrout->tabval[20])), "SUGET_FIELD"); - ; - /*_.INST___V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;} - ; - MELT_LOCATION("warmelt-normal.melt:5769:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5769:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[21])), (2), "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT");/*_.INST__V44*/ curfptr[43] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5769:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION"); - ; - /*_.INST___V43*/ curfptr[42] = /*_.INST__V44*/ curfptr[43];;} - ; - /*_.MAKE_TUPLE2__V45*/ curfptr[44] = - (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.INST___V43*/ curfptr[42]), (melt_ptr_t)(/*_.MODNAM__V20*/ curfptr[19])));; - MELT_LOCATION("warmelt-normal.melt:5755:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5755:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[16])), (4), "CLASS_SOURCE_APPLY");/*_.INST__V47*/ curfptr[46] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5755:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION"); - ; - MELT_LOCATION("warmelt-normal.melt:5755:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @SAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (3), (/*_.INST___V41*/ curfptr[40]), "SAPP_FUN"); - ; - MELT_LOCATION("warmelt-normal.melt:5755:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (2), (/*_.MAKE_TUPLE2__V45*/ curfptr[44]), "SARGOP_ARGS"); - ; - /*_.INST___V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;} - ; - /*_.MAKE_TUPLE2__V48*/ curfptr[47] = - (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), (melt_ptr_t)(/*_.INST___V46*/ curfptr[45])));; - MELT_LOCATION("warmelt-normal.melt:5748:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5748:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ curfrout->tabval[14])), (3), "CLASS_SOURCE_OR");/*_.INST__V50*/ curfptr[49] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5748:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V50*/ curfptr[49]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION"); - ; - MELT_LOCATION("warmelt-normal.melt:5748:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V50*/ curfptr[49]), (2), (/*_.MAKE_TUPLE2__V48*/ curfptr[47]), "SOR_DISJ"); - ; - /*_.SGETCURENVBOX__V49*/ curfptr[48] = /*_.INST__V50*/ curfptr[49];;} - ; - MELT_LOCATION("warmelt-normal.melt:5774:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V53*/ curfptr[52];MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.send"); - /*_.NCURENVBOX__V52*/ curfptr[51] = meltgc_send ((melt_ptr_t)(/*_.SGETCURENVBOX__V49*/ curfptr[48]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[22]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5774:/ block"); - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5777:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V53*/ curfptr[52]), (melt_ptr_t)(/*_.CBIND__V29*/ curfptr[28]));} - ; - MELT_LOCATION("warmelt-normal.melt:5778:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5778:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NUCMEB_EXPR", melt_magic_discr((melt_ptr_t)(/*_.NUP__V26*/ curfptr[23])) == OBMAG_OBJECT); - melt_putfield_object((/*_.NUP__V26*/ curfptr[23]), (1), (/*_.NCURENVBOX__V52*/ curfptr[51]), "NUCMEB_EXPR"); - ; - MELT_LOCATION("warmelt-normal.melt:5778:/ touch"); - meltgc_touch(/*_.NUP__V26*/ curfptr[23]); - ; - /*epilog*/} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5779:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5779:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L7*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5779:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg"); - argtab[0].bp_cstring = "normexp_update_current_module_environment_container result bindlist"; - MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg"); - argtab[3].bp_long = 5779; - /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5779:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5779:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5779:/ cppif.else"); - /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5780:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5780:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L8*/ curfnum[6] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5780:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg"); - argtab[0].bp_cstring = "normexp_update_current_module_environment_container result clocc"; - MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; - MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg"); - argtab[3].bp_long = 5780; - /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5780:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5780:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5780:/ cppif.else"); - /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5781:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V31*/ curfptr[30];; - MELT_LOCATION("warmelt-normal.melt:5781:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V53*/ curfptr[52]); - ; - MELT_LOCATION("warmelt-normal.melt:5781:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.MULTI___V51*/ curfptr[50] = /*_.RETURN___V58*/ curfptr[56];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5774:/ clear"); - /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5774:/ clear"); - /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5774:/ clear"); - /*clear*/ /*_.RETURN___V58*/ curfptr[56] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5774:/ clear"); - /*clear*/ /*_.BINDLIST__V53*/ curfptr[52] = 0 ;} - ; - /*_.LET___V25*/ curfptr[22] = /*_.MULTI___V51*/ curfptr[50];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.NUP__V26*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.CSYM__V28*/ curfptr[27] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.CBIND__V29*/ curfptr[28] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.CLOCC__V31*/ curfptr[30] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.LET___V33*/ curfptr[32] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.CSBUF__V35*/ curfptr[33] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[35] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.SCURENVBOX__V37*/ curfptr[36] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.INST___V39*/ curfptr[38] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.INST___V41*/ curfptr[40] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.INST___V43*/ curfptr[42] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.MAKE_TUPLE2__V45*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.INST___V46*/ curfptr[45] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.MAKE_TUPLE2__V48*/ curfptr[47] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.SGETCURENVBOX__V49*/ curfptr[48] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5721:/ clear"); - /*clear*/ /*_.MULTI___V51*/ curfptr[50] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.LET___V25*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_.CURPROC__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_.INIPROC__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_.MODCTX__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_.MODNAM__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_.IF___V22*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5709:/ clear"); - /*clear*/ /*_.LET___V25*/ curfptr[22] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5704:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5704:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5704:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5704:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5704:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5704:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5704:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 34 - void* varptr[34]; -#define CURFRAM_NBVARNUM 13 - long varnum[13]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<34; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 34; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_FETCH_PREDEFINED", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5789:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5789:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5789:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5789:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5789:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5790:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5790:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5790:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5790:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5790:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5790:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5790:/ locexp"); - melt_assert_failed(( "check fetch_predefined recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5790)?(5790):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5790:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5790:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5790:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5791:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5791:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5791:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5791:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5791:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5791:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5791:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5791)?(5791):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5791:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5791:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5791:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5792:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5792:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5792:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5792:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5792:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5792:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5792:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5792)?(5792):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5792:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5792:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5792:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5793:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5793:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5793:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg"); - argtab[0].bp_cstring = "normexp_fetch_predefined recv"; - MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg"); - argtab[3].bp_long = 5793; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5793:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5793:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5793:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5794:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5795:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5796:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SFEPD_PREDEF");/*_.SPRED__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5797:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V17*/ curfptr[16] = slot; }; - ; - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:5799:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5799:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5799:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5801:/ block"); - /*block*/{ - /*_.BOXK__V19*/ curfptr[18] = - meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));; - MELT_LOCATION("warmelt-normal.melt:5804:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5804:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2)); - ; - MELT_LOCATION("warmelt-normal.melt:5804:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]); - ; - MELT_LOCATION("warmelt-normal.melt:5804:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.BOXK__V19*/ curfptr[18]); - ; - /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;} - ; - MELT_LOCATION("warmelt-normal.melt:5803:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5803:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19]; - /*_.MAPOBJECT_EVERY__V22*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.PREDEFMAP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.BOX_CONTENT__V23*/ curfptr[22] = - melt_box_content((meltbox_ptr_t)(/*_.BOXK__V19*/ curfptr[18]));; - /*_#NULL__L6*/ curfnum[5] = - ((/*_.BOX_CONTENT__V23*/ curfptr[22]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:5806:/ cond"); - /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5806:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5806:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5808:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[23] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5807:/ locexp"); - melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "FETCH_PREDEFINED unknown predef name"), (melt_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[23]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5806:/ clear"); - /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[23] = 0 ;} - ; - } /*noelse*/ - ; - /*_.IFELSE___V18*/ curfptr[17] = /*_.MAPOBJECT_EVERY__V22*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5801:/ clear"); - /*clear*/ /*_.BOXK__V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5801:/ clear"); - /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5801:/ clear"); - /*clear*/ /*_.MAPOBJECT_EVERY__V22*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5801:/ clear"); - /*clear*/ /*_.BOX_CONTENT__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5801:/ clear"); - /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5799:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5799:/ block"); - /*block*/{ - /*_#IS_INTEGERBOX__L7*/ curfnum[5] = - (melt_magic_discr((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])) == OBMAG_INT);; - MELT_LOCATION("warmelt-normal.melt:5811:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5811:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5811:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5813:/ block"); - /*block*/{ - /*_#PREDRK__L8*/ curfnum[7] = - (melt_get_int((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])));; - /*_#I__L9*/ curfnum[8] = - ((/*_#PREDRK__L8*/ curfnum[7]) <= (0));; - MELT_LOCATION("warmelt-normal.melt:5814:/ cond"); - /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5814:/ cond.then"); - /*_#OR___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];; - } else {MELT_LOCATION("warmelt-normal.melt:5814:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5814:/ block"); - /*block*/{ - /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = - BGLOB__LASTGLOB;; - /*_#I__L12*/ curfnum[11] = - ((/*_#PREDRK__L8*/ curfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10]));; - /*_#OR___L10*/ curfnum[9] = /*_#I__L12*/ curfnum[11];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5814:/ clear"); - /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5814:/ clear"); - /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:5814:/ cond"); - /*cond*/ if (/*_#OR___L10*/ curfnum[9]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5814:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5814:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5815:/ locexp"); - melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "FETCH_PREDEFINED invalid predef rank"), (melt_ptr_t)0);} - ; - /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5814:/ cond.else"); - - /*_.IFELSE___V25*/ curfptr[23] = NULL;; - } - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5813:/ clear"); - /*clear*/ /*_#PREDRK__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5813:/ clear"); - /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5813:/ clear"); - /*clear*/ /*_#OR___L10*/ curfnum[9] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5811:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5811:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5819:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5819:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5819:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5819:/ cond.then"); - /*_.IFELSE___V27*/ curfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5819:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5819:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5819:/ locexp"); - melt_assert_failed(( "FETCH_PREDEFINED bad predef"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5819)?(5819):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V27*/ curfptr[19] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V26*/ curfptr[18] = /*_.IFELSE___V27*/ curfptr[19];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5819:/ clear"); - /*clear*/ /*_.IFELSE___V27*/ curfptr[19] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5819:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[18] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5818:/ block"); - /*block*/{ - /*_.PROGN___V28*/ curfptr[21] = /*_.IFCPP___V26*/ curfptr[18];;} - ; - /*_.IFELSE___V25*/ curfptr[23] = /*_.PROGN___V28*/ curfptr[21];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5811:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5811:/ clear"); - /*clear*/ /*_.PROGN___V28*/ curfptr[21] = 0 ;} - ; - } - ; - /*_.IFELSE___V18*/ curfptr[17] = /*_.IFELSE___V25*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5799:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5799:/ clear"); - /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:5821:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5821:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5821:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[8])), (2), "CLASS_NREP_PREDEF");/*_.INST__V31*/ curfptr[18] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5821:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[18]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5821:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[18])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V31*/ curfptr[18]), (1), (/*_.SPRED__V16*/ curfptr[15]), "NRPREDEF"); - ; - /*_.NPRE__V30*/ curfptr[19] = /*_.INST__V31*/ curfptr[18];;} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5826:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5826:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L13*/ curfnum[10] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5826:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg"); - argtab[0].bp_cstring = "normexp_fetch_predefined result npre"; - MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[10]; - MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg"); - argtab[3].bp_long = 5826; - /*_.DEBUG_MSG_FUN__V33*/ curfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPRE__V30*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V32*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5826:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5826:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[23] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5826:/ cppif.else"); - /*_.IFCPP___V32*/ curfptr[21] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5827:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NPRE__V30*/ curfptr[19];; - MELT_LOCATION("warmelt-normal.melt:5827:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V29*/ curfptr[22] = /*_.RETURN___V34*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5821:/ clear"); - /*clear*/ /*_.NPRE__V30*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5821:/ clear"); - /*clear*/ /*_.IFCPP___V32*/ curfptr[21] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5821:/ clear"); - /*clear*/ /*_.RETURN___V34*/ curfptr[23] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.LET___V29*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5794:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5794:/ clear"); - /*clear*/ /*_.SPRED__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5794:/ clear"); - /*clear*/ /*_.PREDEFMAP__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5794:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5794:/ clear"); - /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5794:/ clear"); - /*clear*/ /*_.LET___V29*/ curfptr[22] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5789:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5789:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5789:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5789:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5789:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5789:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5789:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_FETCH_PREDEFINED", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_154_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_154_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 3 - void* varptr[3]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<3; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 3; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5804:/ getarg"); - /*_.KEY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5804:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5804:/ block"); -/*block*/{ - /*_#__L1*/ curfnum[0] = - ((/*_.VAL__V3*/ curfptr[2]) == ((/*~SPRED*/ curfclos->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5805:/ cond"); - /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5805:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5805:/ block"); - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5805:/ locexp"); - meltgc_box_put((melt_ptr_t)((/*~BOXK*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.KEY__V2*/ curfptr[1]));} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5804:/ clear"); - /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_154_warmelt_normal_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED_st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 48 - void* varptr[48]; -#define CURFRAM_NBVARNUM 15 - long varnum[15]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<48; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 48; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("NORMEXP_STORE_PREDEFINED", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5835:/ getarg"); - /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5835:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); - - - /*getarg#2*/ - MELT_LOCATION("warmelt-normal.melt:5835:/ getarg"); - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); - - - /*getarg#3*/ - MELT_LOCATION("warmelt-normal.melt:5835:/ getarg"); - if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; - /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5835:/ block"); -/*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5836:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5836:/ block"); - /*block*/{ - /*_#IS_A__L1*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_STORE_PREDEFINED*/ curfrout->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5836:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5836:/ cond.then"); - /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5836:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5836:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5836:/ locexp"); - melt_assert_failed(( "check store_predefined recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5836)?(5836):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5836:/ clear"); - /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5836:/ clear"); - /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5836:/ cppif.else"); - /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5837:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5837:/ block"); - /*block*/{ - /*_#IS_A__L2*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - MELT_LOCATION("warmelt-normal.melt:5837:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5837:/ cond.then"); - /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5837:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5837:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5837:/ locexp"); - melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5837)?(5837):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5837:/ clear"); - /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5837:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5837:/ cppif.else"); - /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5838:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5838:/ block"); - /*block*/{ - /*_#IS_A__L3*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));; - MELT_LOCATION("warmelt-normal.melt:5838:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5838:/ cond.then"); - /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5838:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5838:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5838:/ locexp"); - melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5838)?(5838):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5838:/ clear"); - /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5838:/ clear"); - /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5838:/ cppif.else"); - /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5839:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5839:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L4*/ curfnum[0] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5839:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg"); - argtab[0].bp_cstring = "normexp_store_predefined recv"; - MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg"); - argtab[3].bp_long = 5839; - /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5839:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5839:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5839:/ cppif.else"); - /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5840:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5841:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5842:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SSTPD_PREDEF");/*_.SPRED__V16*/ curfptr[15] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5843:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SSTPD_VALUE");/*_.SVAL__V17*/ curfptr[16] = slot; }; - ; - MELT_LOCATION("warmelt-normal.melt:5844:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V18*/ curfptr[17] = slot; }; - ; - /*_#IS_A__L5*/ curfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - MELT_LOCATION("warmelt-normal.melt:5846:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5846:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5846:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5848:/ block"); - /*block*/{ - /*_.BOXK__V20*/ curfptr[19] = - meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));; - MELT_LOCATION("warmelt-normal.melt:5851:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5851:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2)); - ; - MELT_LOCATION("warmelt-normal.melt:5851:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]); - ; - MELT_LOCATION("warmelt-normal.melt:5851:/ putclosedv"); - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[1] = (melt_ptr_t)(/*_.BOXK__V20*/ curfptr[19]); - ; - /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;} - ; - MELT_LOCATION("warmelt-normal.melt:5850:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5850:/ apply.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20]; - /*_.MAPOBJECT_EVERY__V23*/ curfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.PREDEFMAP__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.BOX_CONTENT__V24*/ curfptr[23] = - melt_box_content((meltbox_ptr_t)(/*_.BOXK__V20*/ curfptr[19]));; - /*_#NULL__L6*/ curfnum[5] = - ((/*_.BOX_CONTENT__V24*/ curfptr[23]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:5853:/ cond"); - /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5853:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5853:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5855:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; }; - ; - - { - MELT_LOCATION("warmelt-normal.melt:5854:/ locexp"); - melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "STORE_PREDEFINED unknown predef name"), (melt_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24]));} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5853:/ clear"); - /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;} - ; - } /*noelse*/ - ; - /*_.IFELSE___V19*/ curfptr[18] = /*_.MAPOBJECT_EVERY__V23*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5848:/ clear"); - /*clear*/ /*_.BOXK__V20*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5848:/ clear"); - /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5848:/ clear"); - /*clear*/ /*_.MAPOBJECT_EVERY__V23*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5848:/ clear"); - /*clear*/ /*_.BOX_CONTENT__V24*/ curfptr[23] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5848:/ clear"); - /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5846:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5846:/ block"); - /*block*/{ - /*_#IS_INTEGERBOX__L7*/ curfnum[5] = - (melt_magic_discr((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])) == OBMAG_INT);; - MELT_LOCATION("warmelt-normal.melt:5858:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ curfnum[5]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5858:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5858:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5860:/ block"); - /*block*/{ - /*_#PREDRK__L8*/ curfnum[7] = - (melt_get_int((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])));; - /*_#I__L9*/ curfnum[8] = - ((/*_#PREDRK__L8*/ curfnum[7]) <= (0));; - MELT_LOCATION("warmelt-normal.melt:5861:/ cond"); - /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5861:/ cond.then"); - /*_#OR___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];; - } else {MELT_LOCATION("warmelt-normal.melt:5861:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5861:/ block"); - /*block*/{ - /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = - BGLOB__LASTGLOB;; - /*_#I__L12*/ curfnum[11] = - ((/*_#PREDRK__L8*/ curfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10]));; - /*_#OR___L10*/ curfnum[9] = /*_#I__L12*/ curfnum[11];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5861:/ clear"); - /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5861:/ clear"); - /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:5861:/ cond"); - /*cond*/ if (/*_#OR___L10*/ curfnum[9]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5861:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5861:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5862:/ locexp"); - melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "STORE_PREDEFINED invalid predef rank"), (melt_ptr_t)0);} - ; - /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5861:/ cond.else"); - - /*_.IFELSE___V26*/ curfptr[24] = NULL;; - } - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5860:/ clear"); - /*clear*/ /*_#PREDRK__L8*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5860:/ clear"); - /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5860:/ clear"); - /*clear*/ /*_#OR___L10*/ curfnum[9] = 0 ;} - ; - /*epilog*/} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5858:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5858:/ block"); - /*block*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5866:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5866:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5866:/ cond"); - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5866:/ cond.then"); - /*_.IFELSE___V28*/ curfptr[20] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-normal.melt:5866:/ cond.else"); - - MELT_LOCATION("warmelt-normal.melt:5866:/ block"); - /*block*/{ - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5866:/ locexp"); - melt_assert_failed(( "STORE_PREDEFINED bad predef"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, - (5866)?(5866):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V28*/ curfptr[20] = 0 ;} - ; - /*epilog*/} - ; - } - ; - /*_.IFCPP___V27*/ curfptr[19] = /*_.IFELSE___V28*/ curfptr[20];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5866:/ clear"); - /*clear*/ /*_.IFELSE___V28*/ curfptr[20] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5866:/ cppif.else"); - /*_.IFCPP___V27*/ curfptr[19] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5865:/ block"); - /*block*/{ - /*_.PROGN___V29*/ curfptr[22] = /*_.IFCPP___V27*/ curfptr[19];;} - ; - /*_.IFELSE___V26*/ curfptr[24] = /*_.PROGN___V29*/ curfptr[22];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5858:/ clear"); - /*clear*/ /*_.IFCPP___V27*/ curfptr[19] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5858:/ clear"); - /*clear*/ /*_.PROGN___V29*/ curfptr[22] = 0 ;} - ; - } - ; - /*_.IFELSE___V19*/ curfptr[18] = /*_.IFELSE___V26*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5846:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5846:/ clear"); - /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;} - ; - } - ; - MELT_LOCATION("warmelt-normal.melt:5868:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend"); - /*multimsend*/{ - union meltparam_un argtab[3]; - union meltparam_un restab[1]; - memset(&argtab, 0, sizeof(argtab)); - memset(&restab, 0, sizeof(restab)); - MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.arg"); - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.arg"); - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.arg"); - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; - MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.xres"); - restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V32*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.send"); - /*_.NVAL__V31*/ curfptr[20] = meltgc_send ((melt_ptr_t)(/*_.SVAL__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); - } - ; - MELT_LOCATION("warmelt-normal.melt:5868:/ block"); - /*block*/{ - /*_#NULL__L13*/ curfnum[10] = - ((/*_.NBINDS__V32*/ curfptr[19]) == NULL);; - MELT_LOCATION("warmelt-normal.melt:5871:/ cond"); - /*cond*/ if (/*_#NULL__L13*/ curfnum[10]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5871:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5871:/ block"); - /*block*/{ - /*_.MAKE_LIST__V34*/ curfptr[24] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; - MELT_LOCATION("warmelt-normal.melt:5872:/ compute"); - /*_.NBINDS__V32*/ curfptr[19] = /*_.SETQ___V35*/ curfptr[34] = /*_.MAKE_LIST__V34*/ curfptr[24];; - /*_.IF___V33*/ curfptr[22] = /*_.SETQ___V35*/ curfptr[34];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5871:/ clear"); - /*clear*/ /*_.MAKE_LIST__V34*/ curfptr[24] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5871:/ clear"); - /*clear*/ /*_.SETQ___V35*/ curfptr[34] = 0 ;} - ; - } else {MELT_LOCATION("warmelt-normal.melt:5871:/ cond.else"); - - /*_.IF___V33*/ curfptr[22] = NULL;; - } - ; - MELT_LOCATION("warmelt-normal.melt:5873:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5873:/ apply"); - /*apply*/{ - /*_.CSYM__V37*/ curfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_STOREPREDEF_*/ curfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-normal.melt:5874:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5874:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_STORE_PREDEFINED*/ curfrout->tabval[12])), (3), "CLASS_NREP_STORE_PREDEFINED");/*_.INST__V39*/ curfptr[38] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5874:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5874:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.SPRED__V16*/ curfptr[15]), "NSTPD_PREDEF"); - ; - MELT_LOCATION("warmelt-normal.melt:5874:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NSTPD_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.NVAL__V31*/ curfptr[20]), "NSTPD_VALUE"); - ; - /*_.NFPRE__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;} - ; - MELT_LOCATION("warmelt-normal.melt:5878:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5878:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V41*/ curfptr[40] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5878:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (0), (/*_.CSYM__V37*/ curfptr[34]), "BINDER"); - ; - MELT_LOCATION("warmelt-normal.melt:5878:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[14])), "LETBIND_TYPE"); - ; - MELT_LOCATION("warmelt-normal.melt:5878:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (2), (/*_.NFPRE__V38*/ curfptr[37]), "LETBIND_EXPR"); - ; - /*_.CBIND__V40*/ curfptr[39] = /*_.INST__V41*/ curfptr[40];;} - ; - MELT_LOCATION("warmelt-normal.melt:5882:/ block"); - /*block*/{ - MELT_LOCATION("warmelt-normal.melt:5882:/ rawallocobj"); - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V43*/ curfptr[42] = - newobj; }; - ; - MELT_LOCATION("warmelt-normal.melt:5882:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); - ; - MELT_LOCATION("warmelt-normal.melt:5882:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[14])), "NOCC_CTYP"); - ; - MELT_LOCATION("warmelt-normal.melt:5882:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.CSYM__V37*/ curfptr[34]), "NOCC_SYMB"); - ; - MELT_LOCATION("warmelt-normal.melt:5882:/ putslot"); - /*putslot*/ - melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); - melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (3), (/*_.CBIND__V40*/ curfptr[39]), "NOCC_BIND"); - ; - /*_.SYOCC__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;} - ; - - { - MELT_LOCATION("warmelt-normal.melt:5888:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.NBINDS__V32*/ curfptr[19]), (melt_ptr_t)(/*_.CBIND__V40*/ curfptr[39]));} - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5889:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5889:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L14*/ curfnum[11] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5889:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg"); - argtab[0].bp_cstring = "normexp_store_predefined result nbinds"; - MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11]; - MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg"); - argtab[3].bp_long = 5889; - /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDS__V32*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5889:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5889:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5889:/ cppif.else"); - /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-normal.melt:5890:/ cppif.then"); - MELT_LOCATION("warmelt-normal.melt:5890:/ block"); - /*block*/{ - /*_#THE_CALLCOUNT__L15*/ curfnum[7] = - callcount;; - MELT_LOCATION("warmelt-normal.melt:5890:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg"); - argtab[0].bp_cstring = "normexp_store_predefined result syocc"; - MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[7]; - MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-normal.melt"; - MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg"); - argtab[3].bp_long = 5890; - /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SYOCC__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5890:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[7] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5890:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} - - #else /*ENABLE_CHECKING*/ - MELT_LOCATION("warmelt-normal.melt:5890:/ cppif.else"); - /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-normal.melt:5891:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.SYOCC__V42*/ curfptr[41];; - MELT_LOCATION("warmelt-normal.melt:5891:/ putxtraresult"); - if (!xrestab_ || !xresdescr_) goto labend_rout; - if (xresdescr_[0] != BPAR_PTR) goto labend_rout; - if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDS__V32*/ curfptr[19]); - ; - MELT_LOCATION("warmelt-normal.melt:5891:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*_.LET___V36*/ curfptr[24] = /*_.RETURN___V48*/ curfptr[46];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5873:/ clear"); - /*clear*/ /*_.CSYM__V37*/ curfptr[34] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5873:/ clear"); - /*clear*/ /*_.NFPRE__V38*/ curfptr[37] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5873:/ clear"); - /*clear*/ /*_.CBIND__V40*/ curfptr[39] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5873:/ clear"); - /*clear*/ /*_.SYOCC__V42*/ curfptr[41] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5873:/ clear"); - /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5873:/ clear"); - /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5873:/ clear"); - /*clear*/ /*_.RETURN___V48*/ curfptr[46] = 0 ;} - ; - /*_.MULTI___V30*/ curfptr[23] = /*_.LET___V36*/ curfptr[24];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5868:/ clear"); - /*clear*/ /*_#NULL__L13*/ curfnum[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5868:/ clear"); - /*clear*/ /*_.IF___V33*/ curfptr[22] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5868:/ clear"); - /*clear*/ /*_.LET___V36*/ curfptr[24] = 0 ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5868:/ clear"); - /*clear*/ /*_.NBINDS__V32*/ curfptr[19] = 0 ;} - ; - /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V30*/ curfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5840:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5840:/ clear"); - /*clear*/ /*_.SPRED__V16*/ curfptr[15] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5840:/ clear"); - /*clear*/ /*_.SVAL__V17*/ curfptr[16] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5840:/ clear"); - /*clear*/ /*_.PREDEFMAP__V18*/ curfptr[17] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5840:/ clear"); - /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5840:/ clear"); - /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5840:/ clear"); - /*clear*/ /*_.MULTI___V30*/ curfptr[23] = 0 ;} - ; - MELT_LOCATION("warmelt-normal.melt:5835:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - MELT_LOCATION("warmelt-normal.melt:5835:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ;} - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5835:/ clear"); - /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5835:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5835:/ clear"); - /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5835:/ clear"); - /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - MELT_LOCATION("warmelt-normal.melt:5835:/ clear"); - /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("NORMEXP_STORE_PREDEFINED", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_156_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, - const char xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#define callcount thiscallcounter__ -#else -#define callcount 0L -#endif - - struct frame_meltrout_156_warmelt_normal_LAMBDA__st { unsigned nbvar; -#if ENABLE_CHECKING - const char* flocs; -#endif - struct meltclosure_st *clos; - struct excepth_melt_st *exh; - struct callframe_melt_st *prev; -#define CURFRAM_NBVARPTR 3 - void* varptr[3]; -#define CURFRAM_NBVARNUM 1 - long varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, curfram__; - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->clos); - for(ix=0; ix<3; ix++) - if (framptr_->varptr[ix]) - gt_ggc_mx_melt_un (framptr_->varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 3; - curfram__.clos = closp_; - curfram__.prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &curfram__; -melt_trace_start("LAMBDA_", callcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-normal.melt:5851:/ getarg"); - /*_.KEY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - MELT_LOCATION("warmelt-normal.melt:5851:/ getarg"); - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -MELT_LOCATION("warmelt-normal.melt:5851:/ block"); -/*block*/{ - /*_#__L1*/ curfnum[0] = - ((/*_.VAL__V3*/ curfptr[2]) == ((/*~SPRED*/ curfclos->tabval[0])));; - MELT_LOCATION("warmelt-normal.melt:5852:/ cond"); - /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { - MELT_LOCATION("warmelt-normal.melt:5852:/ cond.then"); - MELT_LOCATION("warmelt-normal.melt:5852:/ block"); - /*block*/{ - - { - MELT_LOCATION("warmelt-normal.melt:5852:/ locexp"); - meltgc_box_put((melt_ptr_t)((/*~BOXK*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.KEY__V2*/ curfptr[1]));} - ; - /*epilog*/} - ; - } /*noelse*/ - ; - /*epilog*/ - MELT_LOCATION("warmelt-normal.melt:5851:/ clear"); - /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; - return (melt_ptr_t)(/*noretval*/ NULL); -#undef callcount -#undef CURFRAM_NBVARNUM -#undef CURFRAM_NBVARPTR -} /*end meltrout_156_warmelt_normal_LAMBDA_*/ - - - typedef struct frame_start_module_melt_st { unsigned nbvar; #if ENABLE_CHECKING @@ -76504,7 +27565,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3__CLASS_ROOT)); melt_assertmsg("iniobj checkdiscr dobj_5__CLASS_NREP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_NREP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_NREP.obj_num = OBMAG_OBJECT; - cdat->dobj_5__CLASS_NREP.obj_hash = 912250501; + cdat->dobj_5__CLASS_NREP.obj_hash = 449508168; cdat->dobj_5__CLASS_NREP.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_5__CLASS_NREP)); @@ -76540,7 +27601,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_9__NREP_LOC)); melt_assertmsg("iniobj checkdiscr dobj_11__NREP_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__NREP_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__NREP_LOC.obj_num = 0; - cdat->dobj_11__NREP_LOC.obj_hash = 704388135; + cdat->dobj_11__NREP_LOC.obj_hash = 774538786; cdat->dobj_11__NREP_LOC.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_11__NREP_LOC)); @@ -76568,7 +27629,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_13__CLASS_NREP_SIMPLE)); melt_assertmsg("iniobj checkdiscr dobj_15__CLASS_NREP_SIMPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_15__CLASS_NREP_SIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_15__CLASS_NREP_SIMPLE.obj_num = OBMAG_OBJECT; - cdat->dobj_15__CLASS_NREP_SIMPLE.obj_hash = 872299092; + cdat->dobj_15__CLASS_NREP_SIMPLE.obj_hash = 616649931; cdat->dobj_15__CLASS_NREP_SIMPLE.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_15__CLASS_NREP_SIMPLE)); @@ -76604,7 +27665,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_19__CLASS_NREP_EXPRESSION melt_assertmsg("iniobj checkdiscr dobj_21__CLASS_NREP_EXPRESSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_num = OBMAG_OBJECT; - cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_hash = 1021491771; + cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_hash = 985500766; cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_21__CLASS_NREP_EXPRESSION)); @@ -76640,7 +27701,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_25__CLASS_NREP_TYPED_EXPR melt_assertmsg("iniobj checkdiscr dobj_27__CLASS_NREP_TYPED_EXPRESSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_num = OBMAG_OBJECT; - cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_hash = 904377868; + cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_hash = 115283147; cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION)); @@ -76676,7 +27737,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_31__NEXPR_CTYP)); melt_assertmsg("iniobj checkdiscr dobj_33__NEXPR_CTYP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_33__NEXPR_CTYP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_33__NEXPR_CTYP.obj_num = 1; - cdat->dobj_33__NEXPR_CTYP.obj_hash = 816844157; + cdat->dobj_33__NEXPR_CTYP.obj_hash = 595156948; cdat->dobj_33__NEXPR_CTYP.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_33__NEXPR_CTYP)); @@ -76704,7 +27765,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_35__CLASS_NREP_TYPED_EXPR melt_assertmsg("iniobj checkdiscr dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_num = OBMAG_OBJECT; - cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_hash = 393165432; + cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_hash = 355929595; cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS)); @@ -76740,7 +27801,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_41__NEXPR_ARGS)); melt_assertmsg("iniobj checkdiscr dobj_43__NEXPR_ARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_43__NEXPR_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_43__NEXPR_ARGS.obj_num = 2; - cdat->dobj_43__NEXPR_ARGS.obj_hash = 1020827310; + cdat->dobj_43__NEXPR_ARGS.obj_hash = 254899561; cdat->dobj_43__NEXPR_ARGS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_43__NEXPR_ARGS)); @@ -76768,7 +27829,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_45__CLASS_NREP_APPLY)); melt_assertmsg("iniobj checkdiscr dobj_47__CLASS_NREP_APPLY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_47__CLASS_NREP_APPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_47__CLASS_NREP_APPLY.obj_num = OBMAG_OBJECT; - cdat->dobj_47__CLASS_NREP_APPLY.obj_hash = 7191562; + cdat->dobj_47__CLASS_NREP_APPLY.obj_hash = 102261313; cdat->dobj_47__CLASS_NREP_APPLY.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_47__CLASS_NREP_APPLY)); @@ -76804,7 +27865,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_51__NAPP_FUN)); melt_assertmsg("iniobj checkdiscr dobj_53__NAPP_FUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_53__NAPP_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_53__NAPP_FUN.obj_num = 3; - cdat->dobj_53__NAPP_FUN.obj_hash = 305185637; + cdat->dobj_53__NAPP_FUN.obj_hash = 273487348; cdat->dobj_53__NAPP_FUN.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_53__NAPP_FUN)); @@ -76832,7 +27893,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_55__CLASS_NREP_MULTIAPPLY melt_assertmsg("iniobj checkdiscr dobj_57__CLASS_NREP_MULTIAPPLY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_num = OBMAG_OBJECT; - cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_hash = 624689832; + cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_hash = 185458115; cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_57__CLASS_NREP_MULTIAPPLY)); @@ -76868,7 +27929,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_61__NMULAPP_BINDINGS)); melt_assertmsg("iniobj checkdiscr dobj_63__NMULAPP_BINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_63__NMULAPP_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_63__NMULAPP_BINDINGS.obj_num = 4; - cdat->dobj_63__NMULAPP_BINDINGS.obj_hash = 471863082; + cdat->dobj_63__NMULAPP_BINDINGS.obj_hash = 937556797; cdat->dobj_63__NMULAPP_BINDINGS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_63__NMULAPP_BINDINGS)); @@ -76896,7 +27957,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_65__NMULAPP_BODY)); melt_assertmsg("iniobj checkdiscr dobj_67__NMULAPP_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_67__NMULAPP_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_67__NMULAPP_BODY.obj_num = 5; - cdat->dobj_67__NMULAPP_BODY.obj_hash = 684981019; + cdat->dobj_67__NMULAPP_BODY.obj_hash = 28740838; cdat->dobj_67__NMULAPP_BODY.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_67__NMULAPP_BODY)); @@ -76924,7 +27985,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_69__CLASS_NREP_MSEND)); melt_assertmsg("iniobj checkdiscr dobj_71__CLASS_NREP_MSEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_71__CLASS_NREP_MSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_71__CLASS_NREP_MSEND.obj_num = OBMAG_OBJECT; - cdat->dobj_71__CLASS_NREP_MSEND.obj_hash = 87683622; + cdat->dobj_71__CLASS_NREP_MSEND.obj_hash = 637039277; cdat->dobj_71__CLASS_NREP_MSEND.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_71__CLASS_NREP_MSEND)); @@ -76960,7 +28021,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_75__NSEND_SEL)); melt_assertmsg("iniobj checkdiscr dobj_77__NSEND_SEL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_77__NSEND_SEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_77__NSEND_SEL.obj_num = 3; - cdat->dobj_77__NSEND_SEL.obj_hash = 467596049; + cdat->dobj_77__NSEND_SEL.obj_hash = 430370928; cdat->dobj_77__NSEND_SEL.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_77__NSEND_SEL)); @@ -76988,7 +28049,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_79__NSEND_RECV)); melt_assertmsg("iniobj checkdiscr dobj_81__NSEND_RECV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_81__NSEND_RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_81__NSEND_RECV.obj_num = 4; - cdat->dobj_81__NSEND_RECV.obj_hash = 437957838; + cdat->dobj_81__NSEND_RECV.obj_hash = 279402181; cdat->dobj_81__NSEND_RECV.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_81__NSEND_RECV)); @@ -77016,7 +28077,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_83__CLASS_NREP_MULTIMSEND melt_assertmsg("iniobj checkdiscr dobj_85__CLASS_NREP_MULTIMSEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_num = OBMAG_OBJECT; - cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_hash = 981298672; + cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_hash = 647171475; cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_85__CLASS_NREP_MULTIMSEND)); @@ -77052,7 +28113,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_89__NMULSEND_BINDINGS)); melt_assertmsg("iniobj checkdiscr dobj_91__NMULSEND_BINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_91__NMULSEND_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_91__NMULSEND_BINDINGS.obj_num = 5; - cdat->dobj_91__NMULSEND_BINDINGS.obj_hash = 776455193; + cdat->dobj_91__NMULSEND_BINDINGS.obj_hash = 344103924; cdat->dobj_91__NMULSEND_BINDINGS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_91__NMULSEND_BINDINGS)); @@ -77080,7 +28141,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_93__NMULSEND_BODY)); melt_assertmsg("iniobj checkdiscr dobj_95__NMULSEND_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_95__NMULSEND_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_95__NMULSEND_BODY.obj_num = 6; - cdat->dobj_95__NMULSEND_BODY.obj_hash = 12574937; + cdat->dobj_95__NMULSEND_BODY.obj_hash = 695269292; cdat->dobj_95__NMULSEND_BODY.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_95__NMULSEND_BODY)); @@ -77108,7 +28169,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_97__CLASS_NREP_CHUNK)); melt_assertmsg("iniobj checkdiscr dobj_99__CLASS_NREP_CHUNK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_99__CLASS_NREP_CHUNK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_99__CLASS_NREP_CHUNK.obj_num = OBMAG_OBJECT; - cdat->dobj_99__CLASS_NREP_CHUNK.obj_hash = 680931018; + cdat->dobj_99__CLASS_NREP_CHUNK.obj_hash = 780328441; cdat->dobj_99__CLASS_NREP_CHUNK.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_99__CLASS_NREP_CHUNK)); @@ -77144,7 +28205,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_103__NCHUNK_EXPANSION)); melt_assertmsg("iniobj checkdiscr dobj_105__NCHUNK_EXPANSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_105__NCHUNK_EXPANSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_105__NCHUNK_EXPANSION.obj_num = 2; - cdat->dobj_105__NCHUNK_EXPANSION.obj_hash = 942469331; + cdat->dobj_105__NCHUNK_EXPANSION.obj_hash = 582525210; cdat->dobj_105__NCHUNK_EXPANSION.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_105__NCHUNK_EXPANSION)); @@ -77172,7 +28233,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_107__NCHUNK_OPER)); melt_assertmsg("iniobj checkdiscr dobj_109__NCHUNK_OPER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_109__NCHUNK_OPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_109__NCHUNK_OPER.obj_num = 3; - cdat->dobj_109__NCHUNK_OPER.obj_hash = 1025018291; + cdat->dobj_109__NCHUNK_OPER.obj_hash = 736533714; cdat->dobj_109__NCHUNK_OPER.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_109__NCHUNK_OPER)); @@ -77200,7 +28261,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_111__CLASS_NREP_COMMENT)) melt_assertmsg("iniobj checkdiscr dobj_113__CLASS_NREP_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_113__CLASS_NREP_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_113__CLASS_NREP_COMMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_113__CLASS_NREP_COMMENT.obj_hash = 89634212; + cdat->dobj_113__CLASS_NREP_COMMENT.obj_hash = 98891407; cdat->dobj_113__CLASS_NREP_COMMENT.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_113__CLASS_NREP_COMMENT)); @@ -77236,7 +28297,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_117__NCOMM_STRING)); melt_assertmsg("iniobj checkdiscr dobj_119__NCOMM_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_119__NCOMM_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_119__NCOMM_STRING.obj_num = 1; - cdat->dobj_119__NCOMM_STRING.obj_hash = 628663288; + cdat->dobj_119__NCOMM_STRING.obj_hash = 940667483; cdat->dobj_119__NCOMM_STRING.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_119__NCOMM_STRING)); @@ -77264,7 +28325,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_121__CLASS_NREP_LET)); melt_assertmsg("iniobj checkdiscr dobj_123__CLASS_NREP_LET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_123__CLASS_NREP_LET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_123__CLASS_NREP_LET.obj_num = OBMAG_OBJECT; - cdat->dobj_123__CLASS_NREP_LET.obj_hash = 997571744; + cdat->dobj_123__CLASS_NREP_LET.obj_hash = 107050143; cdat->dobj_123__CLASS_NREP_LET.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_123__CLASS_NREP_LET)); @@ -77300,7 +28361,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_127__NLET_BINDINGS)); melt_assertmsg("iniobj checkdiscr dobj_129__NLET_BINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_129__NLET_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_129__NLET_BINDINGS.obj_num = 1; - cdat->dobj_129__NLET_BINDINGS.obj_hash = 963236284; + cdat->dobj_129__NLET_BINDINGS.obj_hash = 887635795; cdat->dobj_129__NLET_BINDINGS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_129__NLET_BINDINGS)); @@ -77328,7 +28389,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_131__NLET_BODY)); melt_assertmsg("iniobj checkdiscr dobj_133__NLET_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_133__NLET_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_133__NLET_BODY.obj_num = 2; - cdat->dobj_133__NLET_BODY.obj_hash = 771279004; + cdat->dobj_133__NLET_BODY.obj_hash = 163291531; cdat->dobj_133__NLET_BODY.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_133__NLET_BODY)); @@ -77356,7 +28417,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_135__CLASS_NREP_LETREC)); melt_assertmsg("iniobj checkdiscr dobj_137__CLASS_NREP_LETREC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_137__CLASS_NREP_LETREC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_137__CLASS_NREP_LETREC.obj_num = OBMAG_OBJECT; - cdat->dobj_137__CLASS_NREP_LETREC.obj_hash = 469967427; + cdat->dobj_137__CLASS_NREP_LETREC.obj_hash = 389250878; cdat->dobj_137__CLASS_NREP_LETREC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_137__CLASS_NREP_LETREC)); @@ -77392,7 +28453,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_141__NLETREC_BINDINGS)); melt_assertmsg("iniobj checkdiscr dobj_143__NLETREC_BINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_143__NLETREC_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_143__NLETREC_BINDINGS.obj_num = 3; - cdat->dobj_143__NLETREC_BINDINGS.obj_hash = 915730733; + cdat->dobj_143__NLETREC_BINDINGS.obj_hash = 992797216; cdat->dobj_143__NLETREC_BINDINGS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_143__NLETREC_BINDINGS)); @@ -77420,7 +28481,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_145__NLETREC_LOCSYMS)); melt_assertmsg("iniobj checkdiscr dobj_147__NLETREC_LOCSYMS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_147__NLETREC_LOCSYMS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_147__NLETREC_LOCSYMS.obj_num = 4; - cdat->dobj_147__NLETREC_LOCSYMS.obj_hash = 818427669; + cdat->dobj_147__NLETREC_LOCSYMS.obj_hash = 967018688; cdat->dobj_147__NLETREC_LOCSYMS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_147__NLETREC_LOCSYMS)); @@ -77448,7 +28509,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_149__CLASS_NREP_RETURN)); melt_assertmsg("iniobj checkdiscr dobj_151__CLASS_NREP_RETURN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_151__CLASS_NREP_RETURN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_151__CLASS_NREP_RETURN.obj_num = OBMAG_OBJECT; - cdat->dobj_151__CLASS_NREP_RETURN.obj_hash = 228202307; + cdat->dobj_151__CLASS_NREP_RETURN.obj_hash = 719307050; cdat->dobj_151__CLASS_NREP_RETURN.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_151__CLASS_NREP_RETURN)); @@ -77484,7 +28545,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_155__NRET_MAIN)); melt_assertmsg("iniobj checkdiscr dobj_157__NRET_MAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_157__NRET_MAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_157__NRET_MAIN.obj_num = 1; - cdat->dobj_157__NRET_MAIN.obj_hash = 321650141; + cdat->dobj_157__NRET_MAIN.obj_hash = 805417884; cdat->dobj_157__NRET_MAIN.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_157__NRET_MAIN)); @@ -77512,7 +28573,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_159__NRET_REST)); melt_assertmsg("iniobj checkdiscr dobj_161__NRET_REST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_161__NRET_REST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_161__NRET_REST.obj_num = 2; - cdat->dobj_161__NRET_REST.obj_hash = 670798033; + cdat->dobj_161__NRET_REST.obj_hash = 140284456; cdat->dobj_161__NRET_REST.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_161__NRET_REST)); @@ -77540,7 +28601,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_163__CLASS_NREP_IFCOMMON) melt_assertmsg("iniobj checkdiscr dobj_165__CLASS_NREP_IFCOMMON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_hash = 830232336; + cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_hash = 56669911; cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_165__CLASS_NREP_IFCOMMON)); @@ -77576,7 +28637,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_169__NIF_THEN)); melt_assertmsg("iniobj checkdiscr dobj_171__NIF_THEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_171__NIF_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_171__NIF_THEN.obj_num = 2; - cdat->dobj_171__NIF_THEN.obj_hash = 944888152; + cdat->dobj_171__NIF_THEN.obj_hash = 291170295; cdat->dobj_171__NIF_THEN.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_171__NIF_THEN)); @@ -77604,7 +28665,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_173__NIF_ELSE)); melt_assertmsg("iniobj checkdiscr dobj_175__NIF_ELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_175__NIF_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_175__NIF_ELSE.obj_num = 3; - cdat->dobj_175__NIF_ELSE.obj_hash = 599265495; + cdat->dobj_175__NIF_ELSE.obj_hash = 178341390; cdat->dobj_175__NIF_ELSE.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_175__NIF_ELSE)); @@ -77632,7 +28693,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_177__CLASS_NREP_IFISA)); melt_assertmsg("iniobj checkdiscr dobj_179__CLASS_NREP_IFISA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_179__CLASS_NREP_IFISA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_179__CLASS_NREP_IFISA.obj_num = OBMAG_OBJECT; - cdat->dobj_179__CLASS_NREP_IFISA.obj_hash = 720741713; + cdat->dobj_179__CLASS_NREP_IFISA.obj_hash = 700211508; cdat->dobj_179__CLASS_NREP_IFISA.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_179__CLASS_NREP_IFISA)); @@ -77668,7 +28729,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_183__NIFA_VAL)); melt_assertmsg("iniobj checkdiscr dobj_185__NIFA_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_185__NIFA_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_185__NIFA_VAL.obj_num = 4; - cdat->dobj_185__NIFA_VAL.obj_hash = 361698201; + cdat->dobj_185__NIFA_VAL.obj_hash = 696844724; cdat->dobj_185__NIFA_VAL.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_185__NIFA_VAL)); @@ -77696,7 +28757,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_187__NIFA_CLASS)); melt_assertmsg("iniobj checkdiscr dobj_189__NIFA_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_189__NIFA_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_189__NIFA_CLASS.obj_num = 5; - cdat->dobj_189__NIFA_CLASS.obj_hash = 974666128; + cdat->dobj_189__NIFA_CLASS.obj_hash = 889712803; cdat->dobj_189__NIFA_CLASS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_189__NIFA_CLASS)); @@ -77724,7 +28785,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_191__CLASS_NREP_IF)); melt_assertmsg("iniobj checkdiscr dobj_193__CLASS_NREP_IF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_193__CLASS_NREP_IF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_193__CLASS_NREP_IF.obj_num = OBMAG_OBJECT; - cdat->dobj_193__CLASS_NREP_IF.obj_hash = 169005293; + cdat->dobj_193__CLASS_NREP_IF.obj_hash = 729271644; cdat->dobj_193__CLASS_NREP_IF.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_193__CLASS_NREP_IF)); @@ -77760,7 +28821,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_197__NIF_TEST)); melt_assertmsg("iniobj checkdiscr dobj_199__NIF_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_199__NIF_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_199__NIF_TEST.obj_num = 4; - cdat->dobj_199__NIF_TEST.obj_hash = 299229413; + cdat->dobj_199__NIF_TEST.obj_hash = 733855852; cdat->dobj_199__NIF_TEST.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_199__NIF_TEST)); @@ -77788,7 +28849,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_201__CLASS_NREP_CPPIF)); melt_assertmsg("iniobj checkdiscr dobj_203__CLASS_NREP_CPPIF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_203__CLASS_NREP_CPPIF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_203__CLASS_NREP_CPPIF.obj_num = OBMAG_OBJECT; - cdat->dobj_203__CLASS_NREP_CPPIF.obj_hash = 16976863; + cdat->dobj_203__CLASS_NREP_CPPIF.obj_hash = 1063088722; cdat->dobj_203__CLASS_NREP_CPPIF.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_203__CLASS_NREP_CPPIF)); @@ -77824,7 +28885,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_207__NIFP_COND)); melt_assertmsg("iniobj checkdiscr dobj_209__NIFP_COND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_209__NIFP_COND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_209__NIFP_COND.obj_num = 1; - cdat->dobj_209__NIFP_COND.obj_hash = 771107492; + cdat->dobj_209__NIFP_COND.obj_hash = 271232463; cdat->dobj_209__NIFP_COND.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_209__NIFP_COND)); @@ -77852,7 +28913,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_211__NIFP_THEN)); melt_assertmsg("iniobj checkdiscr dobj_213__NIFP_THEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_213__NIFP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_213__NIFP_THEN.obj_num = 2; - cdat->dobj_213__NIFP_THEN.obj_hash = 820577019; + cdat->dobj_213__NIFP_THEN.obj_hash = 833781150; cdat->dobj_213__NIFP_THEN.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_213__NIFP_THEN)); @@ -77880,7 +28941,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_215__NIFP_ELSE)); melt_assertmsg("iniobj checkdiscr dobj_217__NIFP_ELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_217__NIFP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_217__NIFP_ELSE.obj_num = 3; - cdat->dobj_217__NIFP_ELSE.obj_hash = 961690144; + cdat->dobj_217__NIFP_ELSE.obj_hash = 65004795; cdat->dobj_217__NIFP_ELSE.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_217__NIFP_ELSE)); @@ -77908,7 +28969,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_219__NIFP_CTYP)); melt_assertmsg("iniobj checkdiscr dobj_221__NIFP_CTYP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_221__NIFP_CTYP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_221__NIFP_CTYP.obj_num = 4; - cdat->dobj_221__NIFP_CTYP.obj_hash = 917396222; + cdat->dobj_221__NIFP_CTYP.obj_hash = 563477713; cdat->dobj_221__NIFP_CTYP.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_221__NIFP_CTYP)); @@ -77936,7 +28997,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_223__CLASS_NREP_PROGN)); melt_assertmsg("iniobj checkdiscr dobj_225__CLASS_NREP_PROGN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_225__CLASS_NREP_PROGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_225__CLASS_NREP_PROGN.obj_num = OBMAG_OBJECT; - cdat->dobj_225__CLASS_NREP_PROGN.obj_hash = 29269545; + cdat->dobj_225__CLASS_NREP_PROGN.obj_hash = 145200216; cdat->dobj_225__CLASS_NREP_PROGN.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_225__CLASS_NREP_PROGN)); @@ -77972,7 +29033,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_229__NPROGN_SEQ)); melt_assertmsg("iniobj checkdiscr dobj_231__NPROGN_SEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_231__NPROGN_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_231__NPROGN_SEQ.obj_num = 1; - cdat->dobj_231__NPROGN_SEQ.obj_hash = 318238231; + cdat->dobj_231__NPROGN_SEQ.obj_hash = 532856158; cdat->dobj_231__NPROGN_SEQ.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_231__NPROGN_SEQ)); @@ -78000,7 +29061,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_233__NPROGN_LAST)); melt_assertmsg("iniobj checkdiscr dobj_235__NPROGN_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_235__NPROGN_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_235__NPROGN_LAST.obj_num = 2; - cdat->dobj_235__NPROGN_LAST.obj_hash = 711593692; + cdat->dobj_235__NPROGN_LAST.obj_hash = 1011996923; cdat->dobj_235__NPROGN_LAST.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_235__NPROGN_LAST)); @@ -78028,7 +29089,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_237__CLASS_NREP_UNSAFE_GE melt_assertmsg("iniobj checkdiscr dobj_239__CLASS_NREP_UNSAFE_GET_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_num = OBMAG_OBJECT; - cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 861472114; + cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 456173917; cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD)); @@ -78064,7 +29125,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_243__NUGET_OBJ)); melt_assertmsg("iniobj checkdiscr dobj_245__NUGET_OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_245__NUGET_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_245__NUGET_OBJ.obj_num = 1; - cdat->dobj_245__NUGET_OBJ.obj_hash = 777941779; + cdat->dobj_245__NUGET_OBJ.obj_hash = 643292278; cdat->dobj_245__NUGET_OBJ.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_245__NUGET_OBJ)); @@ -78092,7 +29153,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_247__NUGET_FIELD)); melt_assertmsg("iniobj checkdiscr dobj_249__NUGET_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_249__NUGET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_249__NUGET_FIELD.obj_num = 2; - cdat->dobj_249__NUGET_FIELD.obj_hash = 379847925; + cdat->dobj_249__NUGET_FIELD.obj_hash = 724442256; cdat->dobj_249__NUGET_FIELD.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_249__NUGET_FIELD)); @@ -78120,7 +29181,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_251__CLASS_NREP_UNSAFE_PU melt_assertmsg("iniobj checkdiscr dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_num = OBMAG_OBJECT; - cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 970982435; + cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 346251450; cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS)); @@ -78156,7 +29217,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_257__NUPUT_OBJ)); melt_assertmsg("iniobj checkdiscr dobj_259__NUPUT_OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_259__NUPUT_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_259__NUPUT_OBJ.obj_num = 1; - cdat->dobj_259__NUPUT_OBJ.obj_hash = 862304678; + cdat->dobj_259__NUPUT_OBJ.obj_hash = 868522389; cdat->dobj_259__NUPUT_OBJ.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_259__NUPUT_OBJ)); @@ -78184,7 +29245,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_261__NUPUT_FIELDS)); melt_assertmsg("iniobj checkdiscr dobj_263__NUPUT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_263__NUPUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_263__NUPUT_FIELDS.obj_num = 2; - cdat->dobj_263__NUPUT_FIELDS.obj_hash = 267081689; + cdat->dobj_263__NUPUT_FIELDS.obj_hash = 825525984; cdat->dobj_263__NUPUT_FIELDS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_263__NUPUT_FIELDS)); @@ -78212,7 +29273,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_265__CLASS_NREP_SETQ)); melt_assertmsg("iniobj checkdiscr dobj_267__CLASS_NREP_SETQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_267__CLASS_NREP_SETQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_267__CLASS_NREP_SETQ.obj_num = OBMAG_OBJECT; - cdat->dobj_267__CLASS_NREP_SETQ.obj_hash = 679396675; + cdat->dobj_267__CLASS_NREP_SETQ.obj_hash = 981754166; cdat->dobj_267__CLASS_NREP_SETQ.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_267__CLASS_NREP_SETQ)); @@ -78248,7 +29309,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_271__NSTQ_VAR)); melt_assertmsg("iniobj checkdiscr dobj_273__NSTQ_VAR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_273__NSTQ_VAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_273__NSTQ_VAR.obj_num = 1; - cdat->dobj_273__NSTQ_VAR.obj_hash = 45102064; + cdat->dobj_273__NSTQ_VAR.obj_hash = 909420699; cdat->dobj_273__NSTQ_VAR.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_273__NSTQ_VAR)); @@ -78276,7 +29337,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_275__NSTQ_EXP)); melt_assertmsg("iniobj checkdiscr dobj_277__NSTQ_EXP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_277__NSTQ_EXP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_277__NSTQ_EXP.obj_num = 2; - cdat->dobj_277__NSTQ_EXP.obj_hash = 989714199; + cdat->dobj_277__NSTQ_EXP.obj_hash = 83910458; cdat->dobj_277__NSTQ_EXP.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_277__NSTQ_EXP)); @@ -78304,7 +29365,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_279__CLASS_NREP_FOREVER)) melt_assertmsg("iniobj checkdiscr dobj_281__CLASS_NREP_FOREVER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_281__CLASS_NREP_FOREVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_281__CLASS_NREP_FOREVER.obj_num = OBMAG_OBJECT; - cdat->dobj_281__CLASS_NREP_FOREVER.obj_hash = 916913724; + cdat->dobj_281__CLASS_NREP_FOREVER.obj_hash = 587860731; cdat->dobj_281__CLASS_NREP_FOREVER.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_281__CLASS_NREP_FOREVER)); @@ -78340,7 +29401,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_285__NFOREVER_BIND)); melt_assertmsg("iniobj checkdiscr dobj_287__NFOREVER_BIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_287__NFOREVER_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_287__NFOREVER_BIND.obj_num = 1; - cdat->dobj_287__NFOREVER_BIND.obj_hash = 606749714; + cdat->dobj_287__NFOREVER_BIND.obj_hash = 183104617; cdat->dobj_287__NFOREVER_BIND.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_287__NFOREVER_BIND)); @@ -78368,7 +29429,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_289__NFOREVER_BODY)); melt_assertmsg("iniobj checkdiscr dobj_291__NFOREVER_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_291__NFOREVER_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_291__NFOREVER_BODY.obj_num = 2; - cdat->dobj_291__NFOREVER_BODY.obj_hash = 90717265; + cdat->dobj_291__NFOREVER_BODY.obj_hash = 864744960; cdat->dobj_291__NFOREVER_BODY.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_291__NFOREVER_BODY)); @@ -78396,7 +29457,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_293__NFOREVER_RESULT)); melt_assertmsg("iniobj checkdiscr dobj_295__NFOREVER_RESULT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_295__NFOREVER_RESULT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_295__NFOREVER_RESULT.obj_num = 3; - cdat->dobj_295__NFOREVER_RESULT.obj_hash = 310618364; + cdat->dobj_295__NFOREVER_RESULT.obj_hash = 128100291; cdat->dobj_295__NFOREVER_RESULT.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_295__NFOREVER_RESULT)); @@ -78424,7 +29485,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_297__CLASS_NREP_EXIT)); melt_assertmsg("iniobj checkdiscr dobj_299__CLASS_NREP_EXIT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_299__CLASS_NREP_EXIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_299__CLASS_NREP_EXIT.obj_num = OBMAG_OBJECT; - cdat->dobj_299__CLASS_NREP_EXIT.obj_hash = 313100559; + cdat->dobj_299__CLASS_NREP_EXIT.obj_hash = 996804546; cdat->dobj_299__CLASS_NREP_EXIT.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_299__CLASS_NREP_EXIT)); @@ -78460,7 +29521,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_303__NEXIT_BIND)); melt_assertmsg("iniobj checkdiscr dobj_305__NEXIT_BIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_305__NEXIT_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_305__NEXIT_BIND.obj_num = 1; - cdat->dobj_305__NEXIT_BIND.obj_hash = 406858311; + cdat->dobj_305__NEXIT_BIND.obj_hash = 860299186; cdat->dobj_305__NEXIT_BIND.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_305__NEXIT_BIND)); @@ -78488,7 +29549,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_307__NEXIT_VAL)); melt_assertmsg("iniobj checkdiscr dobj_309__NEXIT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_309__NEXIT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_309__NEXIT_VAL.obj_num = 2; - cdat->dobj_309__NEXIT_VAL.obj_hash = 76834979; + cdat->dobj_309__NEXIT_VAL.obj_hash = 606420870; cdat->dobj_309__NEXIT_VAL.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_309__NEXIT_VAL)); @@ -78516,7 +29577,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_311__CLASS_NREP_FIELDASSI melt_assertmsg("iniobj checkdiscr dobj_313__CLASS_NREP_FIELDASSIGN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_num = OBMAG_OBJECT; - cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_hash = 632391614; + cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_hash = 394084925; cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_313__CLASS_NREP_FIELDASSIGN)); @@ -78552,7 +29613,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_317__NFLA_FIELD)); melt_assertmsg("iniobj checkdiscr dobj_319__NFLA_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_319__NFLA_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_319__NFLA_FIELD.obj_num = 1; - cdat->dobj_319__NFLA_FIELD.obj_hash = 52631779; + cdat->dobj_319__NFLA_FIELD.obj_hash = 547065082; cdat->dobj_319__NFLA_FIELD.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_319__NFLA_FIELD)); @@ -78580,7 +29641,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_321__NFLA_VAL)); melt_assertmsg("iniobj checkdiscr dobj_323__NFLA_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_323__NFLA_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_323__NFLA_VAL.obj_num = 2; - cdat->dobj_323__NFLA_VAL.obj_hash = 846223290; + cdat->dobj_323__NFLA_VAL.obj_hash = 838916905; cdat->dobj_323__NFLA_VAL.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_323__NFLA_VAL)); @@ -78608,7 +29669,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_325__CLASS_NREP_INSTANCE) melt_assertmsg("iniobj checkdiscr dobj_327__CLASS_NREP_INSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_327__CLASS_NREP_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_327__CLASS_NREP_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_327__CLASS_NREP_INSTANCE.obj_hash = 509375539; + cdat->dobj_327__CLASS_NREP_INSTANCE.obj_hash = 159407534; cdat->dobj_327__CLASS_NREP_INSTANCE.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_327__CLASS_NREP_INSTANCE)); @@ -78644,7 +29705,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_331__NMINS_CLASS)); melt_assertmsg("iniobj checkdiscr dobj_333__NMINS_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_333__NMINS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_333__NMINS_CLASS.obj_num = 1; - cdat->dobj_333__NMINS_CLASS.obj_hash = 608951166; + cdat->dobj_333__NMINS_CLASS.obj_hash = 121990385; cdat->dobj_333__NMINS_CLASS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_333__NMINS_CLASS)); @@ -78672,7 +29733,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_335__NMINS_CLADATA)); melt_assertmsg("iniobj checkdiscr dobj_337__NMINS_CLADATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_337__NMINS_CLADATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_337__NMINS_CLADATA.obj_num = 2; - cdat->dobj_337__NMINS_CLADATA.obj_hash = 481081279; + cdat->dobj_337__NMINS_CLADATA.obj_hash = 467131882; cdat->dobj_337__NMINS_CLADATA.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_337__NMINS_CLADATA)); @@ -78700,7 +29761,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_339__NMINS_FIELDS)); melt_assertmsg("iniobj checkdiscr dobj_341__NMINS_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_341__NMINS_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_341__NMINS_FIELDS.obj_num = 3; - cdat->dobj_341__NMINS_FIELDS.obj_hash = 295371124; + cdat->dobj_341__NMINS_FIELDS.obj_hash = 904615703; cdat->dobj_341__NMINS_FIELDS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_341__NMINS_FIELDS)); @@ -78728,7 +29789,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_343__CLASS_NREP_LAMBDA)); melt_assertmsg("iniobj checkdiscr dobj_345__CLASS_NREP_LAMBDA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_345__CLASS_NREP_LAMBDA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_345__CLASS_NREP_LAMBDA.obj_num = OBMAG_OBJECT; - cdat->dobj_345__CLASS_NREP_LAMBDA.obj_hash = 1032283042; + cdat->dobj_345__CLASS_NREP_LAMBDA.obj_hash = 457358305; cdat->dobj_345__CLASS_NREP_LAMBDA.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_345__CLASS_NREP_LAMBDA)); @@ -78764,7 +29825,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_349__NLAMBDA_PROC)); melt_assertmsg("iniobj checkdiscr dobj_351__NLAMBDA_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_351__NLAMBDA_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_351__NLAMBDA_PROC.obj_num = 1; - cdat->dobj_351__NLAMBDA_PROC.obj_hash = 456934526; + cdat->dobj_351__NLAMBDA_PROC.obj_hash = 36039765; cdat->dobj_351__NLAMBDA_PROC.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_351__NLAMBDA_PROC)); @@ -78792,7 +29853,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_353__NLAMBDA_CONSTROUT)); melt_assertmsg("iniobj checkdiscr dobj_355__NLAMBDA_CONSTROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_355__NLAMBDA_CONSTROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_355__NLAMBDA_CONSTROUT.obj_num = 2; - cdat->dobj_355__NLAMBDA_CONSTROUT.obj_hash = 413777422; + cdat->dobj_355__NLAMBDA_CONSTROUT.obj_hash = 195951421; cdat->dobj_355__NLAMBDA_CONSTROUT.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_355__NLAMBDA_CONSTROUT)); @@ -78820,7 +29881,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_357__NLAMBDA_CLOSEDV)); melt_assertmsg("iniobj checkdiscr dobj_359__NLAMBDA_CLOSEDV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_359__NLAMBDA_CLOSEDV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_359__NLAMBDA_CLOSEDV.obj_num = 3; - cdat->dobj_359__NLAMBDA_CLOSEDV.obj_hash = 947819731; + cdat->dobj_359__NLAMBDA_CLOSEDV.obj_hash = 222266138; cdat->dobj_359__NLAMBDA_CLOSEDV.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_359__NLAMBDA_CLOSEDV)); @@ -78848,7 +29909,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_361__CLASS_NREP_CITERATIO melt_assertmsg("iniobj checkdiscr dobj_363__CLASS_NREP_CITERATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_363__CLASS_NREP_CITERATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_363__CLASS_NREP_CITERATION.obj_num = OBMAG_OBJECT; - cdat->dobj_363__CLASS_NREP_CITERATION.obj_hash = 682398115; + cdat->dobj_363__CLASS_NREP_CITERATION.obj_hash = 88696278; cdat->dobj_363__CLASS_NREP_CITERATION.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_363__CLASS_NREP_CITERATION)); @@ -78884,7 +29945,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_367__NCITER_CITERATOR)); melt_assertmsg("iniobj checkdiscr dobj_369__NCITER_CITERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_369__NCITER_CITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_369__NCITER_CITERATOR.obj_num = 1; - cdat->dobj_369__NCITER_CITERATOR.obj_hash = 101060289; + cdat->dobj_369__NCITER_CITERATOR.obj_hash = 297997740; cdat->dobj_369__NCITER_CITERATOR.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_369__NCITER_CITERATOR)); @@ -78912,7 +29973,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_371__NCITER_CHUNKBEFORE)) melt_assertmsg("iniobj checkdiscr dobj_373__NCITER_CHUNKBEFORE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_373__NCITER_CHUNKBEFORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_373__NCITER_CHUNKBEFORE.obj_num = 2; - cdat->dobj_373__NCITER_CHUNKBEFORE.obj_hash = 299787109; + cdat->dobj_373__NCITER_CHUNKBEFORE.obj_hash = 415983560; cdat->dobj_373__NCITER_CHUNKBEFORE.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_373__NCITER_CHUNKBEFORE)); @@ -78940,7 +30001,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_375__NCITER_CHUNKAFTER)); melt_assertmsg("iniobj checkdiscr dobj_377__NCITER_CHUNKAFTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_377__NCITER_CHUNKAFTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_377__NCITER_CHUNKAFTER.obj_num = 3; - cdat->dobj_377__NCITER_CHUNKAFTER.obj_hash = 322416007; + cdat->dobj_377__NCITER_CHUNKAFTER.obj_hash = 767186978; cdat->dobj_377__NCITER_CHUNKAFTER.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_377__NCITER_CHUNKAFTER)); @@ -78968,7 +30029,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_379__NCITER_BODY)); melt_assertmsg("iniobj checkdiscr dobj_381__NCITER_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_381__NCITER_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_381__NCITER_BODY.obj_num = 4; - cdat->dobj_381__NCITER_BODY.obj_hash = 373315030; + cdat->dobj_381__NCITER_BODY.obj_hash = 111304041; cdat->dobj_381__NCITER_BODY.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_381__NCITER_BODY)); @@ -78996,7 +30057,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_383__NCITER_STATOCC)); melt_assertmsg("iniobj checkdiscr dobj_385__NCITER_STATOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_385__NCITER_STATOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_385__NCITER_STATOCC.obj_num = 5; - cdat->dobj_385__NCITER_STATOCC.obj_hash = 347954472; + cdat->dobj_385__NCITER_STATOCC.obj_hash = 878589555; cdat->dobj_385__NCITER_STATOCC.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_385__NCITER_STATOCC)); @@ -79024,7 +30085,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_387__NCITER_LOCBINDINGS)) melt_assertmsg("iniobj checkdiscr dobj_389__NCITER_LOCBINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_389__NCITER_LOCBINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_389__NCITER_LOCBINDINGS.obj_num = 6; - cdat->dobj_389__NCITER_LOCBINDINGS.obj_hash = 611873551; + cdat->dobj_389__NCITER_LOCBINDINGS.obj_hash = 504266962; cdat->dobj_389__NCITER_LOCBINDINGS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_389__NCITER_LOCBINDINGS)); @@ -79052,7 +30113,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_391__NCITER_BODBINDINGS)) melt_assertmsg("iniobj checkdiscr dobj_393__NCITER_BODBINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_393__NCITER_BODBINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_393__NCITER_BODBINDINGS.obj_num = 7; - cdat->dobj_393__NCITER_BODBINDINGS.obj_hash = 449247585; + cdat->dobj_393__NCITER_BODBINDINGS.obj_hash = 452738140; cdat->dobj_393__NCITER_BODBINDINGS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_393__NCITER_BODBINDINGS)); @@ -79080,7 +30141,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_395__CLASS_NREP_TESTS)); melt_assertmsg("iniobj checkdiscr dobj_397__CLASS_NREP_TESTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_397__CLASS_NREP_TESTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_397__CLASS_NREP_TESTS.obj_num = OBMAG_OBJECT; - cdat->dobj_397__CLASS_NREP_TESTS.obj_hash = 246318882; + cdat->dobj_397__CLASS_NREP_TESTS.obj_hash = 678235801; cdat->dobj_397__CLASS_NREP_TESTS.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_397__CLASS_NREP_TESTS)); @@ -79116,7 +30177,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_401__NTESTS_TESTSEQ)); melt_assertmsg("iniobj checkdiscr dobj_403__NTESTS_TESTSEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_403__NTESTS_TESTSEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_403__NTESTS_TESTSEQ.obj_num = 1; - cdat->dobj_403__NTESTS_TESTSEQ.obj_hash = 733242463; + cdat->dobj_403__NTESTS_TESTSEQ.obj_hash = 616864302; cdat->dobj_403__NTESTS_TESTSEQ.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_403__NTESTS_TESTSEQ)); @@ -79157,7 +30218,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_407__CLASS_ANY_BINDING)); melt_assertmsg("iniobj checkdiscr dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_hash = 139379805; + cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_hash = 923618232; cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING)); @@ -79193,7 +30254,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_413__NCONSB_LOC)); melt_assertmsg("iniobj checkdiscr dobj_415__NCONSB_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_415__NCONSB_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_415__NCONSB_LOC.obj_num = 1; - cdat->dobj_415__NCONSB_LOC.obj_hash = 410494122; + cdat->dobj_415__NCONSB_LOC.obj_hash = 872855293; cdat->dobj_415__NCONSB_LOC.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_415__NCONSB_LOC)); @@ -79221,7 +30282,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_417__NCONSB_DISCR)); melt_assertmsg("iniobj checkdiscr dobj_419__NCONSB_DISCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_419__NCONSB_DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_419__NCONSB_DISCR.obj_num = 2; - cdat->dobj_419__NCONSB_DISCR.obj_hash = 501564802; + cdat->dobj_419__NCONSB_DISCR.obj_hash = 1030424461; cdat->dobj_419__NCONSB_DISCR.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_419__NCONSB_DISCR)); @@ -79249,7 +30310,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_421__NCONSB_NLETREC)); melt_assertmsg("iniobj checkdiscr dobj_423__NCONSB_NLETREC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_423__NCONSB_NLETREC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_423__NCONSB_NLETREC.obj_num = 3; - cdat->dobj_423__NCONSB_NLETREC.obj_hash = 939197733; + cdat->dobj_423__NCONSB_NLETREC.obj_hash = 529271208; cdat->dobj_423__NCONSB_NLETREC.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_423__NCONSB_NLETREC)); @@ -79277,7 +30338,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_425__CLASS_NORMAL_CONSTRU melt_assertmsg("iniobj checkdiscr dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_hash = 1048065203; + cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_hash = 596816210; cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING)); @@ -79313,7 +30374,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_431__NTUPB_COMP)); melt_assertmsg("iniobj checkdiscr dobj_433__NTUPB_COMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_433__NTUPB_COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_433__NTUPB_COMP.obj_num = 4; - cdat->dobj_433__NTUPB_COMP.obj_hash = 812634390; + cdat->dobj_433__NTUPB_COMP.obj_hash = 952837197; cdat->dobj_433__NTUPB_COMP.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_433__NTUPB_COMP)); @@ -79341,7 +30402,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_435__CLASS_NORMAL_CONSTRU melt_assertmsg("iniobj checkdiscr dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_hash = 80855739; + cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_hash = 876590238; cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING)); @@ -79377,7 +30438,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_441__NPAIRB_HEAD)); melt_assertmsg("iniobj checkdiscr dobj_443__NPAIRB_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_443__NPAIRB_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_443__NPAIRB_HEAD.obj_num = 4; - cdat->dobj_443__NPAIRB_HEAD.obj_hash = 275456709; + cdat->dobj_443__NPAIRB_HEAD.obj_hash = 555103968; cdat->dobj_443__NPAIRB_HEAD.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_443__NPAIRB_HEAD)); @@ -79405,7 +30466,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_445__NPAIRB_TAIL)); melt_assertmsg("iniobj checkdiscr dobj_447__NPAIRB_TAIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_447__NPAIRB_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_447__NPAIRB_TAIL.obj_num = 5; - cdat->dobj_447__NPAIRB_TAIL.obj_hash = 611303220; + cdat->dobj_447__NPAIRB_TAIL.obj_hash = 797183047; cdat->dobj_447__NPAIRB_TAIL.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_447__NPAIRB_TAIL)); @@ -79433,7 +30494,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_449__CLASS_NORMAL_CONSTRU melt_assertmsg("iniobj checkdiscr dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_hash = 451721669; + cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_hash = 84395060; cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING)); @@ -79469,7 +30530,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_455__NLISTB_FIRST)); melt_assertmsg("iniobj checkdiscr dobj_457__NLISTB_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_457__NLISTB_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_457__NLISTB_FIRST.obj_num = 4; - cdat->dobj_457__NLISTB_FIRST.obj_hash = 524028403; + cdat->dobj_457__NLISTB_FIRST.obj_hash = 677095290; cdat->dobj_457__NLISTB_FIRST.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_457__NLISTB_FIRST)); @@ -79497,7 +30558,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_459__NLISTB_LAST)); melt_assertmsg("iniobj checkdiscr dobj_461__NLISTB_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_461__NLISTB_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_461__NLISTB_LAST.obj_num = 5; - cdat->dobj_461__NLISTB_LAST.obj_hash = 1045996588; + cdat->dobj_461__NLISTB_LAST.obj_hash = 924288651; cdat->dobj_461__NLISTB_LAST.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_461__NLISTB_LAST)); @@ -79525,7 +30586,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_463__NLISTB_PAIRSB)); melt_assertmsg("iniobj checkdiscr dobj_465__NLISTB_PAIRSB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_465__NLISTB_PAIRSB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_465__NLISTB_PAIRSB.obj_num = 6; - cdat->dobj_465__NLISTB_PAIRSB.obj_hash = 413302294; + cdat->dobj_465__NLISTB_PAIRSB.obj_hash = 56954125; cdat->dobj_465__NLISTB_PAIRSB.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_465__NLISTB_PAIRSB)); @@ -79553,7 +30614,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_467__CLASS_NORMAL_CONSTRU melt_assertmsg("iniobj checkdiscr dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_hash = 461722746; + cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_hash = 1026524445; cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING)); @@ -79589,7 +30650,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_473__NLAMBDAB_NCLOSED)); melt_assertmsg("iniobj checkdiscr dobj_475__NLAMBDAB_NCLOSED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_475__NLAMBDAB_NCLOSED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_475__NLAMBDAB_NCLOSED.obj_num = 4; - cdat->dobj_475__NLAMBDAB_NCLOSED.obj_hash = 741505167; + cdat->dobj_475__NLAMBDAB_NCLOSED.obj_hash = 973523306; cdat->dobj_475__NLAMBDAB_NCLOSED.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_475__NLAMBDAB_NCLOSED)); @@ -79617,7 +30678,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_477__NLAMBDAB_CONSTROUT)) melt_assertmsg("iniobj checkdiscr dobj_479__NLAMBDAB_CONSTROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_num = 5; - cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_hash = 1059841784; + cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_hash = 76127947; cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_479__NLAMBDAB_CONSTROUT)); @@ -79645,7 +30706,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_481__NLAMBDAB_DATAROUT)); melt_assertmsg("iniobj checkdiscr dobj_483__NLAMBDAB_DATAROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_483__NLAMBDAB_DATAROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_483__NLAMBDAB_DATAROUT.obj_num = 6; - cdat->dobj_483__NLAMBDAB_DATAROUT.obj_hash = 199122879; + cdat->dobj_483__NLAMBDAB_DATAROUT.obj_hash = 865928010; cdat->dobj_483__NLAMBDAB_DATAROUT.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_483__NLAMBDAB_DATAROUT)); @@ -79673,7 +30734,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_485__CLASS_NORMAL_CONSTRU melt_assertmsg("iniobj checkdiscr dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_hash = 899921318; + cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_hash = 118604525; cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING)); @@ -79709,7 +30770,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_491__NINSTB_SLOTS)); melt_assertmsg("iniobj checkdiscr dobj_493__NINSTB_SLOTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_493__NINSTB_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_493__NINSTB_SLOTS.obj_num = 4; - cdat->dobj_493__NINSTB_SLOTS.obj_hash = 353662400; + cdat->dobj_493__NINSTB_SLOTS.obj_hash = 777825759; cdat->dobj_493__NINSTB_SLOTS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_493__NINSTB_SLOTS)); @@ -79737,7 +30798,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_495__NINSTB_CLABIND)); melt_assertmsg("iniobj checkdiscr dobj_497__NINSTB_CLABIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_497__NINSTB_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_497__NINSTB_CLABIND.obj_num = 5; - cdat->dobj_497__NINSTB_CLABIND.obj_hash = 631320925; + cdat->dobj_497__NINSTB_CLABIND.obj_hash = 772893716; cdat->dobj_497__NINSTB_CLABIND.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_497__NINSTB_CLABIND)); @@ -79765,7 +30826,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_499__CLASS_NREP_ANYPROC)) melt_assertmsg("iniobj checkdiscr dobj_501__CLASS_NREP_ANYPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_501__CLASS_NREP_ANYPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_501__CLASS_NREP_ANYPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_501__CLASS_NREP_ANYPROC.obj_hash = 968583180; + cdat->dobj_501__CLASS_NREP_ANYPROC.obj_hash = 70190959; cdat->dobj_501__CLASS_NREP_ANYPROC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_501__CLASS_NREP_ANYPROC)); @@ -79801,7 +30862,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_505__NPROC_BODY)); melt_assertmsg("iniobj checkdiscr dobj_507__NPROC_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_507__NPROC_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_507__NPROC_BODY.obj_num = 1; - cdat->dobj_507__NPROC_BODY.obj_hash = 730860204; + cdat->dobj_507__NPROC_BODY.obj_hash = 441862215; cdat->dobj_507__NPROC_BODY.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_507__NPROC_BODY)); @@ -79829,7 +30890,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_509__CLASS_NREP_INITPROC) melt_assertmsg("iniobj checkdiscr dobj_511__CLASS_NREP_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_511__CLASS_NREP_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_511__CLASS_NREP_INITPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_511__CLASS_NREP_INITPROC.obj_hash = 755973442; + cdat->dobj_511__CLASS_NREP_INITPROC.obj_hash = 493975513; cdat->dobj_511__CLASS_NREP_INITPROC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_511__CLASS_NREP_INITPROC)); @@ -79865,7 +30926,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_515__NINIT_TOPL)); melt_assertmsg("iniobj checkdiscr dobj_517__NINIT_TOPL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_517__NINIT_TOPL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_517__NINIT_TOPL.obj_num = 2; - cdat->dobj_517__NINIT_TOPL.obj_hash = 868735396; + cdat->dobj_517__NINIT_TOPL.obj_hash = 117163923; cdat->dobj_517__NINIT_TOPL.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_517__NINIT_TOPL)); @@ -79893,7 +30954,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_519__CLASS_NREP_ROUTPROC) melt_assertmsg("iniobj checkdiscr dobj_521__CLASS_NREP_ROUTPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_hash = 607806115; + cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_hash = 947034270; cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_521__CLASS_NREP_ROUTPROC)); @@ -79929,7 +30990,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_525__NRPRO_NAME)); melt_assertmsg("iniobj checkdiscr dobj_527__NRPRO_NAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_527__NRPRO_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_527__NRPRO_NAME.obj_num = 2; - cdat->dobj_527__NRPRO_NAME.obj_hash = 656864929; + cdat->dobj_527__NRPRO_NAME.obj_hash = 510716052; cdat->dobj_527__NRPRO_NAME.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_527__NRPRO_NAME)); @@ -79957,7 +31018,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_529__NRPRO_ARGB)); melt_assertmsg("iniobj checkdiscr dobj_531__NRPRO_ARGB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_531__NRPRO_ARGB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_531__NRPRO_ARGB.obj_num = 3; - cdat->dobj_531__NRPRO_ARGB.obj_hash = 1009549281; + cdat->dobj_531__NRPRO_ARGB.obj_hash = 605305484; cdat->dobj_531__NRPRO_ARGB.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_531__NRPRO_ARGB)); @@ -79985,7 +31046,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_533__NRPRO_CLOSEDB)); melt_assertmsg("iniobj checkdiscr dobj_535__NRPRO_CLOSEDB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_535__NRPRO_CLOSEDB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_535__NRPRO_CLOSEDB.obj_num = 4; - cdat->dobj_535__NRPRO_CLOSEDB.obj_hash = 828801005; + cdat->dobj_535__NRPRO_CLOSEDB.obj_hash = 417119760; cdat->dobj_535__NRPRO_CLOSEDB.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_535__NRPRO_CLOSEDB)); @@ -80013,7 +31074,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_537__NRPRO_CONST)); melt_assertmsg("iniobj checkdiscr dobj_539__NRPRO_CONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_539__NRPRO_CONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_539__NRPRO_CONST.obj_num = 5; - cdat->dobj_539__NRPRO_CONST.obj_hash = 482622252; + cdat->dobj_539__NRPRO_CONST.obj_hash = 332469639; cdat->dobj_539__NRPRO_CONST.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_539__NRPRO_CONST)); @@ -80041,7 +31102,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_541__NRPRO_DATAROUT)); melt_assertmsg("iniobj checkdiscr dobj_543__NRPRO_DATAROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_543__NRPRO_DATAROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_543__NRPRO_DATAROUT.obj_num = 6; - cdat->dobj_543__NRPRO_DATAROUT.obj_hash = 578764515; + cdat->dobj_543__NRPRO_DATAROUT.obj_hash = 359423030; cdat->dobj_543__NRPRO_DATAROUT.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_543__NRPRO_DATAROUT)); @@ -80069,7 +31130,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_545__NRPRO_DATACLOS)); melt_assertmsg("iniobj checkdiscr dobj_547__NRPRO_DATACLOS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_547__NRPRO_DATACLOS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_547__NRPRO_DATACLOS.obj_num = 7; - cdat->dobj_547__NRPRO_DATACLOS.obj_hash = 504524619; + cdat->dobj_547__NRPRO_DATACLOS.obj_hash = 530101334; cdat->dobj_547__NRPRO_DATACLOS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_547__NRPRO_DATACLOS)); @@ -80097,7 +31158,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_549__NRPRO_THUNKLIST)); melt_assertmsg("iniobj checkdiscr dobj_551__NRPRO_THUNKLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_551__NRPRO_THUNKLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_551__NRPRO_THUNKLIST.obj_num = 8; - cdat->dobj_551__NRPRO_THUNKLIST.obj_hash = 392792419; + cdat->dobj_551__NRPRO_THUNKLIST.obj_hash = 374229222; cdat->dobj_551__NRPRO_THUNKLIST.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_551__NRPRO_THUNKLIST)); @@ -80125,7 +31186,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_553__CLASS_NREP_LAMBDAROU melt_assertmsg("iniobj checkdiscr dobj_555__CLASS_NREP_LAMBDAROUTPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_hash = 716548273; + cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_hash = 925850704; cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC)); @@ -80161,7 +31222,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_559__CLASS_NREP_DEFUNROUT melt_assertmsg("iniobj checkdiscr dobj_561__CLASS_NREP_DEFUNROUTPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_num = OBMAG_OBJECT; - cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_hash = 473846191; + cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_hash = 50728218; cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC)); @@ -80197,7 +31258,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_565__CLASS_NREP_PREDEF)); melt_assertmsg("iniobj checkdiscr dobj_567__CLASS_NREP_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_567__CLASS_NREP_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_567__CLASS_NREP_PREDEF.obj_num = OBMAG_OBJECT; - cdat->dobj_567__CLASS_NREP_PREDEF.obj_hash = 508245433; + cdat->dobj_567__CLASS_NREP_PREDEF.obj_hash = 103720032; cdat->dobj_567__CLASS_NREP_PREDEF.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_567__CLASS_NREP_PREDEF)); @@ -80233,7 +31294,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_571__NRPREDEF)); melt_assertmsg("iniobj checkdiscr dobj_573__NRPREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_573__NRPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_573__NRPREDEF.obj_num = 1; - cdat->dobj_573__NRPREDEF.obj_hash = 339759073; + cdat->dobj_573__NRPREDEF.obj_hash = 1031485536; cdat->dobj_573__NRPREDEF.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_573__NRPREDEF)); @@ -80261,7 +31322,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_575__CLASS_NREP_NIL)); melt_assertmsg("iniobj checkdiscr dobj_577__CLASS_NREP_NIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_577__CLASS_NREP_NIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_577__CLASS_NREP_NIL.obj_num = OBMAG_OBJECT; - cdat->dobj_577__CLASS_NREP_NIL.obj_hash = 162517760; + cdat->dobj_577__CLASS_NREP_NIL.obj_hash = 575500491; cdat->dobj_577__CLASS_NREP_NIL.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_577__CLASS_NREP_NIL)); @@ -80297,7 +31358,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_581__CLASS_NREP_QUASIDATA melt_assertmsg("iniobj checkdiscr dobj_583__CLASS_NREP_QUASIDATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_num = OBMAG_OBJECT; - cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_hash = 673101185; + cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_hash = 88912392; cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_583__CLASS_NREP_QUASIDATA)); @@ -80333,7 +31394,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_587__CLASS_NREP_DATA)); melt_assertmsg("iniobj checkdiscr dobj_589__CLASS_NREP_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_589__CLASS_NREP_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_589__CLASS_NREP_DATA.obj_num = OBMAG_OBJECT; - cdat->dobj_589__CLASS_NREP_DATA.obj_hash = 602641825; + cdat->dobj_589__CLASS_NREP_DATA.obj_hash = 51150100; cdat->dobj_589__CLASS_NREP_DATA.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_589__CLASS_NREP_DATA)); @@ -80369,7 +31430,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_593__NDATA_NAME)); melt_assertmsg("iniobj checkdiscr dobj_595__NDATA_NAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_595__NDATA_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_595__NDATA_NAME.obj_num = 1; - cdat->dobj_595__NDATA_NAME.obj_hash = 387171681; + cdat->dobj_595__NDATA_NAME.obj_hash = 196948364; cdat->dobj_595__NDATA_NAME.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_595__NDATA_NAME)); @@ -80397,7 +31458,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_597__NDATA_DISCRX)); melt_assertmsg("iniobj checkdiscr dobj_599__NDATA_DISCRX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_599__NDATA_DISCRX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_599__NDATA_DISCRX.obj_num = 2; - cdat->dobj_599__NDATA_DISCRX.obj_hash = 13240111; + cdat->dobj_599__NDATA_DISCRX.obj_hash = 77664978; cdat->dobj_599__NDATA_DISCRX.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_599__NDATA_DISCRX)); @@ -80425,7 +31486,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_601__NDATA_RANK)); melt_assertmsg("iniobj checkdiscr dobj_603__NDATA_RANK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_603__NDATA_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_603__NDATA_RANK.obj_num = 3; - cdat->dobj_603__NDATA_RANK.obj_hash = 349618487; + cdat->dobj_603__NDATA_RANK.obj_hash = 127853842; cdat->dobj_603__NDATA_RANK.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_603__NDATA_RANK)); @@ -80453,7 +31514,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_605__NDATA_LOCBIND)); melt_assertmsg("iniobj checkdiscr dobj_607__NDATA_LOCBIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_607__NDATA_LOCBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_607__NDATA_LOCBIND.obj_num = 4; - cdat->dobj_607__NDATA_LOCBIND.obj_hash = 259003150; + cdat->dobj_607__NDATA_LOCBIND.obj_hash = 588076513; cdat->dobj_607__NDATA_LOCBIND.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_607__NDATA_LOCBIND)); @@ -80481,7 +31542,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_609__CLASS_NREP_DATAINSTA melt_assertmsg("iniobj checkdiscr dobj_611__CLASS_NREP_DATAINSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_hash = 130059757; + cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_hash = 811096348; cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_611__CLASS_NREP_DATAINSTANCE)); @@ -80517,7 +31578,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_615__NINST_OBJNUM)); melt_assertmsg("iniobj checkdiscr dobj_617__NINST_OBJNUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_617__NINST_OBJNUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_617__NINST_OBJNUM.obj_num = 5; - cdat->dobj_617__NINST_OBJNUM.obj_hash = 228311345; + cdat->dobj_617__NINST_OBJNUM.obj_hash = 527297912; cdat->dobj_617__NINST_OBJNUM.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_617__NINST_OBJNUM)); @@ -80545,7 +31606,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_619__NINST_PREDEF)); melt_assertmsg("iniobj checkdiscr dobj_621__NINST_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_621__NINST_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_621__NINST_PREDEF.obj_num = 6; - cdat->dobj_621__NINST_PREDEF.obj_hash = 209951419; + cdat->dobj_621__NINST_PREDEF.obj_hash = 403868122; cdat->dobj_621__NINST_PREDEF.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_621__NINST_PREDEF)); @@ -80573,7 +31634,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_623__NINST_HASH)); melt_assertmsg("iniobj checkdiscr dobj_625__NINST_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_625__NINST_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_625__NINST_HASH.obj_num = 7; - cdat->dobj_625__NINST_HASH.obj_hash = 190219435; + cdat->dobj_625__NINST_HASH.obj_hash = 367906402; cdat->dobj_625__NINST_HASH.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_625__NINST_HASH)); @@ -80601,7 +31662,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_627__NINST_SLOTS)); melt_assertmsg("iniobj checkdiscr dobj_629__NINST_SLOTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_629__NINST_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_629__NINST_SLOTS.obj_num = 8; - cdat->dobj_629__NINST_SLOTS.obj_hash = 359213218; + cdat->dobj_629__NINST_SLOTS.obj_hash = 653757105; cdat->dobj_629__NINST_SLOTS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_629__NINST_SLOTS)); @@ -80629,7 +31690,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_631__CLASS_NREP_DATASTRIN melt_assertmsg("iniobj checkdiscr dobj_633__CLASS_NREP_DATASTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_633__CLASS_NREP_DATASTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_633__CLASS_NREP_DATASTRING.obj_num = OBMAG_OBJECT; - cdat->dobj_633__CLASS_NREP_DATASTRING.obj_hash = 598160516; + cdat->dobj_633__CLASS_NREP_DATASTRING.obj_hash = 939263263; cdat->dobj_633__CLASS_NREP_DATASTRING.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_633__CLASS_NREP_DATASTRING)); @@ -80665,7 +31726,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_637__NSTR_STRING)); melt_assertmsg("iniobj checkdiscr dobj_639__NSTR_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_639__NSTR_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_639__NSTR_STRING.obj_num = 5; - cdat->dobj_639__NSTR_STRING.obj_hash = 46542362; + cdat->dobj_639__NSTR_STRING.obj_hash = 534105005; cdat->dobj_639__NSTR_STRING.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_639__NSTR_STRING)); @@ -80693,7 +31754,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_641__CLASS_NREP_DATABOXED melt_assertmsg("iniobj checkdiscr dobj_643__CLASS_NREP_DATABOXEDINTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_num = OBMAG_OBJECT; - cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_hash = 430172122; + cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_hash = 152100041; cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER)); @@ -80729,7 +31790,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_647__NBOXINT_NUM)); melt_assertmsg("iniobj checkdiscr dobj_649__NBOXINT_NUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_649__NBOXINT_NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_649__NBOXINT_NUM.obj_num = 5; - cdat->dobj_649__NBOXINT_NUM.obj_hash = 34743951; + cdat->dobj_649__NBOXINT_NUM.obj_hash = 485749398; cdat->dobj_649__NBOXINT_NUM.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_649__NBOXINT_NUM)); @@ -80757,7 +31818,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_651__CLASS_NREP_DATATUPLE melt_assertmsg("iniobj checkdiscr dobj_653__CLASS_NREP_DATATUPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_num = OBMAG_OBJECT; - cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_hash = 966297131; + cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_hash = 1052320542; cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_653__CLASS_NREP_DATATUPLE)); @@ -80793,7 +31854,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_657__NTUP_COMP)); melt_assertmsg("iniobj checkdiscr dobj_659__NTUP_COMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_659__NTUP_COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_659__NTUP_COMP.obj_num = 5; - cdat->dobj_659__NTUP_COMP.obj_hash = 305589047; + cdat->dobj_659__NTUP_COMP.obj_hash = 702073058; cdat->dobj_659__NTUP_COMP.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_659__NTUP_COMP)); @@ -80821,7 +31882,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_661__CLASS_NREP_DATASYMBO melt_assertmsg("iniobj checkdiscr dobj_663__CLASS_NREP_DATASYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_num = OBMAG_OBJECT; - cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_hash = 99485073; + cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_hash = 281324408; cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_663__CLASS_NREP_DATASYMBOL)); @@ -80857,7 +31918,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_667__NDSY_NAMESTR)); melt_assertmsg("iniobj checkdiscr dobj_669__NDSY_NAMESTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_669__NDSY_NAMESTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_669__NDSY_NAMESTR.obj_num = 9; - cdat->dobj_669__NDSY_NAMESTR.obj_hash = 782613219; + cdat->dobj_669__NDSY_NAMESTR.obj_hash = 634047650; cdat->dobj_669__NDSY_NAMESTR.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_669__NDSY_NAMESTR)); @@ -80885,7 +31946,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_671__CLASS_NREP_DATAKEYWO melt_assertmsg("iniobj checkdiscr dobj_673__CLASS_NREP_DATAKEYWORD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_num = OBMAG_OBJECT; - cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_hash = 165897568; + cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_hash = 488975723; cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_673__CLASS_NREP_DATAKEYWORD)); @@ -80921,7 +31982,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_677__CLASS_NREP_DATAROUTI melt_assertmsg("iniobj checkdiscr dobj_679__CLASS_NREP_DATAROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_num = OBMAG_OBJECT; - cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_hash = 451343342; + cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_hash = 83873717; cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_679__CLASS_NREP_DATAROUTINE)); @@ -80957,7 +32018,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_683__NDROU_PROC)); melt_assertmsg("iniobj checkdiscr dobj_685__NDROU_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_685__NDROU_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_685__NDROU_PROC.obj_num = 5; - cdat->dobj_685__NDROU_PROC.obj_hash = 951632657; + cdat->dobj_685__NDROU_PROC.obj_hash = 203468208; cdat->dobj_685__NDROU_PROC.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_685__NDROU_PROC)); @@ -80985,7 +32046,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_687__CLASS_NREP_DATACLOSU melt_assertmsg("iniobj checkdiscr dobj_689__CLASS_NREP_DATACLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_num = OBMAG_OBJECT; - cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_hash = 865697164; + cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_hash = 149560311; cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_689__CLASS_NREP_DATACLOSURE)); @@ -81021,7 +32082,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_693__NDCLO_PROC)); melt_assertmsg("iniobj checkdiscr dobj_695__NDCLO_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_695__NDCLO_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_695__NDCLO_PROC.obj_num = 5; - cdat->dobj_695__NDCLO_PROC.obj_hash = 43804606; + cdat->dobj_695__NDCLO_PROC.obj_hash = 184389537; cdat->dobj_695__NDCLO_PROC.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_695__NDCLO_PROC)); @@ -81049,7 +32110,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_697__NDCLO_CLOSV)); melt_assertmsg("iniobj checkdiscr dobj_699__NDCLO_CLOSV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_699__NDCLO_CLOSV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_699__NDCLO_CLOSV.obj_num = 6; - cdat->dobj_699__NDCLO_CLOSV.obj_hash = 748209277; + cdat->dobj_699__NDCLO_CLOSV.obj_hash = 958463640; cdat->dobj_699__NDCLO_CLOSV.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_699__NDCLO_CLOSV)); @@ -81077,7 +32138,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_701__CLASS_NREP_IMPORTEDV melt_assertmsg("iniobj checkdiscr dobj_703__CLASS_NREP_IMPORTEDVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_num = OBMAG_OBJECT; - cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_hash = 858280247; + cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_hash = 268702286; cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_703__CLASS_NREP_IMPORTEDVAL)); @@ -81113,7 +32174,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_707__NIMPORT_SYMB)); melt_assertmsg("iniobj checkdiscr dobj_709__NIMPORT_SYMB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_709__NIMPORT_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_709__NIMPORT_SYMB.obj_num = 1; - cdat->dobj_709__NIMPORT_SYMB.obj_hash = 583560728; + cdat->dobj_709__NIMPORT_SYMB.obj_hash = 588613255; cdat->dobj_709__NIMPORT_SYMB.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_709__NIMPORT_SYMB)); @@ -81141,7 +32202,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_711__NIMPORT_SYDATA)); melt_assertmsg("iniobj checkdiscr dobj_713__NIMPORT_SYDATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_713__NIMPORT_SYDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_713__NIMPORT_SYDATA.obj_num = 2; - cdat->dobj_713__NIMPORT_SYDATA.obj_hash = 1044476222; + cdat->dobj_713__NIMPORT_SYDATA.obj_hash = 376753349; cdat->dobj_713__NIMPORT_SYDATA.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_713__NIMPORT_SYDATA)); @@ -81169,7 +32230,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_715__CLASS_NREP_SYMOCC)); melt_assertmsg("iniobj checkdiscr dobj_717__CLASS_NREP_SYMOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_717__CLASS_NREP_SYMOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_717__CLASS_NREP_SYMOCC.obj_num = OBMAG_OBJECT; - cdat->dobj_717__CLASS_NREP_SYMOCC.obj_hash = 616288868; + cdat->dobj_717__CLASS_NREP_SYMOCC.obj_hash = 291824855; cdat->dobj_717__CLASS_NREP_SYMOCC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_717__CLASS_NREP_SYMOCC)); @@ -81205,7 +32266,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_721__NOCC_SYMB)); melt_assertmsg("iniobj checkdiscr dobj_723__NOCC_SYMB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_723__NOCC_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_723__NOCC_SYMB.obj_num = 1; - cdat->dobj_723__NOCC_SYMB.obj_hash = 767394344; + cdat->dobj_723__NOCC_SYMB.obj_hash = 552505683; cdat->dobj_723__NOCC_SYMB.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_723__NOCC_SYMB)); @@ -81233,7 +32294,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_725__NOCC_CTYP)); melt_assertmsg("iniobj checkdiscr dobj_727__NOCC_CTYP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_727__NOCC_CTYP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_727__NOCC_CTYP.obj_num = 2; - cdat->dobj_727__NOCC_CTYP.obj_hash = 601572530; + cdat->dobj_727__NOCC_CTYP.obj_hash = 967977813; cdat->dobj_727__NOCC_CTYP.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_727__NOCC_CTYP)); @@ -81261,7 +32322,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_729__NOCC_BIND)); melt_assertmsg("iniobj checkdiscr dobj_731__NOCC_BIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_731__NOCC_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_731__NOCC_BIND.obj_num = 3; - cdat->dobj_731__NOCC_BIND.obj_hash = 261621162; + cdat->dobj_731__NOCC_BIND.obj_hash = 48168069; cdat->dobj_731__NOCC_BIND.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_731__NOCC_BIND)); @@ -81289,7 +32350,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_733__CLASS_NREP_LOCSYMOCC melt_assertmsg("iniobj checkdiscr dobj_735__CLASS_NREP_LOCSYMOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_num = OBMAG_OBJECT; - cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_hash = 537084750; + cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_hash = 163412005; cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_735__CLASS_NREP_LOCSYMOCC)); @@ -81325,7 +32386,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_739__CLASS_NREP_CLOSEDOCC melt_assertmsg("iniobj checkdiscr dobj_741__CLASS_NREP_CLOSEDOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_num = OBMAG_OBJECT; - cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_hash = 764457506; + cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_hash = 168995365; cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_741__CLASS_NREP_CLOSEDOCC)); @@ -81361,7 +32422,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_745__NCLOC_PROCS)); melt_assertmsg("iniobj checkdiscr dobj_747__NCLOC_PROCS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_747__NCLOC_PROCS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_747__NCLOC_PROCS.obj_num = 4; - cdat->dobj_747__NCLOC_PROCS.obj_hash = 35559544; + cdat->dobj_747__NCLOC_PROCS.obj_hash = 608006067; cdat->dobj_747__NCLOC_PROCS.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_747__NCLOC_PROCS)); @@ -81389,7 +32450,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_749__CLASS_NREP_CONSTOCC) melt_assertmsg("iniobj checkdiscr dobj_751__CLASS_NREP_CONSTOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_num = OBMAG_OBJECT; - cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_hash = 592022828; + cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_hash = 388949475; cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_751__CLASS_NREP_CONSTOCC)); @@ -81425,7 +32486,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_755__CLASS_NREP_QUASICONS melt_assertmsg("iniobj checkdiscr dobj_757__CLASS_NREP_QUASICONSTANT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_num = OBMAG_OBJECT; - cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_hash = 537991901; + cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_hash = 994766912; cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_757__CLASS_NREP_QUASICONSTANT)); @@ -81461,7 +32522,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_761__NCONST_SVAL)); melt_assertmsg("iniobj checkdiscr dobj_763__NCONST_SVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_763__NCONST_SVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_763__NCONST_SVAL.obj_num = 1; - cdat->dobj_763__NCONST_SVAL.obj_hash = 857498415; + cdat->dobj_763__NCONST_SVAL.obj_hash = 21677770; cdat->dobj_763__NCONST_SVAL.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_763__NCONST_SVAL)); @@ -81489,7 +32550,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_765__NCONST_PROC)); melt_assertmsg("iniobj checkdiscr dobj_767__NCONST_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_767__NCONST_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_767__NCONST_PROC.obj_num = 2; - cdat->dobj_767__NCONST_PROC.obj_hash = 871091825; + cdat->dobj_767__NCONST_PROC.obj_hash = 720811780; cdat->dobj_767__NCONST_PROC.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_767__NCONST_PROC)); @@ -81517,7 +32578,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_769__NCONST_DATA)); melt_assertmsg("iniobj checkdiscr dobj_771__NCONST_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_771__NCONST_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_771__NCONST_DATA.obj_num = 3; - cdat->dobj_771__NCONST_DATA.obj_hash = 809297526; + cdat->dobj_771__NCONST_DATA.obj_hash = 65800385; cdat->dobj_771__NCONST_DATA.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_771__NCONST_DATA)); @@ -81545,7 +32606,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_773__CLASS_NREP_CONSTANT) melt_assertmsg("iniobj checkdiscr dobj_775__CLASS_NREP_CONSTANT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_775__CLASS_NREP_CONSTANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_775__CLASS_NREP_CONSTANT.obj_num = OBMAG_OBJECT; - cdat->dobj_775__CLASS_NREP_CONSTANT.obj_hash = 1035185057; + cdat->dobj_775__CLASS_NREP_CONSTANT.obj_hash = 884364968; cdat->dobj_775__CLASS_NREP_CONSTANT.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_775__CLASS_NREP_CONSTANT)); @@ -81581,7 +32642,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_779__CLASS_NREP_QUASICONS melt_assertmsg("iniobj checkdiscr dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 218588785; + cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 371306084; cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); @@ -81617,7 +32678,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_785__NQCMEC_COMMENT)); melt_assertmsg("iniobj checkdiscr dobj_787__NQCMEC_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_787__NQCMEC_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_787__NQCMEC_COMMENT.obj_num = 4; - cdat->dobj_787__NQCMEC_COMMENT.obj_hash = 39505143; + cdat->dobj_787__NQCMEC_COMMENT.obj_hash = 470928802; cdat->dobj_787__NQCMEC_COMMENT.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_787__NQCMEC_COMMENT)); @@ -81645,7 +32706,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_789__CLASS_NREP_QUASIDATA melt_assertmsg("iniobj checkdiscr dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 329276838; + cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 607437453; cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); @@ -81681,7 +32742,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_795__CLASS_NREP_QUASICONS melt_assertmsg("iniobj checkdiscr dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 376404342; + cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 681684169; cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT)); @@ -81717,7 +32778,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_801__CLASS_NREP_QUASIDATA melt_assertmsg("iniobj checkdiscr dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 910911147; + cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 190004314; cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT)); @@ -81753,7 +32814,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_807__CLASS_NREP_FIELDACC) melt_assertmsg("iniobj checkdiscr dobj_809__CLASS_NREP_FIELDACC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_809__CLASS_NREP_FIELDACC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_809__CLASS_NREP_FIELDACC.obj_num = OBMAG_OBJECT; - cdat->dobj_809__CLASS_NREP_FIELDACC.obj_hash = 770926651; + cdat->dobj_809__CLASS_NREP_FIELDACC.obj_hash = 401438966; cdat->dobj_809__CLASS_NREP_FIELDACC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_809__CLASS_NREP_FIELDACC)); @@ -81789,7 +32850,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_813__NACCF_OBJ)); melt_assertmsg("iniobj checkdiscr dobj_815__NACCF_OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_815__NACCF_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_815__NACCF_OBJ.obj_num = 1; - cdat->dobj_815__NACCF_OBJ.obj_hash = 389135357; + cdat->dobj_815__NACCF_OBJ.obj_hash = 361359024; cdat->dobj_815__NACCF_OBJ.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_815__NACCF_OBJ)); @@ -81817,7 +32878,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_817__NACCF_FLD)); melt_assertmsg("iniobj checkdiscr dobj_819__NACCF_FLD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_819__NACCF_FLD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_819__NACCF_FLD.obj_num = 2; - cdat->dobj_819__NACCF_FLD.obj_hash = 838536283; + cdat->dobj_819__NACCF_FLD.obj_hash = 351243718; cdat->dobj_819__NACCF_FLD.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_819__NACCF_FLD)); @@ -81845,7 +32906,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_821__CLASS_NREP_MULTACC)) melt_assertmsg("iniobj checkdiscr dobj_823__CLASS_NREP_MULTACC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_823__CLASS_NREP_MULTACC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_823__CLASS_NREP_MULTACC.obj_num = OBMAG_OBJECT; - cdat->dobj_823__CLASS_NREP_MULTACC.obj_hash = 102224579; + cdat->dobj_823__CLASS_NREP_MULTACC.obj_hash = 1027293034; cdat->dobj_823__CLASS_NREP_MULTACC.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_823__CLASS_NREP_MULTACC)); @@ -81881,7 +32942,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_827__NACCM_MUL)); melt_assertmsg("iniobj checkdiscr dobj_829__NACCM_MUL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_829__NACCM_MUL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_829__NACCM_MUL.obj_num = 1; - cdat->dobj_829__NACCM_MUL.obj_hash = 390860631; + cdat->dobj_829__NACCM_MUL.obj_hash = 28452310; cdat->dobj_829__NACCM_MUL.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_829__NACCM_MUL)); @@ -81909,7 +32970,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_831__NACCM_IX)); melt_assertmsg("iniobj checkdiscr dobj_833__NACCM_IX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_833__NACCM_IX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_833__NACCM_IX.obj_num = 2; - cdat->dobj_833__NACCM_IX.obj_hash = 683941203; + cdat->dobj_833__NACCM_IX.obj_hash = 86265194; cdat->dobj_833__NACCM_IX.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_833__NACCM_IX)); @@ -81937,7 +32998,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_835__CLASS_NREP_STORE_PRE melt_assertmsg("iniobj checkdiscr dobj_837__CLASS_NREP_STORE_PREDEFINED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_num = OBMAG_OBJECT; - cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_hash = 939978895; + cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_hash = 146836690; cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED)); @@ -81973,7 +33034,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_841__NSTPD_PREDEF)); melt_assertmsg("iniobj checkdiscr dobj_843__NSTPD_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_843__NSTPD_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_843__NSTPD_PREDEF.obj_num = 1; - cdat->dobj_843__NSTPD_PREDEF.obj_hash = 985886566; + cdat->dobj_843__NSTPD_PREDEF.obj_hash = 203367649; cdat->dobj_843__NSTPD_PREDEF.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_843__NSTPD_PREDEF)); @@ -82001,7 +33062,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_845__NSTPD_VALUE)); melt_assertmsg("iniobj checkdiscr dobj_847__NSTPD_VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_847__NSTPD_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_847__NSTPD_VALUE.obj_num = 2; - cdat->dobj_847__NSTPD_VALUE.obj_hash = 518656116; + cdat->dobj_847__NSTPD_VALUE.obj_hash = 482233831; cdat->dobj_847__NSTPD_VALUE.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_847__NSTPD_VALUE)); @@ -82029,7 +33090,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_849__CLASS_NREP_UPDATE_CU melt_assertmsg("iniobj checkdiscr dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 39343367; + cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 99734358; cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); @@ -82065,7 +33126,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_855__NUCMEB_EXPR)); melt_assertmsg("iniobj checkdiscr dobj_857__NUCMEB_EXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_857__NUCMEB_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_857__NUCMEB_EXPR.obj_num = 1; - cdat->dobj_857__NUCMEB_EXPR.obj_hash = 761719089; + cdat->dobj_857__NUCMEB_EXPR.obj_hash = 267046296; cdat->dobj_857__NUCMEB_EXPR.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_857__NUCMEB_EXPR)); @@ -82093,7 +33154,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_859__NCUMEB_COMMENT)); melt_assertmsg("iniobj checkdiscr dobj_861__NCUMEB_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_861__NCUMEB_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_861__NCUMEB_COMMENT.obj_num = 2; - cdat->dobj_861__NCUMEB_COMMENT.obj_hash = 980554947; + cdat->dobj_861__NCUMEB_COMMENT.obj_hash = 471255298; cdat->dobj_861__NCUMEB_COMMENT.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_861__NCUMEB_COMMENT)); @@ -82120,7 +33181,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_863__HAS_EXTRA_WARNINGS)) if (!/*_.VALDATA___V1029*/ curfptr[1028]) /*_.VALDATA___V1029*/ curfptr[1028] = (void*)&cdat->dobj_865__HAS_EXTRA_WARNINGS; melt_assertmsg("iniobj checkdiscr dobj_865__HAS_EXTRA_WARNINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); cdat->dobj_865__HAS_EXTRA_WARNINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_865__HAS_EXTRA_WARNINGS.obj_hash = 283468096; + cdat->dobj_865__HAS_EXTRA_WARNINGS.obj_hash = 234707095; cdat->dobj_865__HAS_EXTRA_WARNINGS.obj_len = 5; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_865__HAS_EXTRA_WARNINGS)); @@ -83159,7 +34220,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1024__LAST_GLOBPREDEF_IND if (!/*_.VALDATA___V1190*/ curfptr[1189]) /*_.VALDATA___V1190*/ curfptr[1189] = (void*)&cdat->dobj_1026__LAST_GLOBPREDEF_INDEX; melt_assertmsg("iniobj checkdiscr dobj_1026__LAST_GLOBPREDEF_INDEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); cdat->dobj_1026__LAST_GLOBPREDEF_INDEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1026__LAST_GLOBPREDEF_INDEX.obj_hash = 239815201; + cdat->dobj_1026__LAST_GLOBPREDEF_INDEX.obj_hash = 625291156; cdat->dobj_1026__LAST_GLOBPREDEF_INDEX.obj_len = 5; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1026__LAST_GLOBPREDEF_INDEX)); @@ -83237,7 +34298,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1037__NORMAL_EXP)); if (!/*_.VALDATA___V1203*/ curfptr[1202]) /*_.VALDATA___V1203*/ curfptr[1202] = (void*)&cdat->dobj_1039__NORMAL_EXP; melt_assertmsg("iniobj checkdiscr dobj_1039__NORMAL_EXP", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]); cdat->dobj_1039__NORMAL_EXP.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]); - cdat->dobj_1039__NORMAL_EXP.obj_hash = 168260370; + cdat->dobj_1039__NORMAL_EXP.obj_hash = 208122189; cdat->dobj_1039__NORMAL_EXP.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1039__NORMAL_EXP)); @@ -83339,7 +34400,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1053__GET_CTYPE)); if (!/*_.VALDATA___V1219*/ curfptr[1218]) /*_.VALDATA___V1219*/ curfptr[1218] = (void*)&cdat->dobj_1055__GET_CTYPE; melt_assertmsg("iniobj checkdiscr dobj_1055__GET_CTYPE", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]); cdat->dobj_1055__GET_CTYPE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]); - cdat->dobj_1055__GET_CTYPE.obj_hash = 247468695; + cdat->dobj_1055__GET_CTYPE.obj_hash = 226272526; cdat->dobj_1055__GET_CTYPE.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1055__GET_CTYPE)); @@ -83366,7 +34427,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1057__COMPILE_OBJ)); if (!/*_.VALDATA___V1223*/ curfptr[1222]) /*_.VALDATA___V1223*/ curfptr[1222] = (void*)&cdat->dobj_1059__COMPILE_OBJ; melt_assertmsg("iniobj checkdiscr dobj_1059__COMPILE_OBJ", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]); cdat->dobj_1059__COMPILE_OBJ.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]); - cdat->dobj_1059__COMPILE_OBJ.obj_hash = 1055167319; + cdat->dobj_1059__COMPILE_OBJ.obj_hash = 140402094; cdat->dobj_1059__COMPILE_OBJ.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1059__COMPILE_OBJ)); @@ -85146,7 +36207,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1333__RECV)); melt_assertmsg("iniobj checkdiscr dobj_1335", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1335.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1335.obj_num = 0; - cdat->dobj_1335.obj_hash = 384222866; + cdat->dobj_1335.obj_hash = 1041860057; cdat->dobj_1335.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1335)); @@ -85169,7 +36230,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1336__SYMB)); melt_assertmsg("iniobj checkdiscr dobj_1338", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1338.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1338.obj_num = 1; - cdat->dobj_1338.obj_hash = 526032577; + cdat->dobj_1338.obj_hash = 804610024; cdat->dobj_1338.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1338)); @@ -85192,7 +36253,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__NCX)); melt_assertmsg("iniobj checkdiscr dobj_1341", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1341.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1341.obj_num = 2; - cdat->dobj_1341.obj_hash = 412503122; + cdat->dobj_1341.obj_hash = 1042508633; cdat->dobj_1341.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1341)); @@ -85215,7 +36276,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1342__SLOC)); melt_assertmsg("iniobj checkdiscr dobj_1344", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1344.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1344.obj_num = 3; - cdat->dobj_1344.obj_hash = 784432765; + cdat->dobj_1344.obj_hash = 20633444; cdat->dobj_1344.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1344)); @@ -85228,7 +36289,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1344)); if (!/*_.VALDATA___V1514*/ curfptr[1513]) /*_.VALDATA___V1514*/ curfptr[1513] = (void*)&cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING; melt_assertmsg("iniobj checkdiscr dobj_1346__PREPARE_CONSTRUCTOR_BINDING", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]); cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]); - cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING.obj_hash = 193085908; + cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING.obj_hash = 729846695; cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING)); @@ -85281,7 +36342,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1352__CEXPR)); melt_assertmsg("iniobj checkdiscr dobj_1354", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1354.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1354.obj_num = 0; - cdat->dobj_1354.obj_hash = 18833123; + cdat->dobj_1354.obj_hash = 38448710; cdat->dobj_1354.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1354)); @@ -85291,7 +36352,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1354)); melt_assertmsg("iniobj checkdiscr dobj_1355", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1355.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1355.obj_num = 1; - cdat->dobj_1355.obj_hash = 263757665; + cdat->dobj_1355.obj_hash = 317413412; cdat->dobj_1355.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1355)); @@ -85314,7 +36375,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1356__CBIND)); melt_assertmsg("iniobj checkdiscr dobj_1358", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1358.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1358.obj_num = 2; - cdat->dobj_1358.obj_hash = 451025016; + cdat->dobj_1358.obj_hash = 173324907; cdat->dobj_1358.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1358)); @@ -85337,7 +36398,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1359__ENV)); melt_assertmsg("iniobj checkdiscr dobj_1361", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1361.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1361.obj_num = 3; - cdat->dobj_1361.obj_hash = 339258910; + cdat->dobj_1361.obj_hash = 968129393; cdat->dobj_1361.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1361)); @@ -85347,7 +36408,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1361)); melt_assertmsg("iniobj checkdiscr dobj_1362", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1362.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1362.obj_num = 4; - cdat->dobj_1362.obj_hash = 425603493; + cdat->dobj_1362.obj_hash = 215561816; cdat->dobj_1362.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1362)); @@ -85357,7 +36418,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1362)); melt_assertmsg("iniobj checkdiscr dobj_1363", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1363.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1363.obj_num = 5; - cdat->dobj_1363.obj_hash = 658232738; + cdat->dobj_1363.obj_hash = 1021940357; cdat->dobj_1363.obj_len = 2; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1363)); @@ -85370,7 +36431,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1363)); if (!/*_.VALDATA___V1533*/ curfptr[1532]) /*_.VALDATA___V1533*/ curfptr[1532] = (void*)&cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE; melt_assertmsg("iniobj checkdiscr dobj_1365__NORMAL_LETREC_CONSTRUCTIVE", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]); cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]); - cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE.obj_hash = 341322568; + cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE.obj_hash = 797037415; cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE.obj_len = 4; melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE)); @@ -118940,4 +70001,4 @@ const int meltclasslen__CLASS_NREP_UNSAFE_PUT_FIELDS = 3; const int meltclasslen__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = 3; -/**** end of warmelt-normal.3.c ****/ +/**** end of warmelt-normal.0.c ****/ |