diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-genobj+02.cc')
| -rw-r--r-- | gcc/melt/generated/warmelt-genobj+02.cc | 6384 |
1 files changed, 4256 insertions, 2128 deletions
diff --git a/gcc/melt/generated/warmelt-genobj+02.cc b/gcc/melt/generated/warmelt-genobj+02.cc index b6287f9f91f..bb84337e25d 100644 --- a/gcc/melt/generated/warmelt-genobj+02.cc +++ b/gcc/melt/generated/warmelt-genobj+02.cc @@ -1204,7 +1204,8 @@ meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK fromline 1756 */ - /* classy proc frame meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK */ MeltFrame_meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK + /* classy proc frame meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK */ + MeltFrame_meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK fromline 1785*/ #if ENABLE_CHECKING @@ -1217,7 +1218,8 @@ meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_CHUNK", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1227,12 +1229,14 @@ meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2435:/ getarg"); - /*_.NCHK__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NCHK__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -1264,7 +1268,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1273,7 +1278,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2436:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1306,16 +1312,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_chunk nchk="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCHK__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2436:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -1328,7 +1338,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2436:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1337,9 +1348,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1369,10 +1382,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCHK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2437:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -1401,25 +1416,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2437; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCHK__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2437:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2437:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1437,10 +1458,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2438:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -1469,25 +1492,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2438; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2438:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2438:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1503,7 +1532,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCHK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.LOC__V13*/ meltfptr[3] = slot; + /*_.LOC__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2440:/ getslot"); @@ -1511,7 +1541,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCHK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NCHUNK_EXPANSION"); - /*_.NEXP__V14*/ meltfptr[13] = slot; + /*_.NEXP__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2441:/ getslot"); @@ -1519,7 +1550,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCHK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NCHUNK_OPER"); - /*_.NOPER__V15*/ meltfptr[14] = slot; + /*_.NOPER__V15*/ + meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2442:/ getslot"); @@ -1527,7 +1559,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCHK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NEXPR_CTYP"); - /*_.NTYP__V16*/ meltfptr[15] = slot; + /*_.NTYP__V16*/ + meltfptr[15] = slot; }; ; @@ -1550,7 +1583,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1559,7 +1593,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2444:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1592,16 +1627,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_chunk nexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V14*/ meltfptr[13]; - /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V18*/ + meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V17*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; + /*_._IF___V17*/ + meltfptr[16] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2444:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ + meltfptr[17] = 0 ; } ; } @@ -1614,7 +1653,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2444:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1623,9 +1663,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IF___V17*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1655,10 +1697,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[0] = + /*_#IS_A__L7*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NOPER__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:2445:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V20*/ meltfptr[16] = (/*nil*/NULL);; @@ -1687,25 +1731,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2445; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NOPER__V15*/ meltfptr[14]; - /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V20*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; + /*_._IFELSE___V20*/ + meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2445:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ + meltfptr[20] = 0 ; } ; } ; - /*_.IFCPP___V19*/ meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[16];; + /*_.IFCPP___V19*/ + meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2445:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V20*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V20*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1723,10 +1773,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L8*/ meltfnum[1] = + /*_#IS_MULTIPLE__L8*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.NEXP__V14*/ meltfptr[13])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-genobj.melt:2446:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[16] = (/*nil*/NULL);; @@ -1755,25 +1807,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2446; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V14*/ meltfptr[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V23*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2446:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V22*/ meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[16];; + /*_.IFCPP___V22*/ + meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2446:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1791,10 +1849,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[0] = + /*_#IS_A__L9*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NTYP__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:2447:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V26*/ meltfptr[16] = (/*nil*/NULL);; @@ -1823,25 +1883,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2447; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NTYP__V16*/ meltfptr[15]; - /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V26*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; + /*_._IFELSE___V26*/ + meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2447:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ + meltfptr[26] = 0 ; } ; } ; - /*_.IFCPP___V25*/ meltfptr[23] = /*_._IFELSE___V26*/ meltfptr[16];; + /*_.IFCPP___V25*/ + meltfptr[23] = /*_._IFELSE___V26*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2447:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V26*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V26*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1856,7 +1922,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V30*/ meltfptr[29] = + /*newclosure*/ /*_.LAMBDA___V30*/ + meltfptr[29] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (1)); ; /*^putclosedv*/ @@ -1865,7 +1932,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ meltfptr[29]))); ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ meltfptr[29])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]); ; - /*_.LAMBDA___V29*/ meltfptr[16] = /*_.LAMBDA___V30*/ meltfptr[29];; + /*_.LAMBDA___V29*/ + meltfptr[16] = /*_.LAMBDA___V30*/ meltfptr[29];; MELT_CHECK_SIGNAL(); ; @@ -1876,14 +1944,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ meltfptr[16]; - /*_.OTUP__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.NEXP__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OTUP__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.NEXP__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2464:/ cond"); - /*cond*/ if (/*_.LOC__V13*/ meltfptr[3]) /*then*/ + /*cond*/ + if (/*_.LOC__V13*/ meltfptr[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1901,7 +1971,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ meltfrout->tabval[11])), (3), "CLASS_OBJLOCATEDEXPV"); - /*_.INST__V34*/ meltfptr[33] = + /*_.INST__V34*/ + meltfptr[33] = newobj; }; ; @@ -1924,13 +1995,16 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V34*/ meltfptr[33], "newly made instance"); ; - /*_.INST___V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; + /*_.INST___V33*/ + meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; /*^compute*/ - /*_.OEXP__V32*/ meltfptr[31] = /*_.INST___V33*/ meltfptr[32];; + /*_.OEXP__V32*/ + meltfptr[31] = /*_.INST___V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2464:/ clear"); - /*clear*/ /*_.INST___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.INST___V33*/ + meltfptr[32] = 0 ; } ; } @@ -1952,7 +2026,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ meltfrout->tabval[12])), (2), "CLASS_OBJEXPV"); - /*_.INST__V36*/ meltfptr[35] = + /*_.INST__V36*/ + meltfptr[35] = newobj; }; ; @@ -1970,13 +2045,16 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V36*/ meltfptr[35], "newly made instance"); ; - /*_.INST___V35*/ meltfptr[32] = /*_.INST__V36*/ meltfptr[35];; + /*_.INST___V35*/ + meltfptr[32] = /*_.INST__V36*/ meltfptr[35];; /*^compute*/ - /*_.OEXP__V32*/ meltfptr[31] = /*_.INST___V35*/ meltfptr[32];; + /*_.OEXP__V32*/ + meltfptr[31] = /*_.INST___V35*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2464:/ clear"); - /*clear*/ /*_.INST___V35*/ meltfptr[32] = 0 ; + /*clear*/ /*_.INST___V35*/ + meltfptr[32] = 0 ; } ; } @@ -2001,7 +2079,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2010,7 +2089,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2475:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2043,16 +2123,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_chunk otup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OTUP__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V37*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; + /*_._IF___V37*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2475:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[37] = 0 ; } ; } @@ -2065,7 +2149,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2475:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2074,9 +2159,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V37*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2106,10 +2193,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L12*/ meltfnum[0] = + /*_#IS_A__L12*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NTYP__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:2476:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V40*/ meltfptr[32] = (/*nil*/NULL);; @@ -2138,25 +2227,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2476; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NTYP__V16*/ meltfptr[15]; - /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V40*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40];; + /*_._IFELSE___V40*/ + meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2476:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ + meltfptr[40] = 0 ; } ; } ; - /*_.IFCPP___V39*/ meltfptr[37] = /*_._IFELSE___V40*/ meltfptr[32];; + /*_.IFCPP___V39*/ + meltfptr[37] = /*_._IFELSE___V40*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2476:/ clear"); - /*clear*/ /*_#IS_A__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V40*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V40*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2184,7 +2279,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L13*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2193,7 +2289,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2477:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2226,16 +2323,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_chunk result oexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OEXP__V32*/ meltfptr[31]; - /*_.MELT_DEBUG_FUN__V43*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V42*/ meltfptr[40] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[32];; + /*_._IF___V42*/ + meltfptr[40] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2477:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[32] = 0 ; } ; } @@ -2248,7 +2349,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2477:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2257,9 +2359,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2279,41 +2383,56 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V28*/ meltfptr[26] = /*_.OEXP__V32*/ meltfptr[31];; + /*_.LET___V28*/ + meltfptr[26] = /*_.OEXP__V32*/ meltfptr[31];; MELT_LOCATION("warmelt-genobj.melt:2448:/ clear"); - /*clear*/ /*_.LAMBDA___V29*/ meltfptr[16] = 0 ; + /*clear*/ /*_.LAMBDA___V29*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.OTUP__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.OTUP__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.OEXP__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.OEXP__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V39*/ meltfptr[37] = 0 ; - /*_.LET___V12*/ meltfptr[10] = /*_.LET___V28*/ meltfptr[26];; + /*clear*/ /*_.IFCPP___V39*/ + meltfptr[37] = 0 ; + /*_.LET___V12*/ + meltfptr[10] = /*_.LET___V28*/ meltfptr[26];; MELT_LOCATION("warmelt-genobj.melt:2439:/ clear"); - /*clear*/ /*_.LOC__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LOC__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXP__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NEXP__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NOPER__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.NOPER__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.NTYP__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.NTYP__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_.IFCPP___V19*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V22*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.IFCPP___V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V28*/ + meltfptr[26] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2435:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2435:/ locexp"); @@ -2328,15 +2447,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -2418,7 +2541,8 @@ meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11 fromline 1756 */ - /* classy proc frame meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11 */ MeltFrame_meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11 + /* classy proc frame meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11 */ + MeltFrame_meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11 fromline 1785*/ #if ENABLE_CHECKING @@ -2431,7 +2555,8 @@ meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl11", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2441,12 +2566,14 @@ meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2450:/ getarg"); - /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.COMP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#IX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -2476,7 +2603,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2485,7 +2613,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2451:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2522,16 +2651,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L1*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V4*/ + meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2451:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L3*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ + meltfptr[3] = 0 ; } ; } @@ -2544,7 +2677,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2451:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2553,9 +2687,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V3*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2578,13 +2714,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.DISCRIM__V5*/ meltfptr[3] = + /*_.DISCRIM__V5*/ + meltfptr[3] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.COMP__V2*/ meltfptr[1]))));; /*^compute*/ - /*_#eqeq__L4*/ meltfnum[2] = + /*_#eqeq__L4*/ + meltfnum[2] = ((/*_.DISCRIM__V5*/ meltfptr[3]) == ((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2452:/ cond"); - /*cond*/ if (/*_#eqeq__L4*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#eqeq__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2611,7 +2750,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2620,7 +2760,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2454:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2657,16 +2798,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L1*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2454:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -2679,7 +2824,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2454:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2688,9 +2834,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2716,7 +2864,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2456:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.COMP__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.COMP__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-genobj.melt:2456:/ locexp"); @@ -2731,19 +2880,24 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-genobj.melt:2453:/ quasiblock"); - /*_.PROGN___V10*/ meltfptr[6] = /*_.RETURN___V9*/ meltfptr[7];; + /*_.PROGN___V10*/ + meltfptr[6] = /*_.RETURN___V9*/ meltfptr[7];; /*^compute*/ - /*_._IFELSE___V6*/ meltfptr[2] = /*_.PROGN___V10*/ meltfptr[6];; + /*_._IFELSE___V6*/ + meltfptr[2] = /*_.PROGN___V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2452:/ clear"); - /*clear*/ /*_.RETURN___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.RETURN___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_.PROGN___V10*/ + meltfptr[6] = 0 ; } ; } @@ -2767,7 +2921,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~GCX*/ meltfclos->tabval[0]); - /*_.OCOMP__V12*/ meltfptr[6] = meltgc_send((melt_ptr_t)(/*_.COMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OCOMP__V12*/ + meltfptr[6] = meltgc_send((melt_ptr_t)(/*_.COMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2790,7 +2945,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[5] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[5] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2799,7 +2955,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2460:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[5]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2836,16 +2993,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L1*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V13*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; + /*_._IF___V13*/ + meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2460:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ + meltfptr[13] = 0 ; } ; } @@ -2858,7 +3019,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2460:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2867,9 +3029,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V13*/ + meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2895,7 +3059,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2462:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OCOMP__V12*/ meltfptr[6];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OCOMP__V12*/ meltfptr[6];; { MELT_LOCATION("warmelt-genobj.melt:2462:/ locexp"); @@ -2910,18 +3075,24 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V11*/ meltfptr[7] = /*_.RETURN___V15*/ meltfptr[13];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V11*/ + meltfptr[7] = /*_.RETURN___V15*/ meltfptr[13];; MELT_LOCATION("warmelt-genobj.melt:2458:/ clear"); - /*clear*/ /*_.OCOMP__V12*/ meltfptr[6] = 0 ; + /*clear*/ /*_.OCOMP__V12*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V15*/ meltfptr[13] = 0 ; - /*_._IFELSE___V6*/ meltfptr[2] = /*_.LET___V11*/ meltfptr[7];; + /*clear*/ /*_.RETURN___V15*/ + meltfptr[13] = 0 ; + /*_._IFELSE___V6*/ + meltfptr[2] = /*_.LET___V11*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2452:/ clear"); - /*clear*/ /*_.LET___V11*/ meltfptr[7] = 0 ; + /*clear*/ /*_.LET___V11*/ + meltfptr[7] = 0 ; } ; } @@ -2932,7 +3103,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2450:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V6*/ meltfptr[2];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_._IFELSE___V6*/ meltfptr[2];; { MELT_LOCATION("warmelt-genobj.melt:2450:/ locexp"); @@ -2947,15 +3119,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.DISCRIM__V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.DISCRIM__V5*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L4*/ meltfnum[2] = 0 ; + /*clear*/ /*_#eqeq__L4*/ + meltfnum[2] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ + meltfptr[2] = 0 ; } ; @@ -3037,7 +3213,8 @@ meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR(meltclosure_ptr_t meltclosp_, melt_ /* end of frame for routine meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR fromline 1756 */ - /* classy proc frame meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR */ MeltFrame_meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR + /* classy proc frame meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR */ + MeltFrame_meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR fromline 1785*/ #if ENABLE_CHECKING @@ -3050,7 +3227,8 @@ meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR(meltclosure_ptr_t meltclosp_, melt_ #define meltframe meltfram__ melt_trace_start("GETCTYPE_TYPEXPR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3060,12 +3238,14 @@ meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR(meltclosure_ptr_t meltclosp_, melt_ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2484:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); ; @@ -3087,10 +3267,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_TYPED_EXPRESSION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:2485:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; @@ -3119,25 +3301,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2485; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V6*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; + /*_._IFELSE___V5*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2485:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ + meltfptr[5] = 0 ; } ; } ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; + /*_.IFCPP___V4*/ + meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2485:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V5*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3150,7 +3338,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NEXPR_CTYP"); - /*_.NEXPR_CTYP__V7*/ meltfptr[5] = slot; + /*_.NEXPR_CTYP__V7*/ + meltfptr[5] = slot; }; ; @@ -3159,7 +3348,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2484:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NEXPR_CTYP__V7*/ meltfptr[5];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.NEXPR_CTYP__V7*/ meltfptr[5];; { MELT_LOCATION("warmelt-genobj.melt:2484:/ locexp"); @@ -3174,13 +3364,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXPR_CTYP__V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_.NEXPR_CTYP__V7*/ + meltfptr[5] = 0 ; } ; @@ -3262,7 +3455,8 @@ meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL fromline 1756 */ - /* classy proc frame meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL */ MeltFrame_meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL + /* classy proc frame meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL */ + MeltFrame_meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL fromline 1785*/ #if ENABLE_CHECKING @@ -3275,7 +3469,8 @@ meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_NIL", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3285,12 +3480,14 @@ meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2490:/ getarg"); - /*_.NILO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NILO__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -3312,10 +3509,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NILO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_NIL*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:2491:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; @@ -3344,25 +3543,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2491; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NILO__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V6*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; + /*_._IFELSE___V5*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2491:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ + meltfptr[5] = 0 ; } ; } ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; + /*_.IFCPP___V4*/ + meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2491:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V5*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3380,10 +3585,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L2*/ meltfnum[0] = + /*_#IS_A__L2*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-genobj.melt:2492:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -3412,25 +3619,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2492; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2492:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ + meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2492:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L2*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3452,7 +3665,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJNIL*/ meltfrout->tabval[3])), (1), "CLASS_OBJNIL"); - /*_.INST__V12*/ meltfptr[11] = + /*_.INST__V12*/ + meltfptr[11] = newobj; }; ; @@ -3465,14 +3679,16 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V12*/ meltfptr[11], "newly made instance"); ; - /*_.OBNIL__V11*/ meltfptr[4] = /*_.INST__V12*/ meltfptr[11];; + /*_.OBNIL__V11*/ + meltfptr[4] = /*_.INST__V12*/ meltfptr[11];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2495:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OBNIL__V11*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OBNIL__V11*/ meltfptr[4];; { MELT_LOCATION("warmelt-genobj.melt:2495:/ locexp"); @@ -3487,20 +3703,25 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V10*/ meltfptr[8] = /*_.RETURN___V13*/ meltfptr[12];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V10*/ + meltfptr[8] = /*_.RETURN___V13*/ meltfptr[12];; MELT_LOCATION("warmelt-genobj.melt:2493:/ clear"); - /*clear*/ /*_.OBNIL__V11*/ meltfptr[4] = 0 ; + /*clear*/ /*_.OBNIL__V11*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.RETURN___V13*/ + meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2490:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-genobj.melt:2490:/ locexp"); @@ -3515,15 +3736,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.LET___V10*/ + meltfptr[8] = 0 ; } ; @@ -3605,7 +3830,8 @@ meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT fromline 1756 */ - /* classy proc frame meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT */ MeltFrame_meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT + /* classy proc frame meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT */ + MeltFrame_meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT fromline 1785*/ #if ENABLE_CHECKING @@ -3618,7 +3844,8 @@ meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_COMMENT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3628,12 +3855,14 @@ meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2501:/ getarg"); - /*_.NCOMM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NCOMM__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -3665,7 +3894,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3674,7 +3904,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2502:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3707,16 +3938,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_comment start ncomm="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCOMM__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2502:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -3729,7 +3964,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2502:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3738,9 +3974,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3770,10 +4008,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCOMM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_COMMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2503:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -3802,25 +4042,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2503; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCOMM__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2503:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2503:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3838,10 +4084,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2504:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -3870,25 +4118,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2504; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2504:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2504:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3904,7 +4158,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCOMM__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCOMM_STRING"); - /*_.COMS__V13*/ meltfptr[3] = slot; + /*_.COMS__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2506:/ getslot"); @@ -3912,15 +4167,18 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCOMM__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NLOC__V14*/ meltfptr[13] = slot; + /*_.NLOC__V14*/ + meltfptr[13] = slot; }; ; - /*_.SBUF__V15*/ meltfptr[14] = + /*_.SBUF__V15*/ + meltfptr[14] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[4])), (const char*)0);; { MELT_LOCATION("warmelt-genobj.melt:2508:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V15*/ meltfptr[14]), ( "/**!* ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V15*/ meltfptr[14]), ( "/**!* ")); } ; @@ -3933,13 +4191,15 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2510:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V15*/ meltfptr[14]), ( " *!**/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V15*/ meltfptr[14]), ( " *!**/")); } ; MELT_LOCATION("warmelt-genobj.melt:2511:/ quasiblock"); - /*_.OSTR__V17*/ meltfptr[16] = + /*_.OSTR__V17*/ + meltfptr[16] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V15*/ meltfptr[14]))));; MELT_CHECK_SIGNAL(); @@ -3952,7 +4212,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ meltfrout->tabval[6])), (4), "CLASS_OBJCOMPUTE"); - /*_.INST__V19*/ meltfptr[18] = + /*_.INST__V19*/ + meltfptr[18] = newobj; }; ; @@ -3980,7 +4241,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V19*/ meltfptr[18], "newly made instance"); ; - /*_.RES__V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; + /*_.RES__V18*/ + meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2518:/ cppif.then"); @@ -4001,7 +4263,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4010,7 +4273,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2518:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4047,16 +4311,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " res="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V20*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; + /*_._IF___V20*/ + meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2518:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = 0 ; } ; } @@ -4069,7 +4337,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2518:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4078,9 +4347,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V20*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4106,7 +4377,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2519:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V18*/ meltfptr[17];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.RES__V18*/ meltfptr[17];; { MELT_LOCATION("warmelt-genobj.melt:2519:/ locexp"); @@ -4121,32 +4393,43 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V16*/ meltfptr[15] = /*_.RETURN___V22*/ meltfptr[20];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V16*/ + meltfptr[15] = /*_.RETURN___V22*/ meltfptr[20];; MELT_LOCATION("warmelt-genobj.melt:2511:/ clear"); - /*clear*/ /*_.OSTR__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.OSTR__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.RES__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V22*/ meltfptr[20] = 0 ; - /*_.LET___V12*/ meltfptr[10] = /*_.LET___V16*/ meltfptr[15];; + /*clear*/ /*_.RETURN___V22*/ + meltfptr[20] = 0 ; + /*_.LET___V12*/ + meltfptr[10] = /*_.LET___V16*/ meltfptr[15];; MELT_LOCATION("warmelt-genobj.melt:2505:/ clear"); - /*clear*/ /*_.COMS__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.COMS__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.NLOC__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NLOC__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SBUF__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.SBUF__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V16*/ + meltfptr[15] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2501:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2501:/ locexp"); @@ -4161,15 +4444,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -4251,7 +4538,8 @@ meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC(meltclosure_ptr_t meltclosp /* end of frame for routine meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC fromline 1756 */ - /* classy proc frame meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC */ MeltFrame_meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC + /* classy proc frame meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC */ + MeltFrame_meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC fromline 1785*/ #if ENABLE_CHECKING @@ -4264,7 +4552,8 @@ meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC(meltclosure_ptr_t meltclosp #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_LOCSYMOCC", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4274,12 +4563,14 @@ meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC(meltclosure_ptr_t meltclosp /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2525:/ getarg"); - /*_.LSYO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.LSYO__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -4311,7 +4602,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4320,7 +4612,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2526:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4353,16 +4646,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_locsymocc begin lsyo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LSYO__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2526:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -4375,7 +4672,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2526:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4384,9 +4682,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4416,10 +4716,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.LSYO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2527:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -4448,25 +4750,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2527; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LSYO__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2527:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2527:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4484,10 +4792,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2528:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -4516,25 +4826,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2528; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2528:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2528:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4550,7 +4866,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LSYO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.LOC__V13*/ meltfptr[3] = slot; + /*_.LOC__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2530:/ getslot"); @@ -4558,7 +4875,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "GNCX_LOCMAP"); - /*_.LOCMAP__V14*/ meltfptr[13] = slot; + /*_.LOCMAP__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2531:/ getslot"); @@ -4566,7 +4884,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LSYO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NOCC_SYMB"); - /*_.SYM__V15*/ meltfptr[14] = slot; + /*_.SYM__V15*/ + meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2532:/ getslot"); @@ -4574,7 +4893,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LSYO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NOCC_CTYP"); - /*_.OTY__V16*/ meltfptr[15] = slot; + /*_.OTY__V16*/ + meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2533:/ getslot"); @@ -4582,10 +4902,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LSYO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NOCC_BIND"); - /*_.SBND__V17*/ meltfptr[16] = slot; + /*_.SBND__V17*/ + meltfptr[16] = slot; }; ; - /*_.OVAR__V18*/ meltfptr[17] = + /*_.OVAR__V18*/ + meltfptr[17] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.LOCMAP__V14*/ meltfptr[13]), (meltobject_ptr_t)(/*_.SBND__V17*/ meltfptr[16]));; @@ -4608,7 +4930,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4617,7 +4940,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2536:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4654,16 +4978,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ovar="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OVAR__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V19*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; + /*_._IF___V19*/ + meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2536:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ + meltfptr[19] = 0 ; } ; } @@ -4676,7 +5004,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2536:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4685,9 +5014,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V19*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4710,10 +5041,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L7*/ meltfnum[0] = + /*_#NULL__L7*/ + meltfnum[0] = (/*null*/(/*_.SBND__V17*/ meltfptr[16]) == NULL);; MELT_LOCATION("warmelt-genobj.melt:2537:/ cond"); - /*cond*/ if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4740,7 +5073,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4749,7 +5083,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2538:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4786,16 +5121,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " sym="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SYM__V15*/ meltfptr[14]; - /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V22*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; + /*_._IF___V22*/ + meltfptr[18] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2538:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = 0 ; } ; } @@ -4808,7 +5147,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2538:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4817,9 +5157,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V22*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4853,7 +5195,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYM__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OTY__V16*/ meltfptr[15]; - /*_.ERROR_AT__V24*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V24*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4867,7 +5210,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; @@ -4896,23 +5240,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2540; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LSYO__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V26*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; + /*_._IFELSE___V26*/ + meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2540:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ + meltfptr[26] = 0 ; } ; } ; - /*_.IFCPP___V25*/ meltfptr[18] = /*_._IFELSE___V26*/ meltfptr[25];; + /*_.IFCPP___V25*/ + meltfptr[18] = /*_._IFELSE___V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2540:/ clear"); - /*clear*/ /*_._IFELSE___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4923,17 +5272,22 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2537:/ quasiblock"); - /*_.PROGN___V28*/ meltfptr[26] = /*_.IFCPP___V25*/ meltfptr[18];; + /*_.PROGN___V28*/ + meltfptr[26] = /*_.IFCPP___V25*/ meltfptr[18];; /*^compute*/ - /*_._IF___V21*/ meltfptr[19] = /*_.PROGN___V28*/ meltfptr[26];; + /*_._IF___V21*/ + meltfptr[19] = /*_.PROGN___V28*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2537:/ clear"); - /*clear*/ /*_.ERROR_AT__V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.ERROR_AT__V24*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V25*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_.PROGN___V28*/ + meltfptr[26] = 0 ; } ; } @@ -4947,10 +5301,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L10*/ meltfnum[8] = + /*_#NULL__L10*/ + meltfnum[8] = (/*null*/(/*_.OVAR__V18*/ meltfptr[17]) == NULL);; MELT_LOCATION("warmelt-genobj.melt:2542:/ cond"); - /*cond*/ if (/*_#NULL__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#NULL__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4977,7 +5333,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4986,7 +5343,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2544:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5033,16 +5391,20 @@ meltlab_endgetargs: argtab[10].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[5]); /*^apply.arg*/ argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V31*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V30*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[18];; + /*_._IF___V30*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2544:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[18] = 0 ; } ; } @@ -5055,7 +5417,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2544:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5064,9 +5427,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V30*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5089,10 +5454,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#exeq__L13*/ meltfnum[11] = + /*_#exeq__L13*/ + meltfnum[11] = ((/*_.OTY__V16*/ meltfptr[15]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-genobj.melt:2548:/ cond"); - /*cond*/ if (/*_#exeq__L13*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#exeq__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5113,7 +5480,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYM__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OTY__V16*/ meltfptr[15]; - /*_.ERROR_AT__V33*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V33*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5126,10 +5494,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L14*/ meltfnum[1] = + /*_#eqeq__L14*/ + meltfnum[1] = ((/*_.OTY__V16*/ meltfptr[15]) == ((/*!CTYPE_VOID*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-genobj.melt:2550:/ cond"); - /*cond*/ if (/*_#eqeq__L14*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L14*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V35*/ meltfptr[34] = (/*nil*/NULL);; @@ -5162,25 +5532,31 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LSYO__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.LOCMAP__V14*/ meltfptr[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V36*/ + meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V35*/ meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35];; + /*_._IFELSE___V35*/ + meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2550:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ + meltfptr[35] = 0 ; } ; } ; - /*_.IFCPP___V34*/ meltfptr[22] = /*_._IFELSE___V35*/ meltfptr[34];; + /*_.IFCPP___V34*/ + meltfptr[22] = /*_._IFELSE___V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2550:/ clear"); - /*clear*/ /*_#eqeq__L14*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L14*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IFELSE___V35*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5191,17 +5567,22 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2548:/ quasiblock"); - /*_.PROGN___V37*/ meltfptr[35] = /*_.IFCPP___V34*/ meltfptr[22];; + /*_.PROGN___V37*/ + meltfptr[35] = /*_.IFCPP___V34*/ meltfptr[22];; /*^compute*/ - /*_._IF___V32*/ meltfptr[26] = /*_.PROGN___V37*/ meltfptr[35];; + /*_._IF___V32*/ + meltfptr[26] = /*_.PROGN___V37*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2548:/ clear"); - /*clear*/ /*_.ERROR_AT__V33*/ meltfptr[18] = 0 ; + /*clear*/ /*_.ERROR_AT__V33*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V34*/ meltfptr[22] = 0 ; + /*clear*/ /*_.IFCPP___V34*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_.PROGN___V37*/ + meltfptr[35] = 0 ; } ; } @@ -5214,17 +5595,22 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2543:/ quasiblock"); - /*_.PROGN___V38*/ meltfptr[34] = /*_._IF___V32*/ meltfptr[26];; + /*_.PROGN___V38*/ + meltfptr[34] = /*_._IF___V32*/ meltfptr[26];; /*^compute*/ - /*_._IFELSE___V29*/ meltfptr[25] = /*_.PROGN___V38*/ meltfptr[34];; + /*_._IFELSE___V29*/ + meltfptr[25] = /*_.PROGN___V38*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2542:/ clear"); - /*clear*/ /*_#exeq__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#exeq__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V38*/ meltfptr[34] = 0 ; + /*clear*/ /*_.PROGN___V38*/ + meltfptr[34] = 0 ; } ; } @@ -5245,10 +5631,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L15*/ meltfnum[1] = + /*_#IS_A__L15*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OVAR__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-genobj.melt:2552:/ cond"); - /*cond*/ if (/*_#IS_A__L15*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L15*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V40*/ meltfptr[22] = (/*nil*/NULL);; @@ -5277,25 +5665,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2552; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OVAR__V18*/ meltfptr[17]; - /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V41*/ + meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V40*/ meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[35];; + /*_._IFELSE___V40*/ + meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2552:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/ + meltfptr[35] = 0 ; } ; } ; - /*_.IFCPP___V39*/ meltfptr[18] = /*_._IFELSE___V40*/ meltfptr[22];; + /*_.IFCPP___V39*/ + meltfptr[18] = /*_._IFELSE___V40*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2552:/ clear"); - /*clear*/ /*_#IS_A__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V40*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IFELSE___V40*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5304,11 +5698,13 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_._IFELSE___V29*/ meltfptr[25] = /*_.IFCPP___V39*/ meltfptr[18];; + /*_._IFELSE___V29*/ + meltfptr[25] = /*_.IFCPP___V39*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2542:/ clear"); - /*clear*/ /*_.IFCPP___V39*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V39*/ + meltfptr[18] = 0 ; } ; } @@ -5333,7 +5729,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5342,7 +5739,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2553:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5379,16 +5777,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " gives ovar="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OVAR__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V43*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V42*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[34];; + /*_._IF___V42*/ + meltfptr[26] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2553:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[34] = 0 ; } ; } @@ -5401,7 +5803,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2553:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5410,9 +5813,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5438,7 +5843,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2554:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OVAR__V18*/ meltfptr[17];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OVAR__V18*/ meltfptr[17];; { MELT_LOCATION("warmelt-genobj.melt:2554:/ locexp"); @@ -5453,38 +5859,52 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V44*/ meltfptr[35];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V12*/ + meltfptr[10] = /*_.RETURN___V44*/ meltfptr[35];; MELT_LOCATION("warmelt-genobj.melt:2529:/ clear"); - /*clear*/ /*_.LOC__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LOC__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCMAP__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.LOCMAP__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.SYM__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.SYM__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.OTY__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.OTY__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.SBND__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.SBND__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.OVAR__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.OVAR__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#NULL__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V44*/ meltfptr[35] = 0 ; + /*clear*/ /*_.RETURN___V44*/ + meltfptr[35] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2525:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2525:/ locexp"); @@ -5499,15 +5919,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -5589,7 +6013,8 @@ meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC(meltclosure_ptr_t meltclosp /* end of frame for routine meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC fromline 1756 */ - /* classy proc frame meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC */ MeltFrame_meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC + /* classy proc frame meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC */ + MeltFrame_meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC fromline 1785*/ #if ENABLE_CHECKING @@ -5602,7 +6027,8 @@ meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC(meltclosure_ptr_t meltclosp #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_CLOSEDOCC", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5612,12 +6038,14 @@ meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC(meltclosure_ptr_t meltclosp /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2559:/ getarg"); - /*_.NCLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NCLO__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -5649,7 +6077,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5658,7 +6087,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2560:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5691,16 +6121,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_closedocc nclo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCLO__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2560:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -5713,7 +6147,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2560:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5722,9 +6157,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5754,10 +6191,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCLO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CLOSEDOCC*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2561:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -5786,25 +6225,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2561; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCLO__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2561:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2561:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5822,10 +6267,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2562:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -5854,25 +6301,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2562; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2562:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2562:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5888,7 +6341,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "GNCX_OBJROUT"); - /*_.OROUT__V13*/ meltfptr[3] = slot; + /*_.OROUT__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2565:/ getslot"); @@ -5896,7 +6350,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NOCC_SYMB"); - /*_.OSYM__V14*/ meltfptr[13] = slot; + /*_.OSYM__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2566:/ getslot"); @@ -5904,7 +6359,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NOCC_BIND"); - /*_.OBIND__V15*/ meltfptr[14] = slot; + /*_.OBIND__V15*/ + meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2567:/ getslot"); @@ -5912,20 +6368,24 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NCLOC_PROCS"); - /*_.CPROCS__V16*/ meltfptr[15] = slot; + /*_.CPROCS__V16*/ + meltfptr[15] = slot; }; ; - /*_.LIST_LAST__V17*/ meltfptr[16] = + /*_.LIST_LAST__V17*/ + meltfptr[16] = (melt_list_last((melt_ptr_t)(/*_.CPROCS__V16*/ meltfptr[15])));; /*^compute*/ - /*_.LASTCPROC__V18*/ meltfptr[17] = + /*_.LASTCPROC__V18*/ + meltfptr[17] = (melt_pair_head((melt_ptr_t)(/*_.LIST_LAST__V17*/ meltfptr[16])));; MELT_LOCATION("warmelt-genobj.melt:2569:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NLOC__V19*/ meltfptr[18] = slot; + /*_.NLOC__V19*/ + meltfptr[18] = slot; }; ; @@ -5938,10 +6398,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.LASTCPROC__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:2571:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; @@ -5970,25 +6432,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2571; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LASTCPROC__V18*/ meltfptr[17]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ + meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2571:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[19] = /*_._IFELSE___V21*/ meltfptr[20];; + /*_.IFCPP___V20*/ + meltfptr[19] = /*_._IFELSE___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2571:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6000,7 +6468,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LASTCPROC__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -6011,7 +6480,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTCPROC__V18*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NRCLOP_CLOBINDLIST"); - /*_.CLOBLIS__V24*/ meltfptr[20] = slot; + /*_.CLOBLIS__V24*/ + meltfptr[20] = slot; }; ; } @@ -6022,7 +6492,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#CLORANK__L6*/ meltfnum[0] = -1;; + /*_#CLORANK__L6*/ + meltfnum[0] = -1;; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2575:/ cppif.then"); @@ -6033,10 +6504,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L7*/ meltfnum[1] = + /*_#IS_LIST__L7*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CLOBLIS__V24*/ meltfptr[20])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-genobj.melt:2575:/ cond"); - /*cond*/ if (/*_#IS_LIST__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; @@ -6065,25 +6538,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2575; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLOBLIS__V24*/ meltfptr[20]; - /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V26*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; + /*_._IFELSE___V26*/ + meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2575:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ + meltfptr[26] = 0 ; } ; } ; - /*_.IFCPP___V25*/ meltfptr[24] = /*_._IFELSE___V26*/ meltfptr[25];; + /*_.IFCPP___V25*/ + meltfptr[24] = /*_._IFELSE___V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2575:/ clear"); - /*clear*/ /*_#IS_LIST__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6094,10 +6573,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2576:/ quasiblock"); - /*_.CURPAIR__V29*/ meltfptr[25] = + /*_.CURPAIR__V29*/ + meltfptr[25] = (melt_list_first((melt_ptr_t)(/*_.CLOBLIS__V24*/ meltfptr[20])));; /*^compute*/ - /*_#CURANK__L8*/ meltfnum[1] = 0;; + /*_#CURANK__L8*/ + meltfnum[1] = 0;; MELT_LOCATION("warmelt-genobj.melt:2579:/ loop"); /*loop*/ { @@ -6113,13 +6594,16 @@ meltlabloop_LOOPLIS_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_PAIR__L9*/ meltfnum[8] = + /*_#IS_PAIR__L9*/ + meltfnum[8] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V29*/ meltfptr[25])) == MELTOBMAG_PAIR);; /*^compute*/ - /*_#NOT__L10*/ meltfnum[9] = + /*_#NOT__L10*/ + meltfnum[9] = (!(/*_#IS_PAIR__L9*/ meltfnum[8]));; MELT_LOCATION("warmelt-genobj.melt:2581:/ cond"); - /*cond*/ if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6146,16 +6630,19 @@ meltlabloop_LOOPLIS_1:;/*^loopbody*/ MELT_LOCATION("warmelt-genobj.melt:2582:/ quasiblock"); - /*_.CURBIND__V32*/ meltfptr[31] = + /*_.CURBIND__V32*/ + meltfptr[31] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V29*/ meltfptr[25])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L12*/ meltfnum[11] = + /*_#eqeq__L12*/ + meltfnum[11] = ((/*_.CURBIND__V32*/ meltfptr[31]) == (/*_.OBIND__V15*/ meltfptr[14]));; MELT_LOCATION("warmelt-genobj.melt:2583:/ cond"); - /*cond*/ if (/*_#eqeq__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#eqeq__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6163,12 +6650,14 @@ meltlabloop_LOOPLIS_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-genobj.melt:2585:/ compute"); - /*_#CLORANK__L6*/ meltfnum[0] = /*_#SETQ___L13*/ meltfnum[12] = /*_#CURANK__L8*/ meltfnum[1];; + /*_#CLORANK__L6*/ + meltfnum[0] = /*_#SETQ___L13*/ meltfnum[12] = /*_#CURANK__L8*/ meltfnum[1];; MELT_LOCATION("warmelt-genobj.melt:2586:/ quasiblock"); /*^compute*/ - /*_.LOOPLIS__V31*/ meltfptr[30] = /*reallynil*/ NULL ;; + /*_.LOOPLIS__V31*/ + meltfptr[30] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -6182,51 +6671,67 @@ meltlabloop_LOOPLIS_1:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2583:/ clear"); - /*clear*/ /*_#SETQ___L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#SETQ___L13*/ + meltfnum[12] = 0 ; } ; } /*noelse*/ ; - /*_.PAIR_TAIL__V33*/ meltfptr[32] = + /*_.PAIR_TAIL__V33*/ + meltfptr[32] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V29*/ meltfptr[25])));; MELT_LOCATION("warmelt-genobj.melt:2587:/ compute"); - /*_.CURPAIR__V29*/ meltfptr[25] = /*_.SETQ___V34*/ meltfptr[33] = /*_.PAIR_TAIL__V33*/ meltfptr[32];; - /*_#plI__L14*/ meltfnum[12] = + /*_.CURPAIR__V29*/ + meltfptr[25] = /*_.SETQ___V34*/ meltfptr[33] = /*_.PAIR_TAIL__V33*/ meltfptr[32];; + /*_#plI__L14*/ + meltfnum[12] = ((/*_#CURANK__L8*/ meltfnum[1]) + (1));; MELT_LOCATION("warmelt-genobj.melt:2588:/ compute"); - /*_#CURANK__L8*/ meltfnum[1] = /*_#SETQ___L15*/ meltfnum[14] = /*_#plI__L14*/ meltfnum[12];; - /*_#LET___L11*/ meltfnum[10] = /*_#SETQ___L15*/ meltfnum[14];; + /*_#CURANK__L8*/ + meltfnum[1] = /*_#SETQ___L15*/ meltfnum[14] = /*_#plI__L14*/ meltfnum[12];; + /*_#LET___L11*/ + meltfnum[10] = /*_#SETQ___L15*/ meltfnum[14];; MELT_LOCATION("warmelt-genobj.melt:2582:/ clear"); - /*clear*/ /*_.CURBIND__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.CURBIND__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#eqeq__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.SETQ___V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#plI__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#SETQ___L15*/ + meltfnum[14] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2579:/ clear"); - /*clear*/ /*_#IS_PAIR__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_PAIR__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#NOT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#LET___L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#LET___L11*/ + meltfnum[10] = 0 ; } ; ; goto meltlabloop_LOOPLIS_1; meltlabexit_LOOPLIS_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V30*/ meltfptr[29] = /*_.LOOPLIS__V31*/ meltfptr[30];; + /*_.FOREVER___V30*/ + meltfptr[29] = /*_.LOOPLIS__V31*/ meltfptr[30];; } ; @@ -6239,10 +6744,12 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#gteqI__L16*/ meltfnum[11] = + /*_#gteqI__L16*/ + meltfnum[11] = ((/*_#CLORANK__L6*/ meltfnum[0]) >= (0));; MELT_LOCATION("warmelt-genobj.melt:2590:/ cond"); - /*cond*/ if (/*_#gteqI__L16*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#gteqI__L16*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V36*/ meltfptr[32] = (/*nil*/NULL);; @@ -6271,25 +6778,31 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ argtab[2].meltbp_long = 2590; /*^apply.arg*/ argtab[3].meltbp_long = /*_#CLORANK__L6*/ meltfnum[0]; - /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V37*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V36*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[33];; + /*_._IFELSE___V36*/ + meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2590:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ + meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V35*/ meltfptr[31] = /*_._IFELSE___V36*/ meltfptr[32];; + /*_.IFCPP___V35*/ + meltfptr[31] = /*_._IFELSE___V36*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2590:/ clear"); - /*clear*/ /*_#gteqI__L16*/ meltfnum[11] = 0 ; + /*clear*/ /*_#gteqI__L16*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V36*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V36*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6305,20 +6818,23 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCLO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NOCC_CTYP"); - /*_.NCLOTYP__V39*/ meltfptr[32] = slot; + /*_.NCLOTYP__V39*/ + meltfptr[32] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_INTEGERBOX__V40*/ meltfptr[39] = + /*_.MAKE_INTEGERBOX__V40*/ + meltfptr[39] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[7])), (/*_#CLORANK__L6*/ meltfnum[0])));; MELT_LOCATION("warmelt-genobj.melt:2599:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OSYM__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V41*/ meltfptr[40] = slot; + /*_.NAMED_NAME__V41*/ + meltfptr[40] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2594:/ quasiblock"); @@ -6329,7 +6845,8 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLOCCV*/ meltfrout->tabval[6])), (4), "CLASS_OBJCLOCCV"); - /*_.INST__V43*/ meltfptr[42] = + /*_.INST__V43*/ + meltfptr[42] = newobj; }; ; @@ -6357,7 +6874,8 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V43*/ meltfptr[42], "newly made instance"); ; - /*_.OCLOCCV__V42*/ meltfptr[41] = /*_.INST__V43*/ meltfptr[42];; + /*_.OCLOCCV__V42*/ + meltfptr[41] = /*_.INST__V43*/ meltfptr[42];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2601:/ cppif.then"); @@ -6368,10 +6886,12 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L17*/ meltfnum[12] = + /*_#IS_A__L17*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.NCLOTYP__V39*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-genobj.melt:2601:/ cond"); - /*cond*/ if (/*_#IS_A__L17*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L17*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V45*/ meltfptr[44] = (/*nil*/NULL);; @@ -6400,25 +6920,31 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ argtab[2].meltbp_long = 2601; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCLOTYP__V39*/ meltfptr[32]; - /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V46*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V45*/ meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; + /*_._IFELSE___V45*/ + meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2601:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ + meltfptr[45] = 0 ; } ; } ; - /*_.IFCPP___V44*/ meltfptr[43] = /*_._IFELSE___V45*/ meltfptr[44];; + /*_.IFCPP___V44*/ + meltfptr[43] = /*_._IFELSE___V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2601:/ clear"); - /*clear*/ /*_#IS_A__L17*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L17*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IFELSE___V45*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6446,7 +6972,8 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[14] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6455,7 +6982,8 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2602:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6488,16 +7016,20 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ argtab[3].meltbp_cstring = "compilobj closedocc result ocloccv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCLOCCV__V42*/ meltfptr[41]; - /*_.MELT_DEBUG_FUN__V48*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V48*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V47*/ meltfptr[45] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[44];; + /*_._IF___V47*/ + meltfptr[45] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2602:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ + meltfptr[44] = 0 ; } ; } @@ -6510,7 +7042,8 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2602:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6519,9 +7052,11 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V47*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V47*/ + meltfptr[45] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6541,67 +7076,95 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V38*/ meltfptr[33] = /*_.OCLOCCV__V42*/ meltfptr[41];; + /*_.LET___V38*/ + meltfptr[33] = /*_.OCLOCCV__V42*/ meltfptr[41];; MELT_LOCATION("warmelt-genobj.melt:2591:/ clear"); - /*clear*/ /*_.NCLOTYP__V39*/ meltfptr[32] = 0 ; + /*clear*/ /*_.NCLOTYP__V39*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.NAMED_NAME__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.OCLOCCV__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.OCLOCCV__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V44*/ meltfptr[43] = 0 ; - /*_.LET___V28*/ meltfptr[26] = /*_.LET___V38*/ meltfptr[33];; + /*clear*/ /*_.IFCPP___V44*/ + meltfptr[43] = 0 ; + /*_.LET___V28*/ + meltfptr[26] = /*_.LET___V38*/ meltfptr[33];; MELT_LOCATION("warmelt-genobj.melt:2576:/ clear"); - /*clear*/ /*_.CURPAIR__V29*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CURPAIR__V29*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_#CURANK__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#CURANK__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.FOREVER___V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V35*/ meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V35*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V38*/ meltfptr[33] = 0 ; - /*_.LET___V23*/ meltfptr[21] = /*_.LET___V28*/ meltfptr[26];; + /*clear*/ /*_.LET___V38*/ + meltfptr[33] = 0 ; + /*_.LET___V23*/ + meltfptr[21] = /*_.LET___V28*/ meltfptr[26];; MELT_LOCATION("warmelt-genobj.melt:2572:/ clear"); - /*clear*/ /*_.CLOBLIS__V24*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CLOBLIS__V24*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#CLORANK__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#CLORANK__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.IFCPP___V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V28*/ meltfptr[26] = 0 ; - /*_.LET___V12*/ meltfptr[10] = /*_.LET___V23*/ meltfptr[21];; + /*clear*/ /*_.LET___V28*/ + meltfptr[26] = 0 ; + /*_.LET___V12*/ + meltfptr[10] = /*_.LET___V23*/ meltfptr[21];; MELT_LOCATION("warmelt-genobj.melt:2563:/ clear"); - /*clear*/ /*_.OROUT__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.OROUT__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.OSYM__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.OSYM__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.OBIND__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.OBIND__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.CPROCS__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CPROCS__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_LAST__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.LIST_LAST__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LASTCPROC__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.LASTCPROC__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.NLOC__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.NLOC__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.LET___V23*/ + meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2559:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2559:/ locexp"); @@ -6616,15 +7179,19 @@ meltlabexit_LOOPLIS_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -6706,7 +7273,8 @@ meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC fromline 1756 */ - /* classy proc frame meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC */ MeltFrame_meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC + /* classy proc frame meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC */ + MeltFrame_meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC fromline 1785*/ #if ENABLE_CHECKING @@ -6719,7 +7287,8 @@ meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_CONSTOCC", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -6729,12 +7298,14 @@ meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC(meltclosure_ptr_t meltclosp_ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2609:/ getarg"); - /*_.NCNST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NCNST__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -6766,7 +7337,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6775,7 +7347,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2610:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6808,16 +7381,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_constocc ncnst="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCNST__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2610:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -6830,7 +7407,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2610:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6839,9 +7417,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6871,10 +7451,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCNST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2611:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -6903,25 +7485,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2611; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCNST__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2611:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2611:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6939,10 +7527,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2612:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -6971,25 +7561,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2612; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2612:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2612:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7005,7 +7601,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "GNCX_OBJROUT"); - /*_.OROUT__V13*/ meltfptr[3] = slot; + /*_.OROUT__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2615:/ getslot"); @@ -7013,7 +7610,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCNST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NOCC_SYMB"); - /*_.OSYM__V14*/ meltfptr[13] = slot; + /*_.OSYM__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2616:/ getslot"); @@ -7021,20 +7619,24 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCNST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NCLOC_PROCS"); - /*_.CPROCS__V15*/ meltfptr[14] = slot; + /*_.CPROCS__V15*/ + meltfptr[14] = slot; }; ; - /*_.LIST_LAST__V16*/ meltfptr[15] = + /*_.LIST_LAST__V16*/ + meltfptr[15] = (melt_list_last((melt_ptr_t)(/*_.CPROCS__V15*/ meltfptr[14])));; /*^compute*/ - /*_.LASTCPROC__V17*/ meltfptr[16] = + /*_.LASTCPROC__V17*/ + meltfptr[16] = (melt_pair_head((melt_ptr_t)(/*_.LIST_LAST__V16*/ meltfptr[15])));; MELT_LOCATION("warmelt-genobj.melt:2618:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCNST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NLOC__V18*/ meltfptr[17] = slot; + /*_.NLOC__V18*/ + meltfptr[17] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2619:/ getslot"); @@ -7042,7 +7644,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCNST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NOCC_CTYP"); - /*_.CNSTYP__V19*/ meltfptr[18] = slot; + /*_.CNSTYP__V19*/ + meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2620:/ getslot"); @@ -7050,7 +7653,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCNST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NOCC_BIND"); - /*_.NBIND__V20*/ meltfptr[19] = slot; + /*_.NBIND__V20*/ + meltfptr[19] = slot; }; ; @@ -7073,7 +7677,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7082,7 +7687,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2622:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7129,16 +7735,20 @@ meltlab_endgetargs: argtab[10].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[4]); /*^apply.arg*/ argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; + /*_._IF___V21*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2622:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = 0 ; } ; } @@ -7151,7 +7761,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2622:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7160,9 +7771,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7203,10 +7816,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[0] = + /*_#IS_A__L7*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.LASTCPROC__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:2625:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[20] = (/*nil*/NULL);; @@ -7237,25 +7852,31 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LASTCPROC__V17*/ meltfptr[16]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCNST__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V24*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ + meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2625:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + meltfptr[24] = 0 ; } ; } ; - /*_.IFCPP___V23*/ meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; + /*_.IFCPP___V23*/ + meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2625:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7273,10 +7894,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L8*/ meltfnum[1] = + /*_#eqeq__L8*/ + meltfnum[1] = ((/*_.CNSTYP__V19*/ meltfptr[18]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-genobj.melt:2626:/ cond"); - /*cond*/ if (/*_#eqeq__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V27*/ meltfptr[20] = (/*nil*/NULL);; @@ -7307,25 +7930,31 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CNSTYP__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCNST__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V28*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V27*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; + /*_._IFELSE___V27*/ + meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2626:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ + meltfptr[27] = 0 ; } ; } ; - /*_.IFCPP___V26*/ meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[20];; + /*_.IFCPP___V26*/ + meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2626:/ clear"); - /*clear*/ /*_#eqeq__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7337,10 +7966,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L9*/ meltfnum[0] = + /*_#IS_A__L9*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.LASTCPROC__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-genobj.melt:2629:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7351,7 +7982,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LASTCPROC__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[8]))) ) /*then*/ @@ -7362,7 +7994,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTCPROC__V17*/ meltfptr[16]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); - /*_.CNSTLIS__V31*/ meltfptr[30] = slot; + /*_.CNSTLIS__V31*/ + meltfptr[30] = slot; }; ; } @@ -7373,7 +8006,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#CNSTRANK__L10*/ meltfnum[1] = -1;; + /*_#CNSTRANK__L10*/ + meltfnum[1] = -1;; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2633:/ cppif.then"); @@ -7384,10 +8018,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L11*/ meltfnum[10] = + /*_#IS_LIST__L11*/ + meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.CNSTLIS__V31*/ meltfptr[30])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-genobj.melt:2633:/ cond"); - /*cond*/ if (/*_#IS_LIST__L11*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);; @@ -7416,25 +8052,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2633; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CNSTLIS__V31*/ meltfptr[30]; - /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V34*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V33*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; + /*_._IFELSE___V33*/ + meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2633:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ + meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V32*/ meltfptr[31] = /*_._IFELSE___V33*/ meltfptr[32];; + /*_.IFCPP___V32*/ + meltfptr[31] = /*_._IFELSE___V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2633:/ clear"); - /*clear*/ /*_#IS_LIST__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_LIST__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7445,10 +8087,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2634:/ quasiblock"); - /*_.CURPAIR__V36*/ meltfptr[32] = + /*_.CURPAIR__V36*/ + meltfptr[32] = (melt_list_first((melt_ptr_t)(/*_.CNSTLIS__V31*/ meltfptr[30])));; /*^compute*/ - /*_#CURANK__L12*/ meltfnum[10] = 0;; + /*_#CURANK__L12*/ + meltfnum[10] = 0;; MELT_LOCATION("warmelt-genobj.melt:2637:/ loop"); /*loop*/ { @@ -7464,13 +8108,16 @@ meltlabloop_LOOPLIS_2:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_PAIR__L13*/ meltfnum[12] = + /*_#IS_PAIR__L13*/ + meltfnum[12] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V36*/ meltfptr[32])) == MELTOBMAG_PAIR);; /*^compute*/ - /*_#NOT__L14*/ meltfnum[13] = + /*_#NOT__L14*/ + meltfnum[13] = (!(/*_#IS_PAIR__L13*/ meltfnum[12]));; MELT_LOCATION("warmelt-genobj.melt:2639:/ cond"); - /*cond*/ if (/*_#NOT__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#NOT__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7497,16 +8144,19 @@ meltlabloop_LOOPLIS_2:;/*^loopbody*/ MELT_LOCATION("warmelt-genobj.melt:2640:/ quasiblock"); - /*_.CURELEM__V39*/ meltfptr[38] = + /*_.CURELEM__V39*/ + meltfptr[38] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V36*/ meltfptr[32])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L16*/ meltfnum[15] = + /*_#eqeq__L16*/ + meltfnum[15] = ((/*_.CURELEM__V39*/ meltfptr[38]) == (/*_.NCNST__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-genobj.melt:2641:/ cond"); - /*cond*/ if (/*_#eqeq__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#eqeq__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7514,12 +8164,14 @@ meltlabloop_LOOPLIS_2:;/*^loopbody*/ { MELT_LOCATION("warmelt-genobj.melt:2643:/ compute"); - /*_#CNSTRANK__L10*/ meltfnum[1] = /*_#SETQ___L17*/ meltfnum[16] = /*_#CURANK__L12*/ meltfnum[10];; + /*_#CNSTRANK__L10*/ + meltfnum[1] = /*_#SETQ___L17*/ meltfnum[16] = /*_#CURANK__L12*/ meltfnum[10];; MELT_LOCATION("warmelt-genobj.melt:2644:/ quasiblock"); /*^compute*/ - /*_.LOOPLIS__V38*/ meltfptr[37] = /*reallynil*/ NULL ;; + /*_.LOOPLIS__V38*/ + meltfptr[37] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -7533,51 +8185,67 @@ meltlabloop_LOOPLIS_2:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2641:/ clear"); - /*clear*/ /*_#SETQ___L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#SETQ___L17*/ + meltfnum[16] = 0 ; } ; } /*noelse*/ ; - /*_.PAIR_TAIL__V40*/ meltfptr[39] = + /*_.PAIR_TAIL__V40*/ + meltfptr[39] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V36*/ meltfptr[32])));; MELT_LOCATION("warmelt-genobj.melt:2645:/ compute"); - /*_.CURPAIR__V36*/ meltfptr[32] = /*_.SETQ___V41*/ meltfptr[40] = /*_.PAIR_TAIL__V40*/ meltfptr[39];; - /*_#plI__L18*/ meltfnum[16] = + /*_.CURPAIR__V36*/ + meltfptr[32] = /*_.SETQ___V41*/ meltfptr[40] = /*_.PAIR_TAIL__V40*/ meltfptr[39];; + /*_#plI__L18*/ + meltfnum[16] = ((/*_#CURANK__L12*/ meltfnum[10]) + (1));; MELT_LOCATION("warmelt-genobj.melt:2646:/ compute"); - /*_#CURANK__L12*/ meltfnum[10] = /*_#SETQ___L19*/ meltfnum[18] = /*_#plI__L18*/ meltfnum[16];; - /*_#LET___L15*/ meltfnum[14] = /*_#SETQ___L19*/ meltfnum[18];; + /*_#CURANK__L12*/ + meltfnum[10] = /*_#SETQ___L19*/ meltfnum[18] = /*_#plI__L18*/ meltfnum[16];; + /*_#LET___L15*/ + meltfnum[14] = /*_#SETQ___L19*/ meltfnum[18];; MELT_LOCATION("warmelt-genobj.melt:2640:/ clear"); - /*clear*/ /*_.CURELEM__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.CURELEM__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#eqeq__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.SETQ___V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#plI__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#SETQ___L19*/ + meltfnum[18] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2637:/ clear"); - /*clear*/ /*_#IS_PAIR__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_PAIR__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#NOT__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#LET___L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#LET___L15*/ + meltfnum[14] = 0 ; } ; ; goto meltlabloop_LOOPLIS_2; meltlabexit_LOOPLIS_2:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V37*/ meltfptr[36] = /*_.LOOPLIS__V38*/ meltfptr[37];; + /*_.FOREVER___V37*/ + meltfptr[36] = /*_.LOOPLIS__V38*/ meltfptr[37];; } ; @@ -7590,10 +8258,12 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#gteqI__L20*/ meltfnum[15] = + /*_#gteqI__L20*/ + meltfnum[15] = ((/*_#CNSTRANK__L10*/ meltfnum[1]) >= (0));; MELT_LOCATION("warmelt-genobj.melt:2648:/ cond"); - /*cond*/ if (/*_#gteqI__L20*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#gteqI__L20*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V43*/ meltfptr[39] = (/*nil*/NULL);; @@ -7622,25 +8292,31 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ argtab[2].meltbp_long = 2648; /*^apply.arg*/ argtab[3].meltbp_long = /*_#CNSTRANK__L10*/ meltfnum[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V44*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V43*/ meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[40];; + /*_._IFELSE___V43*/ + meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2648:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V44*/ + meltfptr[40] = 0 ; } ; } ; - /*_.IFCPP___V42*/ meltfptr[38] = /*_._IFELSE___V43*/ meltfptr[39];; + /*_.IFCPP___V42*/ + meltfptr[38] = /*_._IFELSE___V43*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2648:/ clear"); - /*clear*/ /*_#gteqI__L20*/ meltfnum[15] = 0 ; + /*clear*/ /*_#gteqI__L20*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V43*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IFELSE___V43*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7654,14 +8330,16 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_.BOX__V46*/ meltfptr[39] = + /*_.BOX__V46*/ + meltfptr[39] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#CNSTRANK__L10*/ meltfnum[1]));; MELT_LOCATION("warmelt-genobj.melt:2655:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OSYM__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V47*/ meltfptr[46] = slot; + /*_.NAMED_NAME__V47*/ + meltfptr[46] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2651:/ quasiblock"); @@ -7672,7 +8350,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCONSTV*/ meltfrout->tabval[9])), (4), "CLASS_OBJCONSTV"); - /*_.INST__V49*/ meltfptr[48] = + /*_.INST__V49*/ + meltfptr[48] = newobj; }; ; @@ -7700,7 +8379,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V49*/ meltfptr[48], "newly made instance"); ; - /*_.OCONSTV__V48*/ meltfptr[47] = /*_.INST__V49*/ meltfptr[48];; + /*_.OCONSTV__V48*/ + meltfptr[47] = /*_.INST__V49*/ meltfptr[48];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2656:/ cppif.then"); @@ -7721,7 +8401,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7730,7 +8411,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2656:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7767,16 +8449,20 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ argtab[5].meltbp_cstring = ";\n.. from ncnst="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCNST__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V51*/ + meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V50*/ meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; + /*_._IF___V50*/ + meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2656:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ + meltfptr[50] = 0 ; } ; } @@ -7789,7 +8475,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2656:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7798,9 +8485,11 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_._IF___V50*/ + meltfptr[49] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7826,7 +8515,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_LOCATION("warmelt-genobj.melt:2657:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OCONSTV__V48*/ meltfptr[47];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OCONSTV__V48*/ meltfptr[47];; { MELT_LOCATION("warmelt-genobj.melt:2657:/ locexp"); @@ -7841,44 +8531,63 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V45*/ meltfptr[40] = /*_.RETURN___V52*/ meltfptr[50];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V45*/ + meltfptr[40] = /*_.RETURN___V52*/ meltfptr[50];; MELT_LOCATION("warmelt-genobj.melt:2649:/ clear"); - /*clear*/ /*_.BOX__V46*/ meltfptr[39] = 0 ; + /*clear*/ /*_.BOX__V46*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.NAMED_NAME__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.OCONSTV__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.OCONSTV__V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V52*/ meltfptr[50] = 0 ; - /*_.LET___V35*/ meltfptr[33] = /*_.LET___V45*/ meltfptr[40];; + /*clear*/ /*_.RETURN___V52*/ + meltfptr[50] = 0 ; + /*_.LET___V35*/ + meltfptr[33] = /*_.LET___V45*/ meltfptr[40];; MELT_LOCATION("warmelt-genobj.melt:2634:/ clear"); - /*clear*/ /*_.CURPAIR__V36*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CURPAIR__V36*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_#CURANK__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#CURANK__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.FOREVER___V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V42*/ meltfptr[38] = 0 ; + /*clear*/ /*_.IFCPP___V42*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V45*/ meltfptr[40] = 0 ; - /*_.LET___V30*/ meltfptr[20] = /*_.LET___V35*/ meltfptr[33];; + /*clear*/ /*_.LET___V45*/ + meltfptr[40] = 0 ; + /*_.LET___V30*/ + meltfptr[20] = /*_.LET___V35*/ meltfptr[33];; MELT_LOCATION("warmelt-genobj.melt:2630:/ clear"); - /*clear*/ /*_.CNSTLIS__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CNSTLIS__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#CNSTRANK__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#CNSTRANK__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V35*/ meltfptr[33] = 0 ; - /*_._IFELSE___V29*/ meltfptr[27] = /*_.LET___V30*/ meltfptr[20];; + /*clear*/ /*_.LET___V35*/ + meltfptr[33] = 0 ; + /*_._IFELSE___V29*/ + meltfptr[27] = /*_.LET___V30*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2629:/ clear"); - /*clear*/ /*_.LET___V30*/ meltfptr[20] = 0 ; + /*clear*/ /*_.LET___V30*/ + meltfptr[20] = 0 ; } ; } @@ -7892,10 +8601,12 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L23*/ meltfnum[12] = + /*_#IS_A__L23*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.LASTCPROC__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-genobj.melt:2660:/ cond"); - /*cond*/ if (/*_#IS_A__L23*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L23*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7905,11 +8616,14 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_LOCATION("warmelt-genobj.melt:2661:/ quasiblock"); - /*_#OFFHK__L24*/ meltfnum[13] = -1;; + /*_#OFFHK__L24*/ + meltfnum[13] = -1;; /*^compute*/ - /*_#COUNT__L25*/ meltfnum[14] = 0;; + /*_#COUNT__L25*/ + meltfnum[14] = 0;; MELT_LOCATION("warmelt-genobj.melt:2663:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LASTCPROC__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[8]))) ) /*then*/ @@ -7920,7 +8634,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LASTCPROC__V17*/ meltfptr[16]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NRCLOP_CLOBINDLIST"); - /*_.HCLOBINDLIST__V55*/ meltfptr[46] = slot; + /*_.HCLOBINDLIST__V55*/ + meltfptr[46] = slot; }; ; } @@ -7950,7 +8665,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7959,7 +8675,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2665:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7992,16 +8709,20 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "compilobj_nrep_constocc hook hclobindlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HCLOBINDLIST__V55*/ meltfptr[46]; - /*_.MELT_DEBUG_FUN__V57*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V57*/ + meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V56*/ meltfptr[47] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[50];; + /*_._IF___V56*/ + meltfptr[47] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2665:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V57*/ + meltfptr[50] = 0 ; } ; } @@ -8014,7 +8735,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2665:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8023,9 +8745,11 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V56*/ meltfptr[47] = 0 ; + /*clear*/ /*_._IF___V56*/ + meltfptr[47] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8065,10 +8789,12 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L28*/ meltfnum[16] = + /*_#IS_A__L28*/ + meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V59*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-genobj.melt:2669:/ cond"); - /*cond*/ if (/*_#IS_A__L28*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_A__L28*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V61*/ meltfptr[40] = (/*nil*/NULL);; @@ -8097,25 +8823,31 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ argtab[2].meltbp_long = 2669; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURBIND__V59*/ meltfptr[36]; - /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V62*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V61*/ meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[30];; + /*_._IFELSE___V61*/ + meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2669:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V62*/ + meltfptr[30] = 0 ; } ; } ; - /*_.IFCPP___V60*/ meltfptr[38] = /*_._IFELSE___V61*/ meltfptr[40];; + /*_.IFCPP___V60*/ + meltfptr[38] = /*_._IFELSE___V61*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2669:/ clear"); - /*clear*/ /*_#IS_A__L28*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L28*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V61*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V61*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8127,7 +8859,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V59*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[11]))) ) /*then*/ @@ -8138,7 +8871,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURBIND__V59*/ meltfptr[36]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.CURSYM__V63*/ meltfptr[31] = slot; + /*_.CURSYM__V63*/ + meltfptr[31] = slot; }; ; } @@ -8152,10 +8886,12 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L30*/ meltfnum[1] = + /*_#eqeq__L30*/ + meltfnum[1] = ((/*_.CURSYM__V63*/ meltfptr[31]) == (/*_.OSYM__V14*/ meltfptr[13]));; MELT_LOCATION("warmelt-genobj.melt:2672:/ cond"); - /*cond*/ if (/*_#eqeq__L30*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#eqeq__L30*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8163,23 +8899,30 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2673:/ compute"); - /*_.CURPAIR__V58*/ meltfptr[32] = /*_.SETQ___V64*/ meltfptr[33] = (/*nil*/NULL);; + /*_.CURPAIR__V58*/ + meltfptr[32] = /*_.SETQ___V64*/ meltfptr[33] = (/*nil*/NULL);; MELT_LOCATION("warmelt-genobj.melt:2674:/ compute"); - /*_#OFFHK__L24*/ meltfnum[13] = /*_#SETQ___L32*/ meltfnum[15] = /*_#COUNT__L25*/ meltfnum[14];; + /*_#OFFHK__L24*/ + meltfnum[13] = /*_#SETQ___L32*/ meltfnum[15] = /*_#COUNT__L25*/ meltfnum[14];; MELT_LOCATION("warmelt-genobj.melt:2672:/ quasiblock"); - /*_#PROGN___L33*/ meltfnum[16] = /*_#SETQ___L32*/ meltfnum[15];; + /*_#PROGN___L33*/ + meltfnum[16] = /*_#SETQ___L32*/ meltfnum[15];; /*^compute*/ - /*_#_IF___L31*/ meltfnum[18] = /*_#PROGN___L33*/ meltfnum[16];; + /*_#_IF___L31*/ + meltfnum[18] = /*_#PROGN___L33*/ meltfnum[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2672:/ clear"); - /*clear*/ /*_.SETQ___V64*/ meltfptr[33] = 0 ; + /*clear*/ /*_.SETQ___V64*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L32*/ meltfnum[15] = 0 ; + /*clear*/ /*_#SETQ___L32*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_#PROGN___L33*/ meltfnum[16] = 0 ; + /*clear*/ /*_#PROGN___L33*/ + meltfnum[16] = 0 ; } ; } @@ -8190,37 +8933,50 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ } ; /*^compute*/ - /*_#plI__L34*/ meltfnum[15] = + /*_#plI__L34*/ + meltfnum[15] = ((/*_#COUNT__L25*/ meltfnum[14]) + (1));; MELT_LOCATION("warmelt-genobj.melt:2675:/ compute"); - /*_#COUNT__L25*/ meltfnum[14] = /*_#SETQ___L35*/ meltfnum[16] = /*_#plI__L34*/ meltfnum[15];; - /*_#LET___L29*/ meltfnum[10] = /*_#SETQ___L35*/ meltfnum[16];; + /*_#COUNT__L25*/ + meltfnum[14] = /*_#SETQ___L35*/ meltfnum[16] = /*_#plI__L34*/ meltfnum[15];; + /*_#LET___L29*/ + meltfnum[10] = /*_#SETQ___L35*/ meltfnum[16];; MELT_LOCATION("warmelt-genobj.melt:2670:/ clear"); - /*clear*/ /*_.CURSYM__V63*/ meltfptr[31] = 0 ; + /*clear*/ /*_.CURSYM__V63*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L30*/ meltfnum[1] = 0 ; + /*clear*/ /*_#eqeq__L30*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L31*/ meltfnum[18] = 0 ; + /*clear*/ /*_#_IF___L31*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L34*/ meltfnum[15] = 0 ; + /*clear*/ /*_#plI__L34*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L35*/ meltfnum[16] = 0 ; + /*clear*/ /*_#SETQ___L35*/ + meltfnum[16] = 0 ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V58*/ meltfptr[32] = NULL; - /*_.CURBIND__V59*/ meltfptr[36] = NULL; + /*_.CURBIND__V59*/ + meltfptr[36] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:2666:/ clear"); - /*clear*/ /*_.CURPAIR__V58*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CURPAIR__V58*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CURBIND__V59*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CURBIND__V59*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V60*/ meltfptr[38] = 0 ; + /*clear*/ /*_.IFCPP___V60*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_#LET___L29*/ meltfnum[10] = 0 ; + /*clear*/ /*_#LET___L29*/ + meltfnum[10] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; @@ -8243,7 +8999,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L36*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L36*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8252,7 +9009,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2677:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L36*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L36*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8285,16 +9043,20 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ argtab[3].meltbp_cstring = "compilobj_nrep_constocc offhk="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#OFFHK__L24*/ meltfnum[13]; - /*_.MELT_DEBUG_FUN__V66*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V66*/ + meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V65*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[50];; + /*_._IF___V65*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2677:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L37*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L37*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ meltfptr[50] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ + meltfptr[50] = 0 ; } ; } @@ -8307,7 +9069,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2677:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8316,9 +9079,11 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L36*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L36*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V65*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V65*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8348,10 +9113,12 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#gteqI__L38*/ meltfnum[15] = + /*_#gteqI__L38*/ + meltfnum[15] = ((/*_#OFFHK__L24*/ meltfnum[13]) >= (0));; MELT_LOCATION("warmelt-genobj.melt:2678:/ cond"); - /*cond*/ if (/*_#gteqI__L38*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#gteqI__L38*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V68*/ meltfptr[30] = (/*nil*/NULL);; @@ -8380,25 +9147,31 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ argtab[2].meltbp_long = 2678; /*^apply.arg*/ argtab[3].meltbp_long = /*_#OFFHK__L24*/ meltfnum[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V69*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V69*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V68*/ meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V69*/ meltfptr[40];; + /*_._IFELSE___V68*/ + meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V69*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2678:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V69*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V69*/ + meltfptr[40] = 0 ; } ; } ; - /*_.IFCPP___V67*/ meltfptr[47] = /*_._IFELSE___V68*/ meltfptr[30];; + /*_.IFCPP___V67*/ + meltfptr[47] = /*_._IFELSE___V68*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2678:/ clear"); - /*clear*/ /*_#gteqI__L38*/ meltfnum[15] = 0 ; + /*clear*/ /*_#gteqI__L38*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V68*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V68*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8412,14 +9185,16 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_.BOX__V71*/ meltfptr[31] = + /*_.BOX__V71*/ + meltfptr[31] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#OFFHK__L24*/ meltfnum[13]));; MELT_LOCATION("warmelt-genobj.melt:2683:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OSYM__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V72*/ meltfptr[50] = slot; + /*_.NAMED_NAME__V72*/ + meltfptr[50] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2679:/ quasiblock"); @@ -8430,7 +9205,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLOHOOKV*/ meltfrout->tabval[12])), (4), "CLASS_OBJCLOHOOKV"); - /*_.INST__V74*/ meltfptr[40] = + /*_.INST__V74*/ + meltfptr[40] = newobj; }; ; @@ -8458,7 +9234,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V74*/ meltfptr[40], "newly made instance"); ; - /*_.OHKCONSTV__V73*/ meltfptr[20] = /*_.INST__V74*/ meltfptr[40];; + /*_.OHKCONSTV__V73*/ + meltfptr[20] = /*_.INST__V74*/ meltfptr[40];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2685:/ cppif.then"); @@ -8479,7 +9256,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8488,7 +9266,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2685:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8525,16 +9304,20 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ argtab[5].meltbp_cstring = ";\n.. from ncnst="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCNST__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V76*/ + meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V75*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75];; + /*_._IF___V75*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2685:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ + meltfptr[75] = 0 ; } ; } @@ -8547,7 +9330,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2685:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8556,9 +9340,11 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V75*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V75*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8584,7 +9370,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_LOCATION("warmelt-genobj.melt:2686:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OHKCONSTV__V73*/ meltfptr[20];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OHKCONSTV__V73*/ meltfptr[20];; { MELT_LOCATION("warmelt-genobj.melt:2686:/ locexp"); @@ -8599,34 +9386,48 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V70*/ meltfptr[33] = /*_.RETURN___V77*/ meltfptr[75];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V70*/ + meltfptr[33] = /*_.RETURN___V77*/ meltfptr[75];; MELT_LOCATION("warmelt-genobj.melt:2679:/ clear"); - /*clear*/ /*_.BOX__V71*/ meltfptr[31] = 0 ; + /*clear*/ /*_.BOX__V71*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V72*/ meltfptr[50] = 0 ; + /*clear*/ /*_.NAMED_NAME__V72*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.OHKCONSTV__V73*/ meltfptr[20] = 0 ; + /*clear*/ /*_.OHKCONSTV__V73*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V77*/ meltfptr[75] = 0 ; - /*_.LET___V54*/ meltfptr[39] = /*_.LET___V70*/ meltfptr[33];; + /*clear*/ /*_.RETURN___V77*/ + meltfptr[75] = 0 ; + /*_.LET___V54*/ + meltfptr[39] = /*_.LET___V70*/ meltfptr[33];; MELT_LOCATION("warmelt-genobj.melt:2661:/ clear"); - /*clear*/ /*_#OFFHK__L24*/ meltfnum[13] = 0 ; + /*clear*/ /*_#OFFHK__L24*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#COUNT__L25*/ meltfnum[14] = 0 ; + /*clear*/ /*_#COUNT__L25*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.HCLOBINDLIST__V55*/ meltfptr[46] = 0 ; + /*clear*/ /*_.HCLOBINDLIST__V55*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V67*/ meltfptr[47] = 0 ; + /*clear*/ /*_.IFCPP___V67*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V70*/ meltfptr[33] = 0 ; - /*_._IFELSE___V53*/ meltfptr[49] = /*_.LET___V54*/ meltfptr[39];; + /*clear*/ /*_.LET___V70*/ + meltfptr[33] = 0 ; + /*_._IFELSE___V53*/ + meltfptr[49] = /*_.LET___V54*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2660:/ clear"); - /*clear*/ /*_.LET___V54*/ meltfptr[39] = 0 ; + /*clear*/ /*_.LET___V54*/ + meltfptr[39] = 0 ; } ; } @@ -8657,7 +9458,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L41*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L41*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8666,7 +9468,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2689:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L41*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8703,16 +9506,20 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ argtab[5].meltbp_cstring = "\n.. for ncnst="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCNST__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V79*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V79*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V78*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V79*/ meltfptr[31];; + /*_._IF___V78*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V79*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2689:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L42*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V79*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V79*/ + meltfptr[31] = 0 ; } ; } @@ -8725,7 +9532,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2689:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -8734,9 +9542,11 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L41*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V78*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V78*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8767,7 +9577,8 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V81*/ meltfptr[20] = (/*nil*/NULL);; @@ -8798,23 +9609,28 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LASTCPROC__V17*/ meltfptr[16]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCNST__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V82*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V82*/ + meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V81*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V82*/ meltfptr[75];; + /*_._IFELSE___V81*/ + meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V82*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2690:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V82*/ meltfptr[75] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V82*/ + meltfptr[75] = 0 ; } ; } ; - /*_.IFCPP___V80*/ meltfptr[50] = /*_._IFELSE___V81*/ meltfptr[20];; + /*_.IFCPP___V80*/ + meltfptr[50] = /*_._IFELSE___V81*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2690:/ clear"); - /*clear*/ /*_._IFELSE___V81*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V81*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8825,63 +9641,84 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ MELT_LOCATION("warmelt-genobj.melt:2688:/ quasiblock"); - /*_.PROGN___V83*/ meltfptr[46] = /*_.IFCPP___V80*/ meltfptr[50];; + /*_.PROGN___V83*/ + meltfptr[46] = /*_.IFCPP___V80*/ meltfptr[50];; /*^compute*/ - /*_._IFELSE___V53*/ meltfptr[49] = /*_.PROGN___V83*/ meltfptr[46];; + /*_._IFELSE___V53*/ + meltfptr[49] = /*_.PROGN___V83*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2660:/ clear"); - /*clear*/ /*_.IFCPP___V80*/ meltfptr[50] = 0 ; + /*clear*/ /*_.IFCPP___V80*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V83*/ meltfptr[46] = 0 ; + /*clear*/ /*_.PROGN___V83*/ + meltfptr[46] = 0 ; } ; } ; - /*_._IFELSE___V29*/ meltfptr[27] = /*_._IFELSE___V53*/ meltfptr[49];; + /*_._IFELSE___V29*/ + meltfptr[27] = /*_._IFELSE___V53*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2629:/ clear"); - /*clear*/ /*_#IS_A__L23*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L23*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V53*/ meltfptr[49] = 0 ; + /*clear*/ /*_._IFELSE___V53*/ + meltfptr[49] = 0 ; } ; } ; - /*_.LET___V12*/ meltfptr[10] = /*_._IFELSE___V29*/ meltfptr[27];; + /*_.LET___V12*/ + meltfptr[10] = /*_._IFELSE___V29*/ meltfptr[27];; MELT_LOCATION("warmelt-genobj.melt:2613:/ clear"); - /*clear*/ /*_.OROUT__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.OROUT__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.OSYM__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.OSYM__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.CPROCS__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.CPROCS__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_LAST__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LIST_LAST__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.LASTCPROC__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.LASTCPROC__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.NLOC__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.NLOC__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.CNSTYP__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.CNSTYP__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.NBIND__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.IFCPP___V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ + meltfptr[27] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2609:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2609:/ locexp"); @@ -8896,15 +9733,19 @@ meltlabexit_LOOPLIS_2:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -8986,7 +9827,8 @@ meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL(meltclosure_ptr_t meltclo /* end of frame for routine meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL fromline 1756 */ - /* classy proc frame meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL */ MeltFrame_meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL + /* classy proc frame meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL */ + MeltFrame_meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL fromline 1785*/ #if ENABLE_CHECKING @@ -8999,7 +9841,8 @@ meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL(meltclosure_ptr_t meltclo #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_IMPORTEDVAL", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -9009,12 +9852,14 @@ meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL(meltclosure_ptr_t meltclo /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2698:/ getarg"); - /*_.NSVA__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NSVA__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -9046,7 +9891,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9055,7 +9901,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2699:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9092,16 +9939,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2699:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -9114,7 +9965,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2699:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9123,9 +9975,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9155,10 +10009,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2700:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -9187,25 +10043,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2700; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2700:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2700:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9223,10 +10085,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NSVA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2701:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -9255,25 +10119,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2701; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NSVA__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2701:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2701:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9289,7 +10159,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NSVA__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NIMPORT_SYMB"); - /*_.VAR__V13*/ meltfptr[3] = slot; + /*_.VAR__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2703:/ getslot"); @@ -9297,10 +10168,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 13, "IGNCX_IMPORTMAP"); - /*_.IGNCX_IMPORTMAP__V14*/ meltfptr[13] = slot; + /*_.IGNCX_IMPORTMAP__V14*/ + meltfptr[13] = slot; }; ; - /*_.OLOCV__V15*/ meltfptr[14] = + /*_.OLOCV__V15*/ + meltfptr[14] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.IGNCX_IMPORTMAP__V14*/ meltfptr[13]), (meltobject_ptr_t)(/*_.VAR__V13*/ meltfptr[3]));; @@ -9323,7 +10196,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9332,7 +10206,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2705:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9365,16 +10240,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_importedval result olocv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OLOCV__V15*/ meltfptr[14]; - /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V16*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16];; + /*_._IF___V16*/ + meltfptr[15] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2705:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V17*/ + meltfptr[16] = 0 ; } ; } @@ -9387,7 +10266,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2705:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9396,9 +10276,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_._IF___V16*/ + meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9428,10 +10310,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[0] = + /*_#IS_A__L7*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.VAR__V13*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:2706:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[15] = (/*nil*/NULL);; @@ -9460,25 +10344,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2706; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VAR__V13*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V19*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ + meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2706:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = 0 ; } ; } ; - /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[15];; + /*_.IFCPP___V18*/ + meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2706:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ meltfptr[15] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ + meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9496,10 +10386,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[1] = + /*_#IS_A__L8*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OLOCV__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:2707:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[15] = (/*nil*/NULL);; @@ -9528,25 +10420,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2707; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OLOCV__V15*/ meltfptr[14]; - /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V23*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V22*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ + meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2707:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ + meltfptr[22] = 0 ; } ; } ; - /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[15];; + /*_.IFCPP___V21*/ + meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2707:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ meltfptr[15] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ + meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9560,7 +10458,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2708:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OLOCV__V15*/ meltfptr[14];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OLOCV__V15*/ meltfptr[14];; { MELT_LOCATION("warmelt-genobj.melt:2708:/ locexp"); @@ -9575,28 +10474,37 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V24*/ meltfptr[22];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V12*/ + meltfptr[10] = /*_.RETURN___V24*/ meltfptr[22];; MELT_LOCATION("warmelt-genobj.melt:2702:/ clear"); - /*clear*/ /*_.VAR__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.VAR__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.IGNCX_IMPORTMAP__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.IGNCX_IMPORTMAP__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.OLOCV__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.OLOCV__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.RETURN___V24*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2698:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2698:/ locexp"); @@ -9611,15 +10519,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -9701,7 +10613,8 @@ meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE(meltclosure_ptr_t meltcl /* end of frame for routine meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE fromline 1756 */ - /* classy proc frame meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE */ MeltFrame_meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE + /* classy proc frame meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE */ + MeltFrame_meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE fromline 1785*/ #if ENABLE_CHECKING @@ -9714,7 +10627,8 @@ meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE(meltclosure_ptr_t meltcl #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_LITERALVALUE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -9724,12 +10638,14 @@ meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE(meltclosure_ptr_t meltcl /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2714:/ getarg"); - /*_.NLITV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NLITV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -9761,7 +10677,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9770,7 +10687,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2715:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9786,7 +10704,8 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.DISCRIM__V5*/ meltfptr[4] = + /*_.DISCRIM__V5*/ + meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NLITV__V2*/ meltfptr[1]))));; MELT_CHECK_SIGNAL(); @@ -9814,18 +10733,23 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n gcx="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2715:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.DISCRIM__V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ + meltfptr[5] = 0 ; } ; } @@ -9838,7 +10762,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2715:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9847,9 +10772,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9873,7 +10800,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLITV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LITERALVALUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -9884,7 +10812,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NLITV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NLITVAL_REGVAL"); - /*_.LITREGVAL__V8*/ meltfptr[5] = slot; + /*_.LITREGVAL__V8*/ + meltfptr[5] = slot; }; ; } @@ -9895,7 +10824,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-genobj.melt:2719:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LITREGVAL__V8*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_LITERAL_VALUE*/ meltfrout->tabval[2]))) ) /*then*/ @@ -9906,7 +10836,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.LITREGVAL__V8*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LITV_RANK"); - /*_.LITVRANK__V9*/ meltfptr[3] = slot; + /*_.LITVRANK__V9*/ + meltfptr[3] = slot; }; ; } @@ -9917,7 +10848,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-genobj.melt:2720:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_EXTENSION_GENERATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ @@ -9928,7 +10860,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 15, "EGNCX_LITVALTUPLOC"); - /*_.OLITUP__V10*/ meltfptr[9] = slot; + /*_.OLITUP__V10*/ + meltfptr[9] = slot; }; ; } @@ -9939,7 +10872,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-genobj.melt:2721:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLITV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[4]))) ) /*then*/ @@ -9950,7 +10884,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NLITV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NLOC__V11*/ meltfptr[10] = slot; + /*_.NLOC__V11*/ + meltfptr[10] = slot; }; ; } @@ -9980,7 +10915,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9989,7 +10925,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2723:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10030,16 +10967,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n olitup="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OLITUP__V10*/ meltfptr[9]; - /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; + /*_._IF___V12*/ + meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2723:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = 0 ; } ; } @@ -10052,7 +10993,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2723:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10061,9 +11003,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10093,10 +11037,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[0] = + /*_#IS_A__L5*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.LITREGVAL__V8*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_LITERAL_VALUE*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-genobj.melt:2726:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[11] = (/*nil*/NULL);; @@ -10125,25 +11071,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2726; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LITREGVAL__V8*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2726:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[11];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2726:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10161,10 +11113,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_INTEGERBOX__L6*/ meltfnum[1] = + /*_#IS_INTEGERBOX__L6*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.LITVRANK__V9*/ meltfptr[3])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-genobj.melt:2727:/ cond"); - /*cond*/ if (/*_#IS_INTEGERBOX__L6*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_INTEGERBOX__L6*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[11] = (/*nil*/NULL);; @@ -10193,25 +11147,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2727; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LITVRANK__V9*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V18*/ meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ + meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2727:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ + meltfptr[18] = 0 ; } ; } ; - /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[11];; + /*_.IFCPP___V17*/ + meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2727:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L6*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_INTEGERBOX__L6*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10229,10 +11189,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L7*/ meltfnum[0] = + /*_#IS_A__L7*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_EXTENSION_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2728:/ cond"); - /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[11] = (/*nil*/NULL);; @@ -10261,25 +11223,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2728; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ + meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2728:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[11];; + /*_.IFCPP___V20*/ + meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2728:/ clear"); - /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10302,7 +11270,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "literal-value #"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LITVRANK__V9*/ meltfptr[3]; - /*_.STRING4OUT__V24*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[9])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.STRING4OUT__V24*/ + meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[9])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -10327,7 +11296,8 @@ meltlab_endgetargs: argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.LITVRANK__V9*/ meltfptr[3]; /*^apply.arg*/ argtab[6].meltbp_cstring = "])"; - /*_.RES__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_OBJEXPANDPUREVAL*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.NLOC__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.RES__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_OBJEXPANDPUREVAL*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.NLOC__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -10350,7 +11320,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10359,7 +11330,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2734:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10392,16 +11364,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_literalvalue res="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; + /*_._IF___V26*/ + meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2734:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = 0 ; } ; } @@ -10414,7 +11390,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2734:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10423,9 +11400,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10451,7 +11430,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2735:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V25*/ meltfptr[24];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.RES__V25*/ meltfptr[24];; { MELT_LOCATION("warmelt-genobj.melt:2735:/ locexp"); @@ -10466,40 +11446,55 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V23*/ meltfptr[21] = /*_.RETURN___V28*/ meltfptr[26];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V23*/ + meltfptr[21] = /*_.RETURN___V28*/ meltfptr[26];; MELT_LOCATION("warmelt-genobj.melt:2729:/ clear"); - /*clear*/ /*_.STRING4OUT__V24*/ meltfptr[11] = 0 ; + /*clear*/ /*_.STRING4OUT__V24*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.RES__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V28*/ meltfptr[26] = 0 ; - /*_.LET___V7*/ meltfptr[4] = /*_.LET___V23*/ meltfptr[21];; + /*clear*/ /*_.RETURN___V28*/ + meltfptr[26] = 0 ; + /*_.LET___V7*/ + meltfptr[4] = /*_.LET___V23*/ meltfptr[21];; MELT_LOCATION("warmelt-genobj.melt:2718:/ clear"); - /*clear*/ /*_.LITREGVAL__V8*/ meltfptr[5] = 0 ; + /*clear*/ /*_.LITREGVAL__V8*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LITVRANK__V9*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LITVRANK__V9*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.OLITUP__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.OLITUP__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.NLOC__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.NLOC__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.LET___V23*/ + meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2714:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V7*/ meltfptr[4];; { MELT_LOCATION("warmelt-genobj.melt:2714:/ locexp"); @@ -10514,11 +11509,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V7*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V7*/ + meltfptr[4] = 0 ; } ; @@ -10600,7 +11597,8 @@ meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT(meltclosure_ptr_t mel /* end of frame for routine meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT fromline 1756 */ - /* classy proc frame meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT */ MeltFrame_meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT + /* classy proc frame meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT */ + MeltFrame_meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT fromline 1785*/ #if ENABLE_CHECKING @@ -10613,7 +11611,8 @@ meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT(meltclosure_ptr_t mel #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_DEFINEDCONSTANT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -10623,12 +11622,14 @@ meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT(meltclosure_ptr_t mel /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2741:/ getarg"); - /*_.NDCONST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NDCONST__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -10660,7 +11661,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10669,7 +11671,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2742:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10706,16 +11709,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2742:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -10728,7 +11735,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2742:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10737,9 +11745,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10769,10 +11779,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2743:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -10801,25 +11813,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2743; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2743:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2743:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10837,10 +11855,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NDCONST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DEFINED_CONSTANT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2744:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -10869,25 +11889,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2744; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NDCONST__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2744:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2744:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10903,7 +11929,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDCONST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCONST_SVAL"); - /*_.NSVAL__V13*/ meltfptr[3] = slot; + /*_.NSVAL__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2746:/ getslot"); @@ -10911,7 +11938,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDCONST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NLOC__V14*/ meltfptr[13] = slot; + /*_.NLOC__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2747:/ getslot"); @@ -10919,7 +11947,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "GNCX_LOCMAP"); - /*_.LOCMAP__V15*/ meltfptr[14] = slot; + /*_.LOCMAP__V15*/ + meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2748:/ getslot"); @@ -10927,10 +11956,12 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDCONST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NCONST_DEFBIND"); - /*_.NDEFBND__V16*/ meltfptr[15] = slot; + /*_.NDEFBND__V16*/ + meltfptr[15] = slot; }; ; - /*_.OVLOC__V17*/ meltfptr[16] = + /*_.OVLOC__V17*/ + meltfptr[16] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.LOCMAP__V15*/ meltfptr[14]), (meltobject_ptr_t)(/*_.NDEFBND__V16*/ meltfptr[15]));; MELT_LOCATION("warmelt-genobj.melt:2750:/ getslot"); @@ -10938,7 +11969,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDCONST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NCONST_PROC"); - /*_.NPROC__V18*/ meltfptr[17] = slot; + /*_.NPROC__V18*/ + meltfptr[17] = slot; }; ; @@ -10961,7 +11993,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10970,7 +12003,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2752:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11015,16 +12049,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " nproc="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.NPROC__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V19*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; + /*_._IF___V19*/ + meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2752:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ + meltfptr[19] = 0 ; } ; } @@ -11037,7 +12075,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2752:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11046,9 +12085,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V19*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11079,7 +12120,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if (/*_.OVLOC__V17*/ meltfptr[16]) /*then*/ + /*cond*/ + if (/*_.OVLOC__V17*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[18] = (/*nil*/NULL);; @@ -11106,23 +12148,28 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2753; - /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V23*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V22*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ + meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2753:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ + meltfptr[22] = 0 ; } ; } ; - /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[18];; + /*_.IFCPP___V21*/ + meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2753:/ clear"); - /*clear*/ /*_._IFELSE___V22*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11136,7 +12183,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2754:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OVLOC__V17*/ meltfptr[16];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OVLOC__V17*/ meltfptr[16];; { MELT_LOCATION("warmelt-genobj.melt:2754:/ locexp"); @@ -11151,32 +12199,43 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V24*/ meltfptr[22];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V12*/ + meltfptr[10] = /*_.RETURN___V24*/ meltfptr[22];; MELT_LOCATION("warmelt-genobj.melt:2745:/ clear"); - /*clear*/ /*_.NSVAL__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NSVAL__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.NLOC__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NLOC__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCMAP__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.LOCMAP__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.NDEFBND__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.NDEFBND__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.OVLOC__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.OVLOC__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.NPROC__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.NPROC__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.RETURN___V24*/ + meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2741:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2741:/ locexp"); @@ -11191,15 +12250,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -11281,7 +12344,8 @@ meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT(meltclosure_ptr_t meltc /* end of frame for routine meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT fromline 1756 */ - /* classy proc frame meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT */ MeltFrame_meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT + /* classy proc frame meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT */ + MeltFrame_meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT fromline 1785*/ #if ENABLE_CHECKING @@ -11294,7 +12358,8 @@ meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT(meltclosure_ptr_t meltc #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_QUASICONSTANT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11304,12 +12369,14 @@ meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT(meltclosure_ptr_t meltc /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2760:/ getarg"); - /*_.NCONST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NCONST__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -11341,7 +12408,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11350,7 +12418,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2761:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11383,16 +12452,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj quasiconstant nconst="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCONST__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2761:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -11405,7 +12478,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2761:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11414,9 +12488,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11446,10 +12522,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2762:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -11478,25 +12556,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2762; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2762:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2762:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11514,10 +12598,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCONST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASICONSTANT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2763:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -11546,25 +12632,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2763; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCONST__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2763:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2763:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11580,7 +12672,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCONST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NLOC__V13*/ meltfptr[3] = slot; + /*_.NLOC__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2765:/ getslot"); @@ -11588,7 +12681,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCONST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCONST_SVAL"); - /*_.SVAL__V14*/ meltfptr[13] = slot; + /*_.SVAL__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2766:/ getslot"); @@ -11596,7 +12690,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCONST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NCONST_DATA"); - /*_.DATA__V15*/ meltfptr[14] = slot; + /*_.DATA__V15*/ + meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2767:/ getslot"); @@ -11604,16 +12699,19 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCONST__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NCONST_PROC"); - /*_.PROC__V16*/ meltfptr[15] = slot; + /*_.PROC__V16*/ + meltfptr[15] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PROC__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:2769:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11624,7 +12722,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PROC__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[5]))) ) /*then*/ @@ -11635,7 +12734,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PROC__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); - /*_.CONSTLIST__V19*/ meltfptr[18] = slot; + /*_.CONSTLIST__V19*/ + meltfptr[18] = slot; }; ; } @@ -11646,14 +12746,18 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.CURPAIR__V20*/ meltfptr[19] = + /*_.CURPAIR__V20*/ + meltfptr[19] = (melt_list_first((melt_ptr_t)(/*_.CONSTLIST__V19*/ meltfptr[18])));; /*^compute*/ - /*_#COFF__L6*/ meltfnum[0] = -1;; + /*_#COFF__L6*/ + meltfnum[0] = -1;; /*^compute*/ - /*_#CURANK__L7*/ meltfnum[6] = 0;; + /*_#CURANK__L7*/ + meltfnum[6] = 0;; /*^compute*/ - /*_.NAMBUF__V21*/ meltfptr[20] = + /*_.NAMBUF__V21*/ + meltfptr[20] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[6])), (const char*)0);; MELT_LOCATION("warmelt-genobj.melt:2776:/ loop"); /*loop*/ @@ -11670,10 +12774,12 @@ meltlabloop_CONSTLOOP_1:;/*^loopbody*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_PAIR__L8*/ meltfnum[7] = + /*_#IS_PAIR__L8*/ + meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V20*/ meltfptr[19])) == MELTOBMAG_PAIR);; MELT_LOCATION("warmelt-genobj.melt:2778:/ cond"); - /*cond*/ if (/*_#IS_PAIR__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_PAIR__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11683,16 +12789,19 @@ meltlabloop_CONSTLOOP_1:;/*^loopbody*/ MELT_LOCATION("warmelt-genobj.melt:2779:/ quasiblock"); - /*_.CURCONST__V24*/ meltfptr[23] = + /*_.CURCONST__V24*/ + meltfptr[23] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V20*/ meltfptr[19])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#eqeq__L9*/ meltfnum[8] = + /*_#eqeq__L9*/ + meltfnum[8] = ((/*_.CURCONST__V24*/ meltfptr[23]) == (/*_.DATA__V15*/ meltfptr[14]));; MELT_LOCATION("warmelt-genobj.melt:2780:/ cond"); - /*cond*/ if (/*_#eqeq__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#eqeq__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11700,12 +12809,14 @@ meltlabloop_CONSTLOOP_1:;/*^loopbody*/ { MELT_LOCATION("warmelt-genobj.melt:2782:/ compute"); - /*_#COFF__L6*/ meltfnum[0] = /*_#SETQ___L10*/ meltfnum[9] = /*_#CURANK__L7*/ meltfnum[6];; + /*_#COFF__L6*/ + meltfnum[0] = /*_#SETQ___L10*/ meltfnum[9] = /*_#CURANK__L7*/ meltfnum[6];; MELT_LOCATION("warmelt-genobj.melt:2783:/ quasiblock"); /*^compute*/ - /*_.CONSTLOOP__V23*/ meltfptr[22] = /*reallynil*/ NULL ;; + /*_.CONSTLOOP__V23*/ + meltfptr[22] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -11719,16 +12830,19 @@ meltlabloop_CONSTLOOP_1:;/*^loopbody*/ /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2780:/ clear"); - /*clear*/ /*_#SETQ___L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#SETQ___L10*/ + meltfnum[9] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:2779:/ clear"); - /*clear*/ /*_.CURCONST__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.CURCONST__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#eqeq__L9*/ + meltfnum[8] = 0 ; /*epilog*/ } ; @@ -11745,7 +12859,8 @@ meltlabloop_CONSTLOOP_1:;/*^loopbody*/ /*^compute*/ - /*_.CONSTLOOP__V23*/ meltfptr[22] = /*reallynil*/ NULL ;; + /*_.CONSTLOOP__V23*/ + meltfptr[22] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ @@ -11758,36 +12873,46 @@ meltlabloop_CONSTLOOP_1:;/*^loopbody*/ ; } ; - /*_.PAIR_TAIL__V25*/ meltfptr[23] = + /*_.PAIR_TAIL__V25*/ + meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V20*/ meltfptr[19])));; MELT_LOCATION("warmelt-genobj.melt:2786:/ compute"); - /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIR_TAIL__V25*/ meltfptr[23];; - /*_#plI__L11*/ meltfnum[9] = + /*_.CURPAIR__V20*/ + meltfptr[19] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIR_TAIL__V25*/ meltfptr[23];; + /*_#plI__L11*/ + meltfnum[9] = ((/*_#CURANK__L7*/ meltfnum[6]) + (1));; MELT_LOCATION("warmelt-genobj.melt:2787:/ compute"); - /*_#CURANK__L7*/ meltfnum[6] = /*_#SETQ___L12*/ meltfnum[8] = /*_#plI__L11*/ meltfnum[9];; + /*_#CURANK__L7*/ + meltfnum[6] = /*_#SETQ___L12*/ meltfnum[8] = /*_#plI__L11*/ meltfnum[9];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2776:/ clear"); - /*clear*/ /*_#IS_PAIR__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_PAIR__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.SETQ___V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#plI__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L12*/ meltfnum[8] = 0 ; + /*clear*/ /*_#SETQ___L12*/ + meltfnum[8] = 0 ; } ; ; goto meltlabloop_CONSTLOOP_1; meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ /*loopepilog*/ - /*_.FOREVER___V22*/ meltfptr[21] = /*_.CONSTLOOP__V23*/ meltfptr[22];; + /*_.FOREVER___V22*/ + meltfptr[21] = /*_.CONSTLOOP__V23*/ meltfptr[22];; } ; @@ -11800,10 +12925,12 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#gteqI__L13*/ meltfnum[7] = + /*_#gteqI__L13*/ + meltfnum[7] = ((/*_#COFF__L6*/ meltfnum[0]) >= (0));; MELT_LOCATION("warmelt-genobj.melt:2789:/ cond"); - /*cond*/ if (/*_#gteqI__L13*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#gteqI__L13*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V28*/ meltfptr[25] = (/*nil*/NULL);; @@ -11832,25 +12959,31 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ argtab[2].meltbp_long = 2789; /*^apply.arg*/ argtab[3].meltbp_long = /*_#COFF__L6*/ meltfnum[0]; - /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V28*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; + /*_._IFELSE___V28*/ + meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2789:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ + meltfptr[28] = 0 ; } ; } ; - /*_.IFCPP___V27*/ meltfptr[23] = /*_._IFELSE___V28*/ meltfptr[25];; + /*_.IFCPP___V27*/ + meltfptr[23] = /*_._IFELSE___V28*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2789:/ clear"); - /*clear*/ /*_#gteqI__L13*/ meltfnum[7] = 0 ; + /*clear*/ /*_#gteqI__L13*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V28*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V28*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11861,7 +12994,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2790:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V21*/ meltfptr[20]), ( "konst_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V21*/ meltfptr[20]), ( "konst_")); } ; @@ -11873,10 +13007,12 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[9] = + /*_#IS_A__L14*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.SVAL__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-genobj.melt:2792:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11886,7 +13022,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2794:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V21*/ meltfptr[20]), ( "_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V21*/ meltfptr[20]), ( "_")); } ; MELT_LOCATION("warmelt-genobj.melt:2795:/ getslot"); @@ -11894,7 +13031,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SVAL__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V30*/ meltfptr[28] = slot; + /*_.NAMED_NAME__V30*/ + meltfptr[28] = slot; }; ; @@ -11910,7 +13048,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2792:/ clear"); - /*clear*/ /*_.NAMED_NAME__V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.NAMED_NAME__V30*/ + meltfptr[28] = 0 ; } ; } /*noelse*/ @@ -11921,10 +13060,12 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_.MAKE_INTEGERBOX__V32*/ meltfptr[28] = + /*_.MAKE_INTEGERBOX__V32*/ + meltfptr[28] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[10])), (/*_#COFF__L6*/ meltfnum[0])));; /*^compute*/ - /*_.STRBUF2STRING__V33*/ meltfptr[32] = + /*_.STRBUF2STRING__V33*/ + meltfptr[32] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[11])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V21*/ meltfptr[20]))));; MELT_LOCATION("warmelt-genobj.melt:2799:/ quasiblock"); @@ -11934,7 +13075,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCONSTV*/ meltfrout->tabval[8])), (4), "CLASS_OBJCONSTV"); - /*_.INST__V35*/ meltfptr[34] = + /*_.INST__V35*/ + meltfptr[34] = newobj; }; ; @@ -11962,7 +13104,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ melt_dbgtrace_written_object (/*_.INST__V35*/ meltfptr[34], "newly made instance"); ; - /*_.CONSTV__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; + /*_.CONSTV__V34*/ + meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2805:/ cppif.then"); @@ -11983,7 +13126,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L15*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11992,7 +13136,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2805:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L15*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12025,16 +13170,20 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ argtab[3].meltbp_cstring = "compilobj quasiconstant constv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CONSTV__V34*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V36*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*_._IF___V36*/ + meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2805:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L16*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[36] = 0 ; } ; } @@ -12047,7 +13196,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2805:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12056,9 +13206,11 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L15*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12084,7 +13236,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ MELT_LOCATION("warmelt-genobj.melt:2806:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.CONSTV__V34*/ meltfptr[33];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.CONSTV__V34*/ meltfptr[33];; { MELT_LOCATION("warmelt-genobj.melt:2806:/ locexp"); @@ -12099,42 +13252,60 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V31*/ meltfptr[25] = /*_.RETURN___V38*/ meltfptr[36];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V31*/ + meltfptr[25] = /*_.RETURN___V38*/ meltfptr[36];; MELT_LOCATION("warmelt-genobj.melt:2798:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V32*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.STRBUF2STRING__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CONSTV__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.CONSTV__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V38*/ meltfptr[36] = 0 ; - /*_.LET___V18*/ meltfptr[17] = /*_.LET___V31*/ meltfptr[25];; + /*clear*/ /*_.RETURN___V38*/ + meltfptr[36] = 0 ; + /*_.LET___V18*/ + meltfptr[17] = /*_.LET___V31*/ meltfptr[25];; MELT_LOCATION("warmelt-genobj.melt:2770:/ clear"); - /*clear*/ /*_.CONSTLIST__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.CONSTLIST__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CURPAIR__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#COFF__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#COFF__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#CURANK__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#CURANK__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMBUF__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NAMBUF__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.FOREVER___V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_.IFCPP___V27*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L14*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V31*/ meltfptr[25] = 0 ; - /*_._IFELSE___V17*/ meltfptr[16] = /*_.LET___V18*/ meltfptr[17];; + /*clear*/ /*_.LET___V31*/ + meltfptr[25] = 0 ; + /*_._IFELSE___V17*/ + meltfptr[16] = /*_.LET___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2769:/ clear"); - /*clear*/ /*_.LET___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V18*/ + meltfptr[17] = 0 ; } ; } @@ -12158,7 +13329,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.ODATA__V40*/ meltfptr[28] = meltgc_send((melt_ptr_t)(/*_.DATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ODATA__V40*/ + meltfptr[28] = meltgc_send((melt_ptr_t)(/*_.DATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12181,7 +13353,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L17*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12190,7 +13363,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2811:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L17*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12223,16 +13397,20 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ argtab[3].meltbp_cstring = "compilobj quasiconstant odata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ODATA__V40*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V42*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V42*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V41*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[33];; + /*_._IF___V41*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2811:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ + meltfptr[33] = 0 ; } ; } @@ -12245,7 +13423,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ { MELT_LOCATION("warmelt-genobj.melt:2811:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12254,9 +13433,11 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12282,7 +13463,8 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ MELT_LOCATION("warmelt-genobj.melt:2812:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.ODATA__V40*/ meltfptr[28];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.ODATA__V40*/ meltfptr[28];; { MELT_LOCATION("warmelt-genobj.melt:2812:/ locexp"); @@ -12297,43 +13479,57 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V39*/ meltfptr[35] = /*_.RETURN___V43*/ meltfptr[36];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V39*/ + meltfptr[35] = /*_.RETURN___V43*/ meltfptr[36];; MELT_LOCATION("warmelt-genobj.melt:2809:/ clear"); - /*clear*/ /*_.ODATA__V40*/ meltfptr[28] = 0 ; + /*clear*/ /*_.ODATA__V40*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V43*/ meltfptr[36] = 0 ; - /*_._IFELSE___V17*/ meltfptr[16] = /*_.LET___V39*/ meltfptr[35];; + /*clear*/ /*_.RETURN___V43*/ + meltfptr[36] = 0 ; + /*_._IFELSE___V17*/ + meltfptr[16] = /*_.LET___V39*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2769:/ clear"); - /*clear*/ /*_.LET___V39*/ meltfptr[35] = 0 ; + /*clear*/ /*_.LET___V39*/ + meltfptr[35] = 0 ; } ; } ; - /*_.LET___V12*/ meltfptr[10] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.LET___V12*/ + meltfptr[10] = /*_._IFELSE___V17*/ meltfptr[16];; MELT_LOCATION("warmelt-genobj.melt:2764:/ clear"); - /*clear*/ /*_.NLOC__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NLOC__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.SVAL__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.SVAL__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.DATA__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.DATA__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.PROC__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.PROC__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2760:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2760:/ locexp"); @@ -12348,15 +13544,19 @@ meltlabexit_CONSTLOOP_1:;/*^loopepilog*/ ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -12438,7 +13638,8 @@ meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT /* end of frame for routine meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1756 */ - /* classy proc frame meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ MeltFrame_meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_REFERENCE + /* classy proc frame meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ + MeltFrame_meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_REFERENCE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1785*/ #if ENABLE_CHECKING @@ -12451,7 +13652,8 @@ meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_REFERENCE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -12461,12 +13663,14 @@ meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2819:/ getarg"); - /*_.NQCME__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NQCME__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -12498,7 +13702,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12507,7 +13712,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2820:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12541,16 +13747,20 @@ meltlab_endgetargs: nqcme="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NQCME__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2820:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -12563,7 +13773,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2820:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12572,9 +13783,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12604,10 +13817,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NQCME__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2821:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -12636,25 +13851,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2821; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NQCME__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2821:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2821:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12675,7 +13896,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.ONRES__V10*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!COMPILOBJ_NREP_QUASICONSTANT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NQCME__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ONRES__V10*/ + meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!COMPILOBJ_NREP_QUASICONSTANT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NQCME__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:2823:/ getslot"); @@ -12683,18 +13905,21 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NQCME__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NQCMEC_COMMENT"); - /*_.SCOMM__V11*/ meltfptr[10] = slot; + /*_.SCOMM__V11*/ + meltfptr[10] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2824:/ quasiblock"); - /*_.SBUF__V13*/ meltfptr[12] = + /*_.SBUF__V13*/ + meltfptr[12] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[4])), (const char*)0);; { MELT_LOCATION("warmelt-genobj.melt:2825:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V13*/ meltfptr[12]), ( "/*quasi.cur.mod.env.ref ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V13*/ meltfptr[12]), ( "/*quasi.cur.mod.env.ref ")); } ; @@ -12707,28 +13932,36 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2827:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V13*/ meltfptr[12]), ( "*/\n")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V13*/ meltfptr[12]), ( "*/\n")); } ; - /*_.STRBUF2STRING__V14*/ meltfptr[13] = + /*_.STRBUF2STRING__V14*/ + meltfptr[13] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V13*/ meltfptr[12]))));; /*^compute*/ - /*_.LET___V12*/ meltfptr[11] = /*_.STRBUF2STRING__V14*/ meltfptr[13];; + /*_.LET___V12*/ + meltfptr[11] = /*_.STRBUF2STRING__V14*/ meltfptr[13];; MELT_LOCATION("warmelt-genobj.melt:2824:/ clear"); - /*clear*/ /*_.SBUF__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.SBUF__V13*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V14*/ meltfptr[13] = 0 ; - /*_.STR__V15*/ meltfptr[12] = /*_.LET___V12*/ meltfptr[11];; + /*clear*/ /*_.STRBUF2STRING__V14*/ + meltfptr[13] = 0 ; + /*_.STR__V15*/ + meltfptr[12] = /*_.LET___V12*/ meltfptr[11];; MELT_LOCATION("warmelt-genobj.melt:2832:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NQCME__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NREP_LOC__V16*/ meltfptr[13] = slot; + /*_.NREP_LOC__V16*/ + meltfptr[13] = slot; }; ; - /*_#OBJ_HASH__L4*/ meltfnum[0] = + /*_#OBJ_HASH__L4*/ + meltfnum[0] = (melt_obj_hash((melt_ptr_t)(/*_.NQCME__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); @@ -12752,7 +13985,8 @@ meltlab_endgetargs: argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.ONRES__V10*/ meltfptr[3]; /*^apply.arg*/ argtab[6].meltbp_cstring = ")\n\t\t "; - /*_.OLRES__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_OBJLOCATEDEXP*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.NREP_LOC__V16*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.OLRES__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_OBJLOCATEDEXP*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.NREP_LOC__V16*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12775,7 +14009,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12784,7 +14019,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2839:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12818,16 +14054,20 @@ meltlab_endgetargs: olres="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OLRES__V17*/ meltfptr[16]; - /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; + /*_._IF___V18*/ + meltfptr[17] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2839:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = 0 ; } ; } @@ -12840,7 +14080,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2839:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12849,9 +14090,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_._IF___V18*/ + meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12877,7 +14120,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2840:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OLRES__V17*/ meltfptr[16];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OLRES__V17*/ meltfptr[16];; { MELT_LOCATION("warmelt-genobj.melt:2840:/ locexp"); @@ -12892,32 +14136,43 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V9*/ meltfptr[7] = /*_.RETURN___V20*/ meltfptr[18];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V9*/ + meltfptr[7] = /*_.RETURN___V20*/ meltfptr[18];; MELT_LOCATION("warmelt-genobj.melt:2822:/ clear"); - /*clear*/ /*_.ONRES__V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_.ONRES__V10*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.SCOMM__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.SCOMM__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.STR__V15*/ meltfptr[12] = 0 ; + /*clear*/ /*_.STR__V15*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.NREP_LOC__V16*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NREP_LOC__V16*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#OBJ_HASH__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#OBJ_HASH__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.OLRES__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.OLRES__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.RETURN___V20*/ + meltfptr[18] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2819:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-genobj.melt:2819:/ locexp"); @@ -12932,13 +14187,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.LET___V9*/ + meltfptr[7] = 0 ; } ; @@ -13020,7 +14278,8 @@ meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER fromline 1756 */ - /* classy proc frame meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER */ MeltFrame_meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER + /* classy proc frame meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER */ + MeltFrame_meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER fromline 1785*/ #if ENABLE_CHECKING @@ -13033,7 +14292,8 @@ meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_FOREVER", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -13043,12 +14303,14 @@ meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2846:/ getarg"); - /*_.NFOR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NFOR__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -13080,7 +14342,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13089,7 +14352,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2847:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13122,16 +14386,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_forever nfor="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NFOR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2847:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -13144,7 +14412,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2847:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13153,9 +14422,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13185,10 +14456,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2848:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -13217,25 +14490,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2848; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2848:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2848:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13253,10 +14532,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NFOR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_FOREVER*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2849:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -13285,25 +14566,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2849; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NFOR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2849:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2849:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13319,7 +14606,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NFOR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NLOC__V13*/ meltfptr[3] = slot; + /*_.NLOC__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2851:/ getslot"); @@ -13327,7 +14615,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NFOR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NFOREVER_BIND"); - /*_.NBIND__V14*/ meltfptr[13] = slot; + /*_.NBIND__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2852:/ getslot"); @@ -13335,7 +14624,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NFOR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NFOREVER_BODY"); - /*_.NBODY__V15*/ meltfptr[14] = slot; + /*_.NBODY__V15*/ + meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2853:/ getslot"); @@ -13343,7 +14633,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NFOR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NFOREVER_RESULT"); - /*_.NRES__V16*/ meltfptr[15] = slot; + /*_.NRES__V16*/ + meltfptr[15] = slot; }; ; @@ -13356,7 +14647,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NRES__V16*/ meltfptr[15]; - /*_.ORESV__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ORESV__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -13369,10 +14661,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NBIND__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:2856:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; @@ -13401,25 +14695,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2856; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V14*/ meltfptr[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V19*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ + meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2856:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = 0 ; } ; } ; - /*_.IFCPP___V18*/ meltfptr[17] = /*_._IFELSE___V19*/ meltfptr[18];; + /*_.IFCPP___V18*/ + meltfptr[17] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2856:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13447,7 +14747,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13456,7 +14757,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2857:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13489,16 +14791,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_forever oresv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ORESV__V17*/ meltfptr[16]; - /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18];; + /*_._IF___V21*/ + meltfptr[19] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2857:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[18] = 0 ; } ; } @@ -13511,7 +14817,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2857:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13520,9 +14827,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13552,10 +14861,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[1] = + /*_#IS_A__L8*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.ORESV__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-genobj.melt:2858:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[19] = (/*nil*/NULL);; @@ -13584,25 +14895,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2858; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ORESV__V17*/ meltfptr[16]; - /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V24*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ + meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2858:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + meltfptr[24] = 0 ; } ; } ; - /*_.IFCPP___V23*/ meltfptr[18] = /*_._IFELSE___V24*/ meltfptr[19];; + /*_.IFCPP___V23*/ + meltfptr[18] = /*_._IFELSE___V24*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2858:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13639,10 +14956,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L9*/ meltfnum[0] = + /*_#IS_OBJECT__L9*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V14*/ meltfptr[13])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-genobj.melt:2860:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_OBJECT__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V27*/ meltfptr[19] = (/*nil*/NULL);; @@ -13671,25 +14990,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2860; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V14*/ meltfptr[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V28*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V27*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; + /*_._IFELSE___V27*/ + meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2860:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ + meltfptr[27] = 0 ; } ; } ; - /*_.IFCPP___V26*/ meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[19];; + /*_.IFCPP___V26*/ + meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2860:/ clear"); - /*clear*/ /*_#IS_OBJECT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_OBJECT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13717,7 +15042,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13726,7 +15052,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2861:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13759,16 +15086,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_forever updated nbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V14*/ meltfptr[13]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[19];; + /*_._IF___V29*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2861:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[19] = 0 ; } ; } @@ -13781,7 +15112,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2861:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13790,9 +15122,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13820,13 +15154,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBIND__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LABIND_CLONSY"); - /*_.CLOSY__V32*/ meltfptr[27] = slot; + /*_.CLOSY__V32*/ + meltfptr[27] = slot; }; ; - /*_.BODYL__V33*/ meltfptr[32] = + /*_.BODYL__V33*/ + meltfptr[32] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; /*^compute*/ - /*_.EPILOGL__V34*/ meltfptr[33] = + /*_.EPILOGL__V34*/ + meltfptr[33] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[7]))));; MELT_CHECK_SIGNAL(); @@ -13839,7 +15176,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOOP*/ meltfrout->tabval[8])), (5), "CLASS_OBJLOOP"); - /*_.INST__V36*/ meltfptr[35] = + /*_.INST__V36*/ + meltfptr[35] = newobj; }; ; @@ -13872,7 +15210,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V36*/ meltfptr[35], "newly made instance"); ; - /*_.OLOOP__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; + /*_.OLOOP__V35*/ + meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2872:/ cppif.then"); @@ -13883,10 +15222,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L12*/ meltfnum[0] = + /*_#IS_A__L12*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CLOSY__V32*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-genobj.melt:2872:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V38*/ meltfptr[37] = (/*nil*/NULL);; @@ -13915,25 +15256,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2872; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLOSY__V32*/ meltfptr[27]; - /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V38*/ meltfptr[37] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; + /*_._IFELSE___V38*/ + meltfptr[37] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2872:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ + meltfptr[38] = 0 ; } ; } ; - /*_.IFCPP___V37*/ meltfptr[36] = /*_._IFELSE___V38*/ meltfptr[37];; + /*_.IFCPP___V37*/ + meltfptr[36] = /*_._IFELSE___V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2872:/ clear"); - /*clear*/ /*_#IS_A__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IFELSE___V38*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13945,7 +15292,8 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V41*/ meltfptr[37] = + /*newclosure*/ /*_.LAMBDA___V41*/ + meltfptr[37] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ meltfrout->tabval[12])), (2)); ; /*^putclosedv*/ @@ -13960,7 +15308,8 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V41*/ meltfptr[37]))); ((meltclosure_ptr_t)/*_.LAMBDA___V41*/ meltfptr[37])->tabval[1] = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]); ; - /*_.LAMBDA___V40*/ meltfptr[38] = /*_.LAMBDA___V41*/ meltfptr[37];; + /*_.LAMBDA___V40*/ + meltfptr[38] = /*_.LAMBDA___V41*/ meltfptr[37];; MELT_CHECK_SIGNAL(); ; @@ -13971,7 +15320,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V40*/ meltfptr[38]; - /*_.MULTIPLE_EVERY__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NBODY__V15*/ meltfptr[14]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY__V42*/ + meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NBODY__V15*/ meltfptr[14]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -13994,7 +15344,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L13*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14003,7 +15354,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2877:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14036,16 +15388,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj forever result oloop="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OLOOP__V35*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V44*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V43*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; + /*_._IF___V43*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2877:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ + meltfptr[43] = 0 ; } ; } @@ -14058,7 +15414,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2877:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14067,9 +15424,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V43*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14089,49 +15448,68 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V31*/ meltfptr[19] = /*_.OLOOP__V35*/ meltfptr[34];; + /*_.LET___V31*/ + meltfptr[19] = /*_.OLOOP__V35*/ meltfptr[34];; MELT_LOCATION("warmelt-genobj.melt:2862:/ clear"); - /*clear*/ /*_.CLOSY__V32*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CLOSY__V32*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.BODYL__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.BODYL__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.EPILOGL__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.EPILOGL__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.OLOOP__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.OLOOP__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.IFCPP___V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V40*/ meltfptr[38] = 0 ; + /*clear*/ /*_.LAMBDA___V40*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V42*/ meltfptr[41] = 0 ; - /*_.LET___V12*/ meltfptr[10] = /*_.LET___V31*/ meltfptr[19];; + /*clear*/ /*_.MULTIPLE_EVERY__V42*/ + meltfptr[41] = 0 ; + /*_.LET___V12*/ + meltfptr[10] = /*_.LET___V31*/ meltfptr[19];; MELT_LOCATION("warmelt-genobj.melt:2850:/ clear"); - /*clear*/ /*_.NLOC__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NLOC__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.NBIND__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NBIND__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NBODY__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.NBODY__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.NRES__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.NRES__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.ORESV__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.ORESV__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.IFCPP___V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V31*/ meltfptr[19] = 0 ; + /*clear*/ /*_.LET___V31*/ + meltfptr[19] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2846:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2846:/ locexp"); @@ -14146,15 +15524,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -14236,7 +15618,8 @@ meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12 fromline 1756 */ - /* classy proc frame meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12 */ MeltFrame_meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12 + /* classy proc frame meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12 */ + MeltFrame_meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12 fromline 1785*/ #if ENABLE_CHECKING @@ -14249,7 +15632,8 @@ meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("LAMBDA_cl12", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -14259,12 +15643,14 @@ meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2875:/ getarg"); - /*_.NCOMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NCOMP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; + /*_#IX__L1*/ + meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -14284,7 +15670,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~GCX*/ meltfclos->tabval[1]); - /*_.COMPILE_OBJ__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.NCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.COMPILE_OBJ__V3*/ + meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.NCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14296,7 +15683,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2875:/ clear"); - /*clear*/ /*_.COMPILE_OBJ__V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.COMPILE_OBJ__V3*/ + meltfptr[2] = 0 ; } ; @@ -14378,7 +15766,8 @@ meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT fromline 1756 */ - /* classy proc frame meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT */ MeltFrame_meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT + /* classy proc frame meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT */ + MeltFrame_meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT fromline 1785*/ #if ENABLE_CHECKING @@ -14391,7 +15780,8 @@ meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_EXIT", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -14401,12 +15791,14 @@ meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2886:/ getarg"); - /*_.NEXI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NEXI__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -14438,7 +15830,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14447,7 +15840,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2887:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14480,16 +15874,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_exit nexi="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEXI__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2887:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -14502,7 +15900,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2887:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14511,9 +15910,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14543,10 +15944,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2888:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -14575,25 +15978,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2888; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2888:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2888:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14611,10 +16020,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NEXI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_EXIT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2889:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -14643,25 +16054,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2889; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NEXI__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2889:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2889:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14677,7 +16094,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NEXI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NLOC__V13*/ meltfptr[3] = slot; + /*_.NLOC__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2892:/ getslot"); @@ -14685,7 +16103,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NEXI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NEXIT_BIND"); - /*_.NBINDX__V14*/ meltfptr[13] = slot; + /*_.NBINDX__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2893:/ getslot"); @@ -14693,7 +16112,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NEXI__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NEXIT_VAL"); - /*_.NVAL__V15*/ meltfptr[14] = slot; + /*_.NVAL__V15*/ + meltfptr[14] = slot; }; ; @@ -14706,10 +16126,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NBINDX__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:2895:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; @@ -14738,25 +16160,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2895; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDX__V14*/ meltfptr[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ + meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ + meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2895:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ + meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ + meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2895:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14767,13 +16195,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2896:/ quasiblock"); - /*_.INSLIST__V20*/ meltfptr[16] = + /*_.INSLIST__V20*/ + meltfptr[16] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ - /*_.EPILIST__V21*/ meltfptr[20] = + /*_.EPILIST__V21*/ + meltfptr[20] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ - /*_.DESTLIST__V22*/ meltfptr[21] = + /*_.DESTLIST__V22*/ + meltfptr[21] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; MELT_CHECK_SIGNAL(); @@ -14785,7 +16216,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.OVAL__V23*/ meltfptr[22] = meltgc_send((melt_ptr_t)(/*_.NVAL__V15*/ meltfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OVAL__V23*/ + meltfptr[22] = meltgc_send((melt_ptr_t)(/*_.NVAL__V15*/ meltfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:2901:/ getslot"); @@ -14793,7 +16225,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBINDX__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 3, "LABIND_RES"); - /*_.BXRES__V24*/ meltfptr[23] = slot; + /*_.BXRES__V24*/ + meltfptr[23] = slot; }; ; @@ -14807,7 +16240,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPLAINBLOCK*/ meltfrout->tabval[7])), (3), "CLASS_OBJPLAINBLOCK"); - /*_.INST__V26*/ meltfptr[25] = + /*_.INST__V26*/ + meltfptr[25] = newobj; }; ; @@ -14830,7 +16264,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V26*/ meltfptr[25], "newly made instance"); ; - /*_.OBLOC__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; + /*_.OBLOC__V25*/ + meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; MELT_CHECK_SIGNAL(); ; @@ -14839,7 +16274,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NBINDX__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LABIND_CLONSY"); - /*_.LABIND_CLONSY__V27*/ meltfptr[26] = slot; + /*_.LABIND_CLONSY__V27*/ + meltfptr[26] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2907:/ quasiblock"); @@ -14850,7 +16286,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXIT*/ meltfrout->tabval[8])), (2), "CLASS_OBJEXIT"); - /*_.INST__V29*/ meltfptr[28] = + /*_.INST__V29*/ + meltfptr[28] = newobj; }; ; @@ -14868,7 +16305,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V29*/ meltfptr[28], "newly made instance"); ; - /*_.OBEX__V28*/ meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; + /*_.OBEX__V28*/ + meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; MELT_CHECK_SIGNAL(); ; @@ -14880,7 +16318,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ meltfrout->tabval[9])), (4), "CLASS_OBJCOMPUTE"); - /*_.INST__V31*/ meltfptr[30] = + /*_.INST__V31*/ + meltfptr[30] = newobj; }; ; @@ -14908,7 +16347,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V31*/ meltfptr[30], "newly made instance"); ; - /*_.OBCOM__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; + /*_.OBCOM__V30*/ + meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; { MELT_LOCATION("warmelt-genobj.melt:2917:/ locexp"); @@ -14947,7 +16387,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14956,7 +16397,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2920:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14989,16 +16431,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_exit return obloc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBLOC__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V32*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; + /*_._IF___V32*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2920:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = 0 ; } ; } @@ -15011,7 +16457,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2920:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15020,9 +16467,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15048,7 +16497,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2921:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OBLOC__V25*/ meltfptr[24];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OBLOC__V25*/ meltfptr[24];; { MELT_LOCATION("warmelt-genobj.melt:2921:/ locexp"); @@ -15063,48 +16513,67 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V19*/ meltfptr[17] = /*_.RETURN___V34*/ meltfptr[32];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V19*/ + meltfptr[17] = /*_.RETURN___V34*/ meltfptr[32];; MELT_LOCATION("warmelt-genobj.melt:2896:/ clear"); - /*clear*/ /*_.INSLIST__V20*/ meltfptr[16] = 0 ; + /*clear*/ /*_.INSLIST__V20*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.EPILIST__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.EPILIST__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.DESTLIST__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.DESTLIST__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.OVAL__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.OVAL__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.BXRES__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.BXRES__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.OBLOC__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.OBLOC__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.LABIND_CLONSY__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.LABIND_CLONSY__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.OBEX__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.OBEX__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.OBCOM__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.OBCOM__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V34*/ meltfptr[32] = 0 ; - /*_.LET___V12*/ meltfptr[10] = /*_.LET___V19*/ meltfptr[17];; + /*clear*/ /*_.RETURN___V34*/ + meltfptr[32] = 0 ; + /*_.LET___V12*/ + meltfptr[10] = /*_.LET___V19*/ meltfptr[17];; MELT_LOCATION("warmelt-genobj.melt:2890:/ clear"); - /*clear*/ /*_.NLOC__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NLOC__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.NBINDX__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NBINDX__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NVAL__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.NVAL__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V19*/ + meltfptr[17] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2886:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2886:/ locexp"); @@ -15119,15 +16588,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -15209,7 +16682,8 @@ meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN fromline 1756 */ - /* classy proc frame meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN */ MeltFrame_meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN + /* classy proc frame meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN */ + MeltFrame_meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN fromline 1785*/ #if ENABLE_CHECKING @@ -15222,7 +16696,8 @@ meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_AGAIN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -15232,12 +16707,14 @@ meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2927:/ getarg"); - /*_.NAG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.NAG__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -15269,7 +16746,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15278,7 +16756,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2928:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15311,16 +16790,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_again nag="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAG__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2928:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -15333,7 +16816,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2928:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15342,9 +16826,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15374,10 +16860,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2929:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -15406,25 +16894,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2929; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2929:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2929:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15442,10 +16936,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NAG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_AGAIN*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2930:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -15474,25 +16970,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2930; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAG__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2930:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2930:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15508,7 +17010,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NAG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.NLOC__V13*/ meltfptr[3] = slot; + /*_.NLOC__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2933:/ getslot"); @@ -15516,14 +17019,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NAG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAGAIN_BIND"); - /*_.NLABIND__V14*/ meltfptr[13] = slot; + /*_.NLABIND__V14*/ + meltfptr[13] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2936:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLABIND__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ meltfrout->tabval[5]))) ) /*then*/ @@ -15534,7 +17039,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NLABIND__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LABIND_CLONSY"); - /*_.LABIND_CLONSY__V15*/ meltfptr[14] = slot; + /*_.LABIND_CLONSY__V15*/ + meltfptr[14] = slot; }; ; } @@ -15552,7 +17058,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJAGAIN*/ meltfrout->tabval[4])), (2), "CLASS_OBJAGAIN"); - /*_.INST__V17*/ meltfptr[16] = + /*_.INST__V17*/ + meltfptr[16] = newobj; }; ; @@ -15570,7 +17077,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V17*/ meltfptr[16], "newly made instance"); ; - /*_.OAGAIN__V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; + /*_.OAGAIN__V16*/ + meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2939:/ cppif.then"); @@ -15581,10 +17089,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[1] = + /*_#IS_A__L5*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NLABIND__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:2939:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; @@ -15613,25 +17123,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2939; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NLABIND__V14*/ meltfptr[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V19*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ + meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2939:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = 0 ; } ; } ; - /*_.IFCPP___V18*/ meltfptr[17] = /*_._IFELSE___V19*/ meltfptr[18];; + /*_.IFCPP___V18*/ + meltfptr[17] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2939:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15659,7 +17175,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15668,7 +17185,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2940:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15701,16 +17219,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_again return oagain="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OAGAIN__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18];; + /*_._IF___V21*/ + meltfptr[19] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2940:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[18] = 0 ; } ; } @@ -15723,7 +17245,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2940:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15732,9 +17255,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15760,7 +17285,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2941:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OAGAIN__V16*/ meltfptr[15];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OAGAIN__V16*/ meltfptr[15];; { MELT_LOCATION("warmelt-genobj.melt:2941:/ locexp"); @@ -15775,28 +17301,37 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V23*/ meltfptr[18];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V12*/ + meltfptr[10] = /*_.RETURN___V23*/ meltfptr[18];; MELT_LOCATION("warmelt-genobj.melt:2931:/ clear"); - /*clear*/ /*_.NLOC__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.NLOC__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.NLABIND__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NLABIND__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.LABIND_CLONSY__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.LABIND_CLONSY__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.OAGAIN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.OAGAIN__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V23*/ meltfptr[18] = 0 ; + /*clear*/ /*_.RETURN___V23*/ + meltfptr[18] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2927:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2927:/ locexp"); @@ -15811,15 +17346,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -15901,7 +17440,8 @@ meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY fromline 1756 */ - /* classy proc frame meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY */ MeltFrame_meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY + /* classy proc frame meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY */ + MeltFrame_meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY fromline 1785*/ #if ENABLE_CHECKING @@ -15914,7 +17454,8 @@ meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("COMPILOBJ_DISCRANY", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -15924,12 +17465,14 @@ meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2948:/ getarg"); - /*_.ANYV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.ANYV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -15951,10 +17494,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L1*/ meltfnum[0] = + /*_#IS_A__L1*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:2949:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; @@ -15983,25 +17528,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2949; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V6*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; + /*_._IFELSE___V5*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2949:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ + meltfptr[5] = 0 ; } ; } ; - /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; + /*_.IFCPP___V4*/ + meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2949:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V5*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16015,7 +17566,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2948:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.ANYV__V2*/ meltfptr[1];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.ANYV__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-genobj.melt:2948:/ locexp"); @@ -16030,11 +17582,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V4*/ + meltfptr[3] = 0 ; } ; @@ -16116,7 +17670,8 @@ meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET fromline 1756 */ - /* classy proc frame meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET */ MeltFrame_meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET + /* classy proc frame meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET */ + MeltFrame_meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET fromline 1785*/ #if ENABLE_CHECKING @@ -16129,7 +17684,8 @@ meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_LET", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16139,12 +17695,14 @@ meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:2957:/ getarg"); - /*_.RLET__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RLET__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.GCX__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; @@ -16176,7 +17734,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16185,7 +17744,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2958:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16218,16 +17778,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_let initial rlet="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RLET__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2958:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -16240,7 +17804,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2958:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16249,9 +17814,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16281,10 +17848,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RLET__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LET*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:2959:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -16313,25 +17882,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2959; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RLET__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2959:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ + meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ + meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2959:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16349,10 +17924,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:2960:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; @@ -16381,25 +17958,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2960; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2960:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2960:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16415,7 +17998,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RLET__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); - /*_.LOC__V13*/ meltfptr[3] = slot; + /*_.LOC__V13*/ + meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2962:/ getslot"); @@ -16423,7 +18007,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RLET__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NLET_BINDINGS"); - /*_.BNDS__V14*/ meltfptr[13] = slot; + /*_.BNDS__V14*/ + meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2963:/ getslot"); @@ -16431,7 +18016,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RLET__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NLET_BODY"); - /*_.BDY__V15*/ meltfptr[14] = slot; + /*_.BDY__V15*/ + meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2964:/ getslot"); @@ -16439,13 +18025,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "GNCX_LOCMAP"); - /*_.LOCMAP__V16*/ meltfptr[15] = slot; + /*_.LOCMAP__V16*/ + meltfptr[15] = slot; }; ; - /*_.OBODL__V17*/ meltfptr[16] = + /*_.OBODL__V17*/ + meltfptr[16] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; /*^compute*/ - /*_.OEPIL__V18*/ meltfptr[17] = + /*_.OEPIL__V18*/ + meltfptr[17] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; MELT_CHECK_SIGNAL(); @@ -16458,7 +18047,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPLAINBLOCK*/ meltfrout->tabval[5])), (3), "CLASS_OBJPLAINBLOCK"); - /*_.INST__V20*/ meltfptr[19] = + /*_.INST__V20*/ + meltfptr[19] = newobj; }; ; @@ -16481,7 +18071,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V20*/ meltfptr[19], "newly made instance"); ; - /*_.OBLOCK__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; + /*_.OBLOCK__V19*/ + meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:2972:/ cppif.then"); @@ -16502,7 +18093,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16511,7 +18103,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2972:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16556,16 +18149,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n.. locmap="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.LOCMAP__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; + /*_._IF___V21*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2972:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ + meltfptr[21] = 0 ; } ; } @@ -16578,7 +18175,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2972:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16587,9 +18185,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V21*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16630,10 +18230,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE_OR_NULL__L7*/ meltfnum[0] = + /*_#IS_MULTIPLE_OR_NULL__L7*/ + meltfnum[0] = ((/*_.BNDS__V14*/ meltfptr[13]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.BNDS__V14*/ meltfptr[13])) == MELTOBMAG_MULTIPLE));; MELT_LOCATION("warmelt-genobj.melt:2978:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE_OR_NULL__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[20] = (/*nil*/NULL);; @@ -16662,25 +18264,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2978; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BNDS__V14*/ meltfptr[13]; - /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V24*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; + /*_._IFELSE___V24*/ + meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2978:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ + meltfptr[24] = 0 ; } ; } ; - /*_.IFCPP___V23*/ meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; + /*_.IFCPP___V23*/ + meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2978:/ clear"); - /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16720,7 +18328,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16729,7 +18338,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2983:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16770,16 +18380,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " locmap="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LOCMAP__V16*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V27*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; + /*_._IF___V27*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2983:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[27] = 0 ; } ; } @@ -16792,7 +18406,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2983:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16801,9 +18416,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16833,10 +18450,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[9] = + /*_#IS_A__L11*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.NLBND__V26*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-genobj.melt:2984:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[20] = (/*nil*/NULL);; @@ -16865,25 +18484,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2984; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NLBND__V26*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V30*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; + /*_._IFELSE___V30*/ + meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2984:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ + meltfptr[30] = 0 ; } ; } ; - /*_.IFCPP___V29*/ meltfptr[27] = /*_._IFELSE___V30*/ meltfptr[20];; + /*_.IFCPP___V29*/ + meltfptr[27] = /*_._IFELSE___V30*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2984:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16899,7 +18524,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NLBND__V26*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BDER__V32*/ meltfptr[30] = slot; + /*_.BDER__V32*/ + meltfptr[30] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2986:/ getslot"); @@ -16907,7 +18533,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NLBND__V26*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LETBIND_TYPE"); - /*_.CTY__V33*/ meltfptr[20] = slot; + /*_.CTY__V33*/ + meltfptr[20] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:2987:/ getslot"); @@ -16915,7 +18542,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NLBND__V26*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 2, "LETBIND_EXPR"); - /*_.NEXP__V34*/ meltfptr[33] = slot; + /*_.NEXP__V34*/ + meltfptr[33] = slot; }; ; @@ -16930,7 +18558,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BDER__V32*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTY__V33*/ meltfptr[20]; - /*_.OBVA__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OBVA__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -16953,7 +18582,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16962,7 +18592,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2990:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16999,16 +18630,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n nexp="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V34*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V36*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*_._IF___V36*/ + meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2990:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[36] = 0 ; } ; } @@ -17021,7 +18656,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2990:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17030,9 +18666,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17065,7 +18703,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.OBNX__V38*/ meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.NEXP__V34*/ meltfptr[33]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OBNX__V38*/ + meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.NEXP__V34*/ meltfptr[33]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -17088,7 +18727,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17097,7 +18737,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2992:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17138,16 +18779,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. with obva="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OBVA__V35*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V39*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; + /*_._IF___V39*/ + meltfptr[35] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2992:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ + meltfptr[39] = 0 ; } ; } @@ -17160,7 +18805,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2992:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17169,9 +18815,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V39*/ + meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17194,10 +18842,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L16*/ meltfnum[0] = + /*_#IS_A__L16*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-genobj.melt:2994:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L16*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17207,13 +18857,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L17*/ meltfnum[9] = + /*_#IS_OBJECT__L17*/ + meltfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.OBNX__V38*/ meltfptr[36])) == MELTOBMAG_OBJECT);; /*^compute*/ - /*_#NOT__L18*/ meltfnum[17] = + /*_#NOT__L18*/ + meltfnum[17] = (!(/*_#IS_OBJECT__L17*/ meltfnum[9]));; MELT_LOCATION("warmelt-genobj.melt:2995:/ cond"); - /*cond*/ if (/*_#NOT__L18*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#NOT__L18*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17240,7 +18893,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17249,7 +18903,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:2996:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17286,16 +18941,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " obnx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBNX__V38*/ meltfptr[36]; - /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V44*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V43*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; + /*_._IF___V43*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2996:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ + meltfptr[43] = 0 ; } ; } @@ -17308,7 +18967,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:2996:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17317,9 +18977,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V43*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17349,10 +19011,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L21*/ meltfnum[19] = + /*_#IS_OBJECT__L21*/ + meltfnum[19] = (melt_magic_discr((melt_ptr_t)(/*_.OBNX__V38*/ meltfptr[36])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-genobj.melt:2997:/ cond"); - /*cond*/ if (/*_#IS_OBJECT__L21*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#IS_OBJECT__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V46*/ meltfptr[42] = (/*nil*/NULL);; @@ -17383,25 +19047,31 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBNX__V38*/ meltfptr[36]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V34*/ meltfptr[33]; - /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V47*/ + meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V46*/ meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46];; + /*_._IFELSE___V46*/ + meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2997:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ + meltfptr[46] = 0 ; } ; } ; - /*_.IFCPP___V45*/ meltfptr[43] = /*_._IFELSE___V46*/ meltfptr[42];; + /*_.IFCPP___V45*/ + meltfptr[43] = /*_._IFELSE___V46*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2997:/ clear"); - /*clear*/ /*_#IS_OBJECT__L21*/ meltfnum[19] = 0 ; + /*clear*/ /*_#IS_OBJECT__L21*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V46*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IFELSE___V46*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17412,15 +19082,19 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:2995:/ quasiblock"); - /*_.PROGN___V48*/ meltfptr[46] = /*_.IFCPP___V45*/ meltfptr[43];; + /*_.PROGN___V48*/ + meltfptr[46] = /*_.IFCPP___V45*/ meltfptr[43];; /*^compute*/ - /*_._IF___V42*/ meltfptr[35] = /*_.PROGN___V48*/ meltfptr[46];; + /*_._IF___V42*/ + meltfptr[35] = /*_.PROGN___V48*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2995:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ meltfptr[43] = 0 ; + /*clear*/ /*_.IFCPP___V45*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V48*/ meltfptr[46] = 0 ; + /*clear*/ /*_.PROGN___V48*/ + meltfptr[46] = 0 ; } ; } @@ -17431,15 +19105,19 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IF___V41*/ meltfptr[39] = /*_._IF___V42*/ meltfptr[35];; + /*_._IF___V41*/ + meltfptr[39] = /*_._IF___V42*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:2994:/ clear"); - /*clear*/ /*_#IS_OBJECT__L17*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_OBJECT__L17*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#NOT__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[35] = 0 ; } ; } @@ -17453,7 +19131,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2999:/ cond"); - /*cond*/ if (/*_.OBVA__V35*/ meltfptr[34]) /*then*/ + /*cond*/ + if (/*_.OBVA__V35*/ meltfptr[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17488,7 +19167,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ meltfnum[18] = + /*_#MELT_NEED_DBG__L22*/ + meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17497,7 +19177,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3002:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L22*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17538,16 +19219,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n obva="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OBVA__V35*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V50*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V50*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V49*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[43];; + /*_._IF___V49*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3002:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ + meltfptr[43] = 0 ; } ; } @@ -17560,7 +19245,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3002:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17569,9 +19255,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V49*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V49*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17604,11 +19292,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OBVA__V35*/ meltfptr[34]; - /*_.OBPD__V51*/ meltfptr[46] = meltgc_send((melt_ptr_t)(/*_.OBNX__V38*/ meltfptr[36]), (melt_ptr_t)((/*!PUT_OBJDEST*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OBPD__V51*/ + meltfptr[46] = meltgc_send((melt_ptr_t)(/*_.OBNX__V38*/ meltfptr[36]), (melt_ptr_t)((/*!PUT_OBJDEST*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:3006:/ cond"); - /*cond*/ if (/*_.OBPD__V51*/ meltfptr[46]) /*then*/ + /*cond*/ + if (/*_.OBPD__V51*/ meltfptr[46]) /*then*/ { /*^cond.then*/ /*_.OBMY__V52*/ meltfptr[35] = /*_.OBPD__V51*/ meltfptr[46];; @@ -17617,7 +19307,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3006:/ cond.else"); - /*_.OBMY__V52*/ meltfptr[35] = /*_.OBNX__V38*/ meltfptr[36];; + /*_.OBMY__V52*/ + meltfptr[35] = /*_.OBNX__V38*/ meltfptr[36];; } ; @@ -17640,7 +19331,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L24*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L24*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17649,7 +19341,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3008:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L24*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17686,16 +19379,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " obmy="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBMY__V52*/ meltfptr[35]; - /*_.MELT_DEBUG_FUN__V54*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V53*/ meltfptr[43] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[42];; + /*_._IF___V53*/ + meltfptr[43] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3008:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L25*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ + meltfptr[42] = 0 ; } ; } @@ -17708,7 +19405,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3008:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17717,9 +19415,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L24*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V53*/ + meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17747,9 +19447,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-genobj.melt:3005:/ clear"); - /*clear*/ /*_.OBPD__V51*/ meltfptr[46] = 0 ; + /*clear*/ /*_.OBPD__V51*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.OBMY__V52*/ meltfptr[35] = 0 ; + /*clear*/ /*_.OBMY__V52*/ + meltfptr[35] = 0 ; MELT_LOCATION("warmelt-genobj.melt:2999:/ quasiblock"); @@ -17784,7 +19486,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17793,7 +19496,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3013:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17826,16 +19530,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_let append obnx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBNX__V38*/ meltfptr[36]; - /*_.MELT_DEBUG_FUN__V56*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V55*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[43];; + /*_._IF___V55*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3013:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[43] = 0 ; } ; } @@ -17848,7 +19556,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3013:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17857,9 +19566,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V55*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V55*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17897,7 +19608,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:3017:/ cond"); - /*cond*/ if (/*_.OBVA__V35*/ meltfptr[34]) /*then*/ + /*cond*/ + if (/*_.OBVA__V35*/ meltfptr[34]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17918,7 +19630,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ meltfrout->tabval[11])), (2), "CLASS_OBJCLEAR"); - /*_.INST__V58*/ meltfptr[35] = + /*_.INST__V58*/ + meltfptr[35] = newobj; }; ; @@ -17936,7 +19649,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V58*/ meltfptr[35], "newly made instance"); ; - /*_.OBCL__V57*/ meltfptr[46] = /*_.INST__V58*/ meltfptr[35];; + /*_.OBCL__V57*/ + meltfptr[46] = /*_.INST__V58*/ meltfptr[35];; { MELT_LOCATION("warmelt-genobj.melt:3022:/ locexp"); @@ -17945,7 +19659,8 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-genobj.melt:3018:/ clear"); - /*clear*/ /*_.OBCL__V57*/ meltfptr[46] = 0 ; + /*clear*/ /*_.OBCL__V57*/ + meltfptr[46] = 0 ; /*epilog*/ } ; @@ -17953,31 +19668,41 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-genobj.melt:2991:/ clear"); - /*clear*/ /*_.OBNX__V38*/ meltfptr[36] = 0 ; + /*clear*/ /*_.OBNX__V38*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L16*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L16*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V41*/ + meltfptr[39] = 0 ; MELT_LOCATION("warmelt-genobj.melt:2985:/ clear"); - /*clear*/ /*_.BDER__V32*/ meltfptr[30] = 0 ; + /*clear*/ /*_.BDER__V32*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.CTY__V33*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CTY__V33*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXP__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NEXP__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.OBVA__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.OBVA__V35*/ + meltfptr[34] = 0 ; if (/*_#BNDIX__L8*/ meltfnum[1]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:2980:/ clear"); - /*clear*/ /*_.NLBND__V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_.NLBND__V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#BNDIX__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#BNDIX__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_.IFCPP___V29*/ + meltfptr[27] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -18000,7 +19725,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L28*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L28*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18009,7 +19735,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3024:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L28*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18050,16 +19777,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n.. oepil="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OEPIL__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V60*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V59*/ meltfptr[43] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[42];; + /*_._IF___V59*/ + meltfptr[43] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3024:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L29*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[42] = 0 ; } ; } @@ -18072,7 +19803,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3024:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18081,9 +19813,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L28*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V59*/ meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V59*/ + meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18113,10 +19847,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE_OR_NULL__L30*/ meltfnum[18] = + /*_#IS_MULTIPLE_OR_NULL__L30*/ + meltfnum[18] = ((/*_.BDY__V15*/ meltfptr[14]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.BDY__V15*/ meltfptr[14])) == MELTOBMAG_MULTIPLE));; MELT_LOCATION("warmelt-genobj.melt:3028:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L30*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE_OR_NULL__L30*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V62*/ meltfptr[36] = (/*nil*/NULL);; @@ -18145,25 +19881,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3028; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BDY__V15*/ meltfptr[14]; - /*_.MELT_ASSERT_FAILURE_FUN__V63*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V63*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V62*/ meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V63*/ meltfptr[39];; + /*_._IFELSE___V62*/ + meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V63*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3028:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V63*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V63*/ + meltfptr[39] = 0 ; } ; } ; - /*_.IFCPP___V61*/ meltfptr[46] = /*_._IFELSE___V62*/ meltfptr[36];; + /*_.IFCPP___V61*/ + meltfptr[46] = /*_._IFELSE___V62*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3028:/ clear"); - /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L30*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L30*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V62*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IFELSE___V62*/ + meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18203,7 +19945,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L32*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L32*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18212,7 +19955,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3032:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L32*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18253,16 +19997,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " bdyix="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#BDYIX__L31*/ meltfnum[19]; - /*_.MELT_DEBUG_FUN__V66*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V66*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V65*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[33];; + /*_._IF___V65*/ + meltfptr[20] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3032:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L33*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ + meltfptr[33] = 0 ; } ; } @@ -18275,7 +20023,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3032:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18284,9 +20033,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L32*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V65*/ meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V65*/ + meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18319,7 +20070,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.OBJCOMP__V67*/ meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.BDYCOMP__V64*/ meltfptr[30]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OBJCOMP__V67*/ + meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.BDYCOMP__V64*/ meltfptr[30]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -18342,7 +20094,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L34*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L34*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18351,7 +20104,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3036:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L34*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L34*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18384,16 +20138,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_let body objcomp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBJCOMP__V67*/ meltfptr[34]; - /*_.MELT_DEBUG_FUN__V69*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V68*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[43];; + /*_._IF___V68*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3036:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L35*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L35*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ + meltfptr[43] = 0 ; } ; } @@ -18406,7 +20164,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3036:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18415,9 +20174,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L34*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L34*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V68*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V68*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18440,10 +20201,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L36*/ meltfnum[9] = + /*_#NULL__L36*/ + meltfnum[9] = (/*null*/(/*_.OBJCOMP__V67*/ meltfptr[34]) == NULL);; MELT_LOCATION("warmelt-genobj.melt:3039:/ cond"); - /*cond*/ if (/*_#NULL__L36*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#NULL__L36*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18453,7 +20216,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3040:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*epilog*/ @@ -18481,18 +20245,22 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-genobj.melt:3034:/ clear"); - /*clear*/ /*_.OBJCOMP__V67*/ meltfptr[34] = 0 ; + /*clear*/ /*_.OBJCOMP__V67*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L36*/ meltfnum[9] = 0 ; + /*clear*/ /*_#NULL__L36*/ + meltfnum[9] = 0 ; if (/*_#BDYIX__L31*/ meltfnum[19]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:3029:/ clear"); - /*clear*/ /*_.BDYCOMP__V64*/ meltfptr[30] = 0 ; + /*clear*/ /*_.BDYCOMP__V64*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#BDYIX__L31*/ meltfnum[19] = 0 ; + /*clear*/ /*_#BDYIX__L31*/ + meltfnum[19] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -18515,7 +20283,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L37*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L37*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18524,7 +20293,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3042:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L37*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18557,16 +20327,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compilobj_nrep_let after iterate body loc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V71*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V71*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V70*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V71*/ meltfptr[36];; + /*_._IF___V70*/ + meltfptr[39] = /*_.MELT_DEBUG_FUN__V71*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3042:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L38*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V71*/ meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V71*/ + meltfptr[36] = 0 ; } ; } @@ -18579,7 +20353,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3042:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18588,9 +20363,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L37*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V70*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V70*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18630,7 +20407,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L39*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L39*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18639,7 +20417,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3045:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L39*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18688,16 +20467,20 @@ meltlab_endgetargs: argtab[11].meltbp_cstring = "\n... loc="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V73*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V72*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[20];; + /*_._IF___V72*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3045:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L40*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ + meltfptr[20] = 0 ; } ; } @@ -18710,7 +20493,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3045:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18719,9 +20503,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L39*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V72*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V72*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18773,7 +20559,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L42*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L42*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18782,7 +20569,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3052:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L42*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L42*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18823,16 +20611,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " ix="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#IX__L41*/ meltfnum[18]; - /*_.MELT_DEBUG_FUN__V76*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V76*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V75*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[34];; + /*_._IF___V75*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3052:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L43*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L43*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ + meltfptr[34] = 0 ; } ; } @@ -18845,7 +20637,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3052:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -18854,9 +20647,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L42*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L42*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V75*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V75*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -18886,7 +20681,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; - /*_.DISPOSE_BND_OBJ__V77*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.OBND__V74*/ meltfptr[43]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DISPOSE_BND_OBJ__V77*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.OBND__V74*/ meltfptr[43]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#IX__L41*/ meltfnum[18]<0) break; @@ -18895,11 +20691,14 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:3049:/ clear"); - /*clear*/ /*_.OBND__V74*/ meltfptr[43] = 0 ; + /*clear*/ /*_.OBND__V74*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L41*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IX__L41*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.DISPOSE_BND_OBJ__V77*/ meltfptr[36] = 0 ; + /*clear*/ /*_.DISPOSE_BND_OBJ__V77*/ + meltfptr[36] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -18922,7 +20721,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L44*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L44*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -18931,7 +20731,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3054:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L44*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L44*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18972,16 +20773,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n... loc="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V79*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V79*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V78*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V79*/ meltfptr[20];; + /*_._IF___V78*/ + meltfptr[39] = /*_.MELT_DEBUG_FUN__V79*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3054:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L45*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L45*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V79*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V79*/ + meltfptr[20] = 0 ; } ; } @@ -18994,7 +20799,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3054:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19003,9 +20809,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L44*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L44*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V78*/ meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V78*/ + meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19045,7 +20853,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L46*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L46*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19054,7 +20863,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3055:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L46*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L46*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19095,16 +20905,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " oblock="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OBLOCK__V19*/ meltfptr[18]; - /*_.MELT_DEBUG_FUN__V81*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V81*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V80*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[34];; + /*_._IF___V80*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3055:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L47*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L47*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V81*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V81*/ + meltfptr[34] = 0 ; } ; } @@ -19117,7 +20931,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3055:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19126,9 +20941,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L46*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L46*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V80*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V80*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19154,7 +20971,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:3056:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.OBLOCK__V19*/ meltfptr[18];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.OBLOCK__V19*/ meltfptr[18];; { MELT_LOCATION("warmelt-genobj.melt:3056:/ locexp"); @@ -19169,36 +20987,49 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V82*/ meltfptr[42];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V12*/ + meltfptr[10] = /*_.RETURN___V82*/ meltfptr[42];; MELT_LOCATION("warmelt-genobj.melt:2961:/ clear"); - /*clear*/ /*_.LOC__V13*/ meltfptr[3] = 0 ; + /*clear*/ /*_.LOC__V13*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.BNDS__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.BNDS__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.BDY__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.BDY__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.LOCMAP__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LOCMAP__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.OBODL__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.OBODL__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.OEPIL__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.OEPIL__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.OBLOCK__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.OBLOCK__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V61*/ meltfptr[46] = 0 ; + /*clear*/ /*_.IFCPP___V61*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V82*/ meltfptr[42] = 0 ; + /*clear*/ /*_.RETURN___V82*/ + meltfptr[42] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:2957:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:2957:/ locexp"); @@ -19213,15 +21044,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[10] = 0 ; } ; @@ -19303,7 +21138,8 @@ meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL fromline 1756 */ - /* classy proc frame meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL */ MeltFrame_meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL + /* classy proc frame meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL */ + MeltFrame_meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL fromline 1785*/ #if ENABLE_CHECKING @@ -19316,7 +21152,8 @@ meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("FAIL_COMPILETRECFILL", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -19326,33 +21163,38 @@ meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL(meltclosure_ptr_t meltclosp_, m /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:3077:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OBVA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.OBVA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OBVA__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OBODL__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OBODL__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OBODL__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.GCX__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SLOC__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.SLOC__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5])) != NULL); ; @@ -19384,7 +21226,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19393,7 +21236,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3078:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19430,16 +21274,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " obva="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBVA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3078:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -19452,7 +21300,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3078:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19461,9 +21310,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19486,10 +21337,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-genobj.melt:3079:/ quasiblock"); - /*_.D__V10*/ meltfptr[6] = + /*_.D__V10*/ + meltfptr[6] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-genobj.melt:3081:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.D__V10*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1]))) ) /*then*/ @@ -19500,7 +21353,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.D__V10*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V11*/ meltfptr[10] = slot; + /*_.NAMED_NAME__V11*/ + meltfptr[10] = slot; }; ; } @@ -19527,7 +21381,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; @@ -19556,23 +21411,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3082; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3082:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[11] = /*_._IFELSE___V13*/ meltfptr[12];; + /*_.IFCPP___V12*/ + meltfptr[11] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3082:/ clear"); - /*clear*/ /*_._IFELSE___V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19581,21 +21441,26 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_.LET___V9*/ meltfptr[7] = /*_.IFCPP___V12*/ meltfptr[11];; + /*_.LET___V9*/ + meltfptr[7] = /*_.IFCPP___V12*/ meltfptr[11];; MELT_LOCATION("warmelt-genobj.melt:3079:/ clear"); - /*clear*/ /*_.D__V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_.D__V10*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.NAMED_NAME__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[11] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:3077:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-genobj.melt:3077:/ locexp"); @@ -19610,11 +21475,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.LET___V9*/ + meltfptr[7] = 0 ; } ; @@ -19696,7 +21563,8 @@ meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA fromline 1756 */ - /* classy proc frame meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA */ MeltFrame_meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA + /* classy proc frame meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA */ + MeltFrame_meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA fromline 1785*/ #if ENABLE_CHECKING @@ -19709,7 +21577,8 @@ meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("COMPILETREC_LAMBDA", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -19719,33 +21588,38 @@ meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:3088:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OBVA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.OBVA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OBVA__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OBODL__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OBODL__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OBODL__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.GCX__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SLOC__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.SLOC__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5])) != NULL); ; @@ -19777,7 +21651,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19786,7 +21661,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3089:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19823,16 +21699,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " obva="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBVA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3089:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -19845,7 +21725,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3089:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19854,9 +21735,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19886,10 +21769,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:3090:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -19918,25 +21803,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3090; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3090:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3090:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19954,10 +21845,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OBVA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:3091:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[6] = (/*nil*/NULL);; @@ -19986,25 +21879,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3091; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBVA__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3091:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; + /*_.IFCPP___V12*/ + meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3091:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20022,10 +21921,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L5*/ meltfnum[1] = + /*_#IS_LIST__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OBODL__V4*/ meltfptr[3])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-genobj.melt:3092:/ cond"); - /*cond*/ if (/*_#IS_LIST__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[6] = (/*nil*/NULL);; @@ -20054,25 +21955,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3092; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBODL__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3092:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; + /*_.IFCPP___V15*/ + meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3092:/ clear"); - /*clear*/ /*_#IS_LIST__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20084,7 +21991,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ meltfrout->tabval[4]))) ) /*then*/ @@ -20095,7 +22003,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCONSB_LOC"); - /*_.NCONSB_LOC__V18*/ meltfptr[16] = slot; + /*_.NCONSB_LOC__V18*/ + meltfptr[16] = slot; }; ; } @@ -20106,7 +22015,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-genobj.melt:3093:/ cond"); - /*cond*/ if (/*_.NCONSB_LOC__V18*/ meltfptr[16]) /*then*/ + /*cond*/ + if (/*_.NCONSB_LOC__V18*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*_.LOC__V19*/ meltfptr[6] = /*_.NCONSB_LOC__V18*/ meltfptr[16];; @@ -20115,11 +22025,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3093:/ cond.else"); - /*_.LOC__V19*/ meltfptr[6] = /*_.SLOC__V6*/ meltfptr[5];; + /*_.LOC__V19*/ + meltfptr[6] = /*_.SLOC__V6*/ meltfptr[5];; } ; MELT_LOCATION("warmelt-genobj.melt:3094:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ meltfrout->tabval[1]))) ) /*then*/ @@ -20130,7 +22042,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NLAMBDAB_NCLOSED"); - /*_.NCLOSED__V20*/ meltfptr[19] = slot; + /*_.NCLOSED__V20*/ + meltfptr[19] = slot; }; ; } @@ -20141,7 +22054,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-genobj.melt:3095:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ meltfrout->tabval[1]))) ) /*then*/ @@ -20152,7 +22066,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NLAMBDAB_CONSTROUT"); - /*_.NCONSTROUT__V21*/ meltfptr[20] = slot; + /*_.NCONSTROUT__V21*/ + meltfptr[20] = slot; }; ; } @@ -20173,7 +22088,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ meltfrout->tabval[5])), (3), "CLASS_OBJTOUCH"); - /*_.INST__V23*/ meltfptr[22] = + /*_.INST__V23*/ + meltfptr[22] = newobj; }; ; @@ -20191,7 +22107,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V23*/ meltfptr[22], "newly made instance"); ; - /*_.OTOUCH__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; + /*_.OTOUCH__V22*/ + meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; MELT_CHECK_SIGNAL(); ; @@ -20202,7 +22119,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V5*/ meltfptr[4]; - /*_.OCROUT__V24*/ meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.NCONSTROUT__V21*/ meltfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OCROUT__V24*/ + meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.NCONSTROUT__V21*/ meltfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -20216,7 +22134,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSUROUT*/ meltfrout->tabval[7])), (3), "CLASS_OBJPUTCLOSUROUT"); - /*_.INST__V26*/ meltfptr[25] = + /*_.INST__V26*/ + meltfptr[25] = newobj; }; ; @@ -20239,7 +22158,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V26*/ meltfptr[25], "newly made instance"); ; - /*_.OPUTROUT__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; + /*_.OPUTROUT__V25*/ + meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:3107:/ cppif.then"); @@ -20260,7 +22180,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20269,7 +22190,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3107:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20302,16 +22224,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_lambda oputrout="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OPUTROUT__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V27*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; + /*_._IF___V27*/ + meltfptr[26] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3107:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[27] = 0 ; } ; } @@ -20324,7 +22250,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3107:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20333,9 +22260,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20381,7 +22310,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20390,7 +22320,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3110:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20423,16 +22354,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_lambda nclosed="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCLOSED__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[26];; + /*_._IF___V29*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3110:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[26] = 0 ; } ; } @@ -20445,7 +22380,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3110:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20454,9 +22390,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20508,7 +22446,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20517,7 +22456,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3114:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20554,16 +22494,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#CURIX__L10*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V32*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; + /*_._IF___V32*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3114:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = 0 ; } ; } @@ -20576,7 +22520,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3114:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20585,9 +22530,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20620,7 +22567,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V5*/ meltfptr[4]; - /*_.OCLOSED__V34*/ meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.CURCLOSED__V31*/ meltfptr[26]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OCLOSED__V34*/ + meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.CURCLOSED__V31*/ meltfptr[26]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -20643,7 +22591,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L13*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20652,7 +22601,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3117:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20685,16 +22635,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_lambda oclosed="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCLOSED__V34*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V35*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; + /*_._IF___V35*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3117:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[35] = 0 ; } ; } @@ -20707,7 +22661,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3117:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20716,9 +22671,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20741,10 +22698,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L15*/ meltfnum[1] = + /*_#IS_NOT_A__L15*/ + meltfnum[1] = !melt_is_instance_of((melt_ptr_t)(/*_.OCLOSED__V34*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-genobj.melt:3118:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L15*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L15*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_#OR___L16*/ meltfnum[11] = /*_#IS_NOT_A__L15*/ meltfnum[1];; @@ -20760,17 +22719,20 @@ meltlab_endgetargs: /*_#IS_A__L17*/ meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.OCLOSED__V34*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ meltfrout->tabval[8])));; /*^compute*/ - /*_#OR___L16*/ meltfnum[11] = /*_#IS_A__L17*/ meltfnum[16];; + /*_#OR___L16*/ + meltfnum[11] = /*_#IS_A__L17*/ meltfnum[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3118:/ clear"); - /*clear*/ /*_#IS_A__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L17*/ + meltfnum[16] = 0 ; } ; } ; /*^cond*/ - /*cond*/ if (/*_#OR___L16*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#OR___L16*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20780,10 +22742,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L18*/ meltfnum[16] = + /*_#gtI__L18*/ + meltfnum[16] = ((/*_#CURIX__L10*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-genobj.melt:3120:/ cond"); - /*cond*/ if (/*_#gtI__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#gtI__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20813,7 +22777,8 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#gtI__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#gtI__L18*/ + meltfnum[16] = 0 ; } ; } @@ -20844,7 +22809,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L19*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -20853,7 +22819,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3125:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L19*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20886,16 +22853,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_lambda ignored generated code oclosed="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCLOSED__V34*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V37*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[27];; + /*_._IF___V37*/ + meltfptr[35] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3125:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ + meltfptr[27] = 0 ; } ; } @@ -20908,7 +22879,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3125:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -20917,9 +22889,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V37*/ + meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -20953,7 +22927,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.MAKE_INTEGERBOX__V39*/ meltfptr[27] = + /*_.MAKE_INTEGERBOX__V39*/ + meltfptr[27] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[11])), (/*_#CURIX__L10*/ meltfnum[0])));; MELT_LOCATION("warmelt-genobj.melt:3128:/ quasiblock"); @@ -20963,7 +22938,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ meltfrout->tabval[10])), (4), "CLASS_OBJPUTCLOSEDV"); - /*_.INST__V41*/ meltfptr[40] = + /*_.INST__V41*/ + meltfptr[40] = newobj; }; ; @@ -20991,7 +22967,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V41*/ meltfptr[40], "newly made instance"); ; - /*_.OPUTCLO__V40*/ meltfptr[35] = /*_.INST__V41*/ meltfptr[40];; + /*_.OPUTCLO__V40*/ + meltfptr[35] = /*_.INST__V41*/ meltfptr[40];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:3135:/ cppif.then"); @@ -21012,7 +22989,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21021,7 +22999,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3135:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21054,16 +23033,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_lambda oputclo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OPUTCLO__V40*/ meltfptr[35]; - /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V42*/ meltfptr[41] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; + /*_._IF___V42*/ + meltfptr[41] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3135:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ + meltfptr[42] = 0 ; } ; } @@ -21076,7 +23059,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3135:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21085,9 +23069,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_._IF___V42*/ + meltfptr[41] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21115,25 +23101,32 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-genobj.melt:3127:/ clear"); - /*clear*/ /*_.MAKE_INTEGERBOX__V39*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V39*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.OPUTCLO__V40*/ meltfptr[35] = 0 ; + /*clear*/ /*_.OPUTCLO__V40*/ + meltfptr[35] = 0 ; MELT_LOCATION("warmelt-genobj.melt:3115:/ clear"); - /*clear*/ /*_.OCLOSED__V34*/ meltfptr[32] = 0 ; + /*clear*/ /*_.OCLOSED__V34*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L15*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_NOT_A__L15*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L16*/ meltfnum[11] = 0 ; + /*clear*/ /*_#OR___L16*/ + meltfnum[11] = 0 ; if (/*_#CURIX__L10*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:3111:/ clear"); - /*clear*/ /*_.CURCLOSED__V31*/ meltfptr[26] = 0 ; + /*clear*/ /*_.CURCLOSED__V31*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#CURIX__L10*/ meltfnum[0] = 0 ; + /*clear*/ /*_#CURIX__L10*/ + meltfnum[0] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -21162,7 +23155,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L23*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L23*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21171,7 +23165,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3140:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L23*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21204,16 +23199,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_lambda final obodl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBODL__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V45*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V45*/ + meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V44*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[41];; + /*_._IF___V44*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3140:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L24*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ + meltfptr[41] = 0 ; } ; } @@ -21226,7 +23225,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3140:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21235,9 +23235,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L23*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V44*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21259,30 +23261,40 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-genobj.melt:3093:/ clear"); - /*clear*/ /*_.NCONSB_LOC__V18*/ meltfptr[16] = 0 ; + /*clear*/ /*_.NCONSB_LOC__V18*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V19*/ meltfptr[6] = 0 ; + /*clear*/ /*_.LOC__V19*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.NCLOSED__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.NCLOSED__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NCONSTROUT__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.NCONSTROUT__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.OTOUCH__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.OTOUCH__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.OCROUT__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.OCROUT__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.OPUTROUT__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.OPUTROUT__V25*/ + meltfptr[24] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3088:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ + meltfptr[13] = 0 ; } ; @@ -21364,7 +23376,8 @@ meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE fromline 1756 */ - /* classy proc frame meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE */ MeltFrame_meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE + /* classy proc frame meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE */ + MeltFrame_meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE fromline 1785*/ #if ENABLE_CHECKING @@ -21377,7 +23390,8 @@ meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("COMPILETREC_TUPLE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -21387,33 +23401,38 @@ meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:3147:/ getarg"); - /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.RECV__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OBVA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.OBVA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OBVA__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OBODL__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OBODL__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OBODL__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.GCX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.GCX__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.SLOC__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.SLOC__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ meltfptr[5])) != NULL); ; @@ -21445,7 +23464,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21454,7 +23474,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3148:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21491,16 +23512,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " obva="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBVA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3148:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -21513,7 +23538,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3148:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21522,9 +23548,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21554,10 +23582,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ meltfnum[1] = + /*_#IS_A__L3*/ + meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:3149:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -21586,25 +23616,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3149; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3149:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3149:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21622,10 +23658,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ meltfnum[0] = + /*_#IS_A__L4*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OBVA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:3150:/ cond"); - /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[6] = (/*nil*/NULL);; @@ -21654,25 +23692,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3150; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBVA__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3150:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; + /*_.IFCPP___V12*/ + meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3150:/ clear"); - /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21690,10 +23734,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L5*/ meltfnum[1] = + /*_#IS_LIST__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OBODL__V4*/ meltfptr[3])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-genobj.melt:3151:/ cond"); - /*cond*/ if (/*_#IS_LIST__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[6] = (/*nil*/NULL);; @@ -21722,25 +23768,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3151; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBODL__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3151:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; + /*_.IFCPP___V15*/ + meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3151:/ clear"); - /*clear*/ /*_#IS_LIST__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_LIST__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21752,7 +23804,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ meltfrout->tabval[4]))) ) /*then*/ @@ -21763,7 +23816,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCONSB_LOC"); - /*_.NCONSB_LOC__V18*/ meltfptr[16] = slot; + /*_.NCONSB_LOC__V18*/ + meltfptr[16] = slot; }; ; } @@ -21774,7 +23828,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-genobj.melt:3152:/ cond"); - /*cond*/ if (/*_.NCONSB_LOC__V18*/ meltfptr[16]) /*then*/ + /*cond*/ + if (/*_.NCONSB_LOC__V18*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*_.LOC__V19*/ meltfptr[6] = /*_.NCONSB_LOC__V18*/ meltfptr[16];; @@ -21783,11 +23838,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3152:/ cond.else"); - /*_.LOC__V19*/ meltfptr[6] = /*_.SLOC__V6*/ meltfptr[5];; + /*_.LOC__V19*/ + meltfptr[6] = /*_.SLOC__V6*/ meltfptr[5];; } ; MELT_LOCATION("warmelt-genobj.melt:3153:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ meltfrout->tabval[1]))) ) /*then*/ @@ -21798,7 +23855,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NTUPB_COMP"); - /*_.NCOMPTUP__V20*/ meltfptr[19] = slot; + /*_.NCOMPTUP__V20*/ + meltfptr[19] = slot; }; ; } @@ -21819,7 +23877,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ meltfrout->tabval[5])), (3), "CLASS_OBJTOUCH"); - /*_.INST__V22*/ meltfptr[21] = + /*_.INST__V22*/ + meltfptr[21] = newobj; }; ; @@ -21837,7 +23896,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V22*/ meltfptr[21], "newly made instance"); ; - /*_.OTOUCH__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; + /*_.OTOUCH__V21*/ + meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:3159:/ cppif.then"); @@ -21858,7 +23918,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21867,7 +23928,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3159:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21900,16 +23962,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_tuple ncomptup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCOMPTUP__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3159:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ + meltfptr[23] = 0 ; } ; } @@ -21922,7 +23988,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3159:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -21931,9 +23998,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -21985,7 +24054,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -21994,7 +24064,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3163:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22031,16 +24102,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L8*/ meltfnum[1]; - /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; + /*_._IF___V26*/ + meltfptr[22] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3163:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = 0 ; } ; } @@ -22053,7 +24128,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3163:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22062,9 +24138,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22097,13 +24175,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V5*/ meltfptr[4]; - /*_.OCOMP__V28*/ meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.NCURCOMP__V25*/ meltfptr[23]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.OCOMP__V28*/ + meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.NCURCOMP__V25*/ meltfptr[23]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_INTEGERBOX__V29*/ meltfptr[22] = + /*_.MAKE_INTEGERBOX__V29*/ + meltfptr[22] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[8])), (/*_#IX__L8*/ meltfnum[1])));; MELT_LOCATION("warmelt-genobj.melt:3165:/ quasiblock"); @@ -22113,7 +24193,8 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTUPLE*/ meltfrout->tabval[7])), (4), "CLASS_OBJPUTUPLE"); - /*_.INST__V31*/ meltfptr[30] = + /*_.INST__V31*/ + meltfptr[30] = newobj; }; ; @@ -22141,7 +24222,8 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V31*/ meltfptr[30], "newly made instance"); ; - /*_.OPUTN__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; + /*_.OPUTN__V30*/ + meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-genobj.melt:3172:/ cppif.then"); @@ -22162,7 +24244,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22171,7 +24254,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3172:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22204,16 +24288,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_tuple ocomp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCOMP__V28*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V32*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; + /*_._IF___V32*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3172:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[32] = 0 ; } ; } @@ -22226,7 +24314,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3172:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22235,9 +24324,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22260,10 +24351,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L13*/ meltfnum[0] = + /*_#IS_NOT_A__L13*/ + meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.OCOMP__V28*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-genobj.melt:3173:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L13*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_#OR___L14*/ meltfnum[9] = /*_#IS_NOT_A__L13*/ meltfnum[0];; @@ -22279,17 +24372,20 @@ meltlab_endgetargs: /*_#IS_A__L15*/ meltfnum[14] = melt_is_instance_of((melt_ptr_t)(/*_.OCOMP__V28*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ meltfrout->tabval[9])));; /*^compute*/ - /*_#OR___L14*/ meltfnum[9] = /*_#IS_A__L15*/ meltfnum[14];; + /*_#OR___L14*/ + meltfnum[9] = /*_#IS_A__L15*/ meltfnum[14];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3173:/ clear"); - /*clear*/ /*_#IS_A__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#IS_A__L15*/ + meltfnum[14] = 0 ; } ; } ; /*^cond*/ - /*cond*/ if (/*_#OR___L14*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#OR___L14*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22342,7 +24438,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22351,7 +24448,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3179:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22384,16 +24482,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_tuple ignored generated code ocomp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCOMP__V28*/ meltfptr[26]; - /*_.MELT_DEBUG_FUN__V35*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V34*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[31];; + /*_._IF___V34*/ + meltfptr[32] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3179:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[31] = 0 ; } ; } @@ -22406,7 +24508,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3179:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22415,9 +24518,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22453,24 +24558,31 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-genobj.melt:3164:/ clear"); - /*clear*/ /*_.OCOMP__V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_.OCOMP__V28*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V29*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V29*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.OPUTN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.OPUTN__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L13*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_NOT_A__L13*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L14*/ meltfnum[9] = 0 ; + /*clear*/ /*_#OR___L14*/ + meltfnum[9] = 0 ; if (/*_#IX__L8*/ meltfnum[1]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:3160:/ clear"); - /*clear*/ /*_.NCURCOMP__V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.NCURCOMP__V25*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L8*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IX__L8*/ + meltfnum[1] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -22499,7 +24611,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -22508,7 +24621,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:3184:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22541,16 +24655,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "compiletrec_tuple final obodl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBODL__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V36*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[32];; + /*_._IF___V36*/ + meltfptr[31] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3184:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ + meltfptr[32] = 0 ; } ; } @@ -22563,7 +24681,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-genobj.melt:3184:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -22572,9 +24691,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -22596,24 +24717,31 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-genobj.melt:3152:/ clear"); - /*clear*/ /*_.NCONSB_LOC__V18*/ meltfptr[16] = 0 ; + /*clear*/ /*_.NCONSB_LOC__V18*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V19*/ meltfptr[6] = 0 ; + /*clear*/ /*_.LOC__V19*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.NCOMPTUP__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.NCOMPTUP__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.OTOUCH__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.OTOUCH__V21*/ + meltfptr[20] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:3147:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ + meltfptr[13] = 0 ; } ; |