diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-genobj+03.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-genobj+03.c | 2095 |
1 files changed, 1373 insertions, 722 deletions
diff --git a/gcc/melt/generated/warmelt-genobj+03.c b/gcc/melt/generated/warmelt-genobj+03.c index 2d26838b0d9..b5ffab95c20 100644 --- a/gcc/melt/generated/warmelt-genobj+03.c +++ b/gcc/melt/generated/warmelt-genobj+03.c @@ -1707,7 +1707,26 @@ meltrout_112_warmelt_genobj_COMPILOBJ_NREP_IFISA (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC (meltclosure_ptr_t +meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFTUPLESIZED (meltclosure_ptr_t + meltclosp_, + melt_ptr_t + meltfirstargp_, + const + melt_argdescr_cell_t + meltxargdescr_[], + union meltparam_un + *meltxargtab_, + const + melt_argdescr_cell_t + meltxresdescr_[], + union meltparam_un + *meltxrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_114_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1726,7 +1745,7 @@ meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_114_warmelt_genobj_GETCTYPE_IFVARIADIC (meltclosure_ptr_t meltclosp_, +meltrout_115_warmelt_genobj_GETCTYPE_IFVARIADIC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1741,7 +1760,7 @@ meltrout_114_warmelt_genobj_GETCTYPE_IFVARIADIC (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_115_warmelt_genobj_COMPILOBJ_NREP_VARIADIC_ARGUMENT +meltrout_116_warmelt_genobj_COMPILOBJ_NREP_VARIADIC_ARGUMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -1750,7 +1769,7 @@ union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_116_warmelt_genobj_COMPILOBJ_NREP_CONSUMEVARIADIC (meltclosure_ptr_t +meltrout_117_warmelt_genobj_COMPILOBJ_NREP_CONSUMEVARIADIC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1769,7 +1788,7 @@ meltrout_116_warmelt_genobj_COMPILOBJ_NREP_CONSUMEVARIADIC (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_117_warmelt_genobj_PUTOBJDEST_OBJCOND (meltclosure_ptr_t meltclosp_, +meltrout_118_warmelt_genobj_PUTOBJDEST_OBJCOND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1784,7 +1803,7 @@ meltrout_117_warmelt_genobj_PUTOBJDEST_OBJCOND (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_118_warmelt_genobj_COMPILOBJ_NREP_CPPIF (meltclosure_ptr_t +meltrout_119_warmelt_genobj_COMPILOBJ_NREP_CPPIF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -1800,7 +1819,7 @@ meltrout_118_warmelt_genobj_COMPILOBJ_NREP_CPPIF (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_119_warmelt_genobj_PUTOBJDEST_OBJCPPIF (meltclosure_ptr_t meltclosp_, +meltrout_120_warmelt_genobj_PUTOBJDEST_OBJCPPIF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1815,7 +1834,7 @@ meltrout_119_warmelt_genobj_PUTOBJDEST_OBJCPPIF (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_120_warmelt_genobj_COMPILOBJ_NREP_RETURN (meltclosure_ptr_t +meltrout_121_warmelt_genobj_COMPILOBJ_NREP_RETURN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -1831,7 +1850,7 @@ meltrout_120_warmelt_genobj_COMPILOBJ_NREP_RETURN (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_121_warmelt_genobj_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, +meltrout_122_warmelt_genobj_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1844,7 +1863,7 @@ meltrout_121_warmelt_genobj_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_122_warmelt_genobj_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, +meltrout_123_warmelt_genobj_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1857,7 +1876,7 @@ meltrout_122_warmelt_genobj_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_123_warmelt_genobj_COMPILOBJ_NREP_LAMBDA (meltclosure_ptr_t +meltrout_124_warmelt_genobj_COMPILOBJ_NREP_LAMBDA (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -1873,7 +1892,7 @@ meltrout_123_warmelt_genobj_COMPILOBJ_NREP_LAMBDA (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_124_warmelt_genobj_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, +meltrout_125_warmelt_genobj_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1886,7 +1905,7 @@ meltrout_124_warmelt_genobj_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_125_warmelt_genobj_COMPILOBJ_NREP_MAKEINST (meltclosure_ptr_t +meltrout_126_warmelt_genobj_COMPILOBJ_NREP_MAKEINST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1905,7 +1924,7 @@ meltrout_125_warmelt_genobj_COMPILOBJ_NREP_MAKEINST (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_126_warmelt_genobj_LAMBDA___39__ (meltclosure_ptr_t meltclosp_, +meltrout_127_warmelt_genobj_LAMBDA___39__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1918,7 +1937,7 @@ meltrout_126_warmelt_genobj_LAMBDA___39__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_127_warmelt_genobj_COMPILOBJ_ROUTPROC (meltclosure_ptr_t meltclosp_, +meltrout_128_warmelt_genobj_COMPILOBJ_ROUTPROC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1933,7 +1952,7 @@ meltrout_127_warmelt_genobj_COMPILOBJ_ROUTPROC (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_128_warmelt_genobj_COMPILOBJ_PREDEF (meltclosure_ptr_t meltclosp_, +meltrout_129_warmelt_genobj_COMPILOBJ_PREDEF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1948,7 +1967,7 @@ meltrout_128_warmelt_genobj_COMPILOBJ_PREDEF (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_129_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL (meltclosure_ptr_t +meltrout_130_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1967,7 +1986,7 @@ meltrout_129_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_130_warmelt_genobj_LAMBDA___40__ (meltclosure_ptr_t meltclosp_, +meltrout_131_warmelt_genobj_LAMBDA___40__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1980,7 +1999,7 @@ meltrout_130_warmelt_genobj_LAMBDA___40__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_131_warmelt_genobj_LAMBDA___41__ (meltclosure_ptr_t meltclosp_, +meltrout_132_warmelt_genobj_LAMBDA___41__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1993,7 +2012,7 @@ meltrout_131_warmelt_genobj_LAMBDA___41__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_132_warmelt_genobj_LAMBDA___42__ (meltclosure_ptr_t meltclosp_, +meltrout_133_warmelt_genobj_LAMBDA___42__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2006,7 +2025,7 @@ meltrout_132_warmelt_genobj_LAMBDA___42__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_133_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL +meltrout_134_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -2015,7 +2034,7 @@ union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_134_warmelt_genobj_LAMBDA___43__ (meltclosure_ptr_t meltclosp_, +meltrout_135_warmelt_genobj_LAMBDA___43__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2028,7 +2047,7 @@ meltrout_134_warmelt_genobj_LAMBDA___43__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_135_warmelt_genobj_COMPILOBJ_DATASYMBOL (meltclosure_ptr_t +meltrout_136_warmelt_genobj_COMPILOBJ_DATASYMBOL (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2044,7 +2063,7 @@ meltrout_135_warmelt_genobj_COMPILOBJ_DATASYMBOL (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_136_warmelt_genobj_COMPILOBJ_DATAINSTANCE (meltclosure_ptr_t +meltrout_137_warmelt_genobj_COMPILOBJ_DATAINSTANCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2060,7 +2079,7 @@ meltrout_136_warmelt_genobj_COMPILOBJ_DATAINSTANCE (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_137_warmelt_genobj_COMPILOBJ_DATATUPLE (meltclosure_ptr_t meltclosp_, +meltrout_138_warmelt_genobj_COMPILOBJ_DATATUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2075,7 +2094,7 @@ meltrout_137_warmelt_genobj_COMPILOBJ_DATATUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_138_warmelt_genobj_LAMBDA___44__ (meltclosure_ptr_t meltclosp_, +meltrout_139_warmelt_genobj_LAMBDA___44__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2088,7 +2107,7 @@ meltrout_138_warmelt_genobj_LAMBDA___44__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_139_warmelt_genobj_LAMBDA___45__ (meltclosure_ptr_t meltclosp_, +meltrout_140_warmelt_genobj_LAMBDA___45__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2101,7 +2120,7 @@ meltrout_139_warmelt_genobj_LAMBDA___45__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_140_warmelt_genobj_COMPILOBJ_DATASTRING (meltclosure_ptr_t +meltrout_141_warmelt_genobj_COMPILOBJ_DATASTRING (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2117,7 +2136,7 @@ meltrout_140_warmelt_genobj_COMPILOBJ_DATASTRING (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_141_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER (meltclosure_ptr_t +meltrout_142_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2136,7 +2155,7 @@ meltrout_141_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_142_warmelt_genobj_COMPILOBJ_DATACLOSURE (meltclosure_ptr_t +meltrout_143_warmelt_genobj_COMPILOBJ_DATACLOSURE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2152,7 +2171,7 @@ meltrout_142_warmelt_genobj_COMPILOBJ_DATACLOSURE (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_143_warmelt_genobj_LAMBDA___46__ (meltclosure_ptr_t meltclosp_, +meltrout_144_warmelt_genobj_LAMBDA___46__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2165,7 +2184,7 @@ meltrout_143_warmelt_genobj_LAMBDA___46__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_144_warmelt_genobj_COMPILOBJ_DATAROUTINE (meltclosure_ptr_t +meltrout_145_warmelt_genobj_COMPILOBJ_DATAROUTINE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2181,7 +2200,7 @@ meltrout_144_warmelt_genobj_COMPILOBJ_DATAROUTINE (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_145_warmelt_genobj_LAMBDA___47__ (meltclosure_ptr_t meltclosp_, +meltrout_146_warmelt_genobj_LAMBDA___47__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2194,7 +2213,7 @@ meltrout_145_warmelt_genobj_LAMBDA___47__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_146_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER +meltrout_147_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -2203,7 +2222,7 @@ union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_147_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT +meltrout_148_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -2212,7 +2231,7 @@ union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_148_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED (meltclosure_ptr_t +meltrout_149_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2233,7 +2252,7 @@ meltrout_148_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_149_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER +meltrout_150_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -2242,7 +2261,7 @@ union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_150_warmelt_genobj_LAMBDA___48__ (meltclosure_ptr_t meltclosp_, +meltrout_151_warmelt_genobj_LAMBDA___48__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2255,7 +2274,7 @@ meltrout_150_warmelt_genobj_LAMBDA___48__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_151_warmelt_genobj_LAMBDA___49__ (meltclosure_ptr_t meltclosp_, +meltrout_152_warmelt_genobj_LAMBDA___49__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2268,7 +2287,7 @@ meltrout_151_warmelt_genobj_LAMBDA___49__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_152_warmelt_genobj_COMPILTST_ANYTESTER (meltclosure_ptr_t meltclosp_, +meltrout_153_warmelt_genobj_COMPILTST_ANYTESTER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2283,7 +2302,7 @@ meltrout_152_warmelt_genobj_COMPILTST_ANYTESTER (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_153_warmelt_genobj_COMPILOBJ_NREP_MATCH (meltclosure_ptr_t +meltrout_154_warmelt_genobj_COMPILOBJ_NREP_MATCH (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2299,7 +2318,7 @@ meltrout_153_warmelt_genobj_COMPILOBJ_NREP_MATCH (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_154_warmelt_genobj_LAMBDA___50__ (meltclosure_ptr_t meltclosp_, +meltrout_155_warmelt_genobj_LAMBDA___50__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2312,7 +2331,7 @@ meltrout_154_warmelt_genobj_LAMBDA___50__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_155_warmelt_genobj_COMPILOBJ_NREP_ALTMATCH (meltclosure_ptr_t +meltrout_156_warmelt_genobj_COMPILOBJ_NREP_ALTMATCH (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2331,7 +2350,7 @@ meltrout_155_warmelt_genobj_COMPILOBJ_NREP_ALTMATCH (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_156_warmelt_genobj_LAMBDA___51__ (meltclosure_ptr_t meltclosp_, +meltrout_157_warmelt_genobj_LAMBDA___51__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2344,7 +2363,7 @@ meltrout_156_warmelt_genobj_LAMBDA___51__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_157_warmelt_genobj_COMPILOBJ_NREP_MATCHLABEL (meltclosure_ptr_t +meltrout_158_warmelt_genobj_COMPILOBJ_NREP_MATCHLABEL (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2363,7 +2382,26 @@ meltrout_157_warmelt_genobj_COMPILOBJ_NREP_MATCHLABEL (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_158_warmelt_genobj_COMPILOBJ_NREP_MATCHDATAINIT (meltclosure_ptr_t +meltrout_159_warmelt_genobj_COMPILOBJ_NREP_MATCHFLAG (meltclosure_ptr_t + meltclosp_, + melt_ptr_t + meltfirstargp_, + const + melt_argdescr_cell_t + meltxargdescr_[], + union meltparam_un + *meltxargtab_, + const + melt_argdescr_cell_t + meltxresdescr_[], + union meltparam_un + *meltxrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_160_warmelt_genobj_COMPILOBJ_NREP_MATCHDATAINIT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2382,7 +2420,45 @@ meltrout_158_warmelt_genobj_COMPILOBJ_NREP_MATCHDATAINIT (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_159_warmelt_genobj_NORMTESTER_LABELINSTR (meltclosure_ptr_t +meltrout_161_warmelt_genobj_COMPILOBJ_NREP_MATCHEDATA (meltclosure_ptr_t + meltclosp_, + melt_ptr_t + meltfirstargp_, + const + melt_argdescr_cell_t + meltxargdescr_[], + union meltparam_un + *meltxargtab_, + const + melt_argdescr_cell_t + meltxresdescr_[], + union meltparam_un + *meltxrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_162_warmelt_genobj_COMPILOBJ_NREP_MATCHJUMP (meltclosure_ptr_t + meltclosp_, + melt_ptr_t + meltfirstargp_, + const + melt_argdescr_cell_t + meltxargdescr_[], + union meltparam_un + *meltxargtab_, + const + melt_argdescr_cell_t + meltxresdescr_[], + union meltparam_un + *meltxrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_163_warmelt_genobj_NORMTESTER_LABELINSTR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2398,7 +2474,7 @@ meltrout_159_warmelt_genobj_NORMTESTER_LABELINSTR (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_160_warmelt_genobj_NORMTESTER_GOTOINSTR (meltclosure_ptr_t +meltrout_164_warmelt_genobj_NORMTESTER_GOTOINSTR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2414,7 +2490,7 @@ meltrout_160_warmelt_genobj_NORMTESTER_GOTOINSTR (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_161_warmelt_genobj_ENDMATCH_GOTOINSTR (meltclosure_ptr_t meltclosp_, +meltrout_165_warmelt_genobj_ENDMATCH_GOTOINSTR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2429,7 +2505,7 @@ meltrout_161_warmelt_genobj_ENDMATCH_GOTOINSTR (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_162_warmelt_genobj_TESTMATCH_GOTOINSTR (meltclosure_ptr_t meltclosp_, +meltrout_166_warmelt_genobj_TESTMATCH_GOTOINSTR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2444,7 +2520,7 @@ meltrout_162_warmelt_genobj_TESTMATCH_GOTOINSTR (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_163_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST (meltclosure_ptr_t +meltrout_167_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2463,7 +2539,7 @@ meltrout_163_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_164_warmelt_genobj_LAMBDA___52__ (meltclosure_ptr_t meltclosp_, +meltrout_168_warmelt_genobj_LAMBDA___52__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2476,7 +2552,7 @@ meltrout_164_warmelt_genobj_LAMBDA___52__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_165_warmelt_genobj_COMPILTST_NORMTESTER_ANY (meltclosure_ptr_t +meltrout_169_warmelt_genobj_COMPILTST_NORMTESTER_ANY (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2495,7 +2571,7 @@ meltrout_165_warmelt_genobj_COMPILTST_NORMTESTER_ANY (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_166_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER (meltclosure_ptr_t +meltrout_170_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2514,7 +2590,7 @@ meltrout_166_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_167_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE (meltclosure_ptr_t +meltrout_171_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2533,7 +2609,7 @@ meltrout_167_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_168_warmelt_genobj_COMPILTST_NORMTESTER_TUPLE (meltclosure_ptr_t +meltrout_172_warmelt_genobj_COMPILTST_NORMTESTER_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2552,7 +2628,7 @@ meltrout_168_warmelt_genobj_COMPILTST_NORMTESTER_TUPLE (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_169_warmelt_genobj_COMPILTST_NORMTESTER_SAME (meltclosure_ptr_t +meltrout_173_warmelt_genobj_COMPILTST_NORMTESTER_SAME (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2571,7 +2647,7 @@ meltrout_169_warmelt_genobj_COMPILTST_NORMTESTER_SAME (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_170_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS (meltclosure_ptr_t +meltrout_174_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2590,7 +2666,7 @@ meltrout_170_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_171_warmelt_genobj_COMPILTST_NORMTESTER_ORCLEAR (meltclosure_ptr_t +meltrout_175_warmelt_genobj_COMPILTST_NORMTESTER_ORCLEAR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2609,7 +2685,7 @@ meltrout_171_warmelt_genobj_COMPILTST_NORMTESTER_ORCLEAR (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_172_warmelt_genobj_COMPILTST_NORMTESTER_ORTRANSMIT (meltclosure_ptr_t +meltrout_176_warmelt_genobj_COMPILTST_NORMTESTER_ORTRANSMIT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2630,7 +2706,7 @@ meltrout_172_warmelt_genobj_COMPILTST_NORMTESTER_ORTRANSMIT (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_173_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION +meltrout_177_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -2639,7 +2715,7 @@ union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_174_warmelt_genobj_COMPILMATCHER_CMATCHER (meltclosure_ptr_t +meltrout_178_warmelt_genobj_COMPILMATCHER_CMATCHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2655,7 +2731,7 @@ meltrout_174_warmelt_genobj_COMPILMATCHER_CMATCHER (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_175_warmelt_genobj_LAMBDA___53__ (meltclosure_ptr_t meltclosp_, +meltrout_179_warmelt_genobj_LAMBDA___53__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2668,7 +2744,7 @@ meltrout_175_warmelt_genobj_LAMBDA___53__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_176_warmelt_genobj_LAMBDA___54__ (meltclosure_ptr_t meltclosp_, +meltrout_180_warmelt_genobj_LAMBDA___54__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2681,7 +2757,7 @@ meltrout_176_warmelt_genobj_LAMBDA___54__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_177_warmelt_genobj_LAMBDA___55__ (meltclosure_ptr_t meltclosp_, +meltrout_181_warmelt_genobj_LAMBDA___55__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2694,7 +2770,7 @@ meltrout_177_warmelt_genobj_LAMBDA___55__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_178_warmelt_genobj_LAMBDA___56__ (meltclosure_ptr_t meltclosp_, +meltrout_182_warmelt_genobj_LAMBDA___56__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2707,7 +2783,7 @@ meltrout_178_warmelt_genobj_LAMBDA___56__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_179_warmelt_genobj_COMPILMATCHER_FUNMATCHER (meltclosure_ptr_t +meltrout_183_warmelt_genobj_COMPILMATCHER_FUNMATCHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2726,7 +2802,7 @@ meltrout_179_warmelt_genobj_COMPILMATCHER_FUNMATCHER (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_180_warmelt_genobj_LAMBDA___57__ (meltclosure_ptr_t meltclosp_, +meltrout_184_warmelt_genobj_LAMBDA___57__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2739,7 +2815,7 @@ meltrout_180_warmelt_genobj_LAMBDA___57__ (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_181_warmelt_genobj_LAMBDA___58__ (meltclosure_ptr_t meltclosp_, +meltrout_185_warmelt_genobj_LAMBDA___58__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -11009,7 +11085,12 @@ lab_endgetargs:; (( /*!DISCR_STRBUF */ meltfrout->tabval[4])), (char *) 0);; MELT_LOCATION ("warmelt-genobj.melt:3302:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.NLETREC__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[5])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.NLETREC__V19*/ meltfptr[18]), + (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[5]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -11132,7 +11213,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-genobj.melt:3318:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V13*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[6])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.SYMB__V13*/ meltfptr[9]), + (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[6]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -11809,7 +11895,12 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-genobj.melt:3346:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.NLETREC__V20*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[5])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.NLETREC__V20*/ meltfptr[19]), + (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[5]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -11900,7 +11991,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-genobj.melt:3358:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V13*/ meltfptr[12]), (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[6])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.SYMB__V13*/ meltfptr[12]), + (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[6]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -12573,7 +12669,12 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-genobj.melt:3388:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.NLETREC__V16*/ meltfptr[15]), (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[3])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.NLETREC__V16*/ meltfptr[15]), + (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[3]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -12731,7 +12832,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-genobj.melt:3402:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V13*/ meltfptr[12]), (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[6])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.SYMB__V13*/ meltfptr[12]), + (melt_ptr_t) (( /*!CLASS_CLONED_SYMBOL */ meltfrout->tabval[6]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -13386,7 +13492,12 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-genobj.melt:3427:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.NLETREC__V16*/ meltfptr[15]), (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[3])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.NLETREC__V16*/ meltfptr[15]), + (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[3]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -14091,7 +14202,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-genobj.melt:3464:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.NLETREC__V16*/ meltfptr[15]), (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[5])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.NLETREC__V16*/ meltfptr[15]), + (melt_ptr_t) (( /*!CLASS_NREP_LETREC */ meltfrout->tabval[5]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -14120,7 +14236,12 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.NLOCSYMS__V20*/ meltfptr[19]), ( /*_#BINDNUM__L5*/ meltfnum[1])));; MELT_LOCATION ("warmelt-genobj.melt:3467:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.BIND__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING */ meltfrout->tabval[1])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.BIND__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING */ meltfrout->tabval[1]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -14527,7 +14648,14 @@ lab_endgetargs:; ; /*_.ININST__V38*/ meltfptr[30] = /*_.INST__V39*/ meltfptr[31];; MELT_LOCATION ("warmelt-genobj.melt:3491:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CLAS__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->tabval[11])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.CLAS__V26*/ meltfptr[25]), + (melt_ptr_t) (( /*!CLASS_CLASS */ + meltfrout-> + tabval[11]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -20255,8 +20383,8 @@ meltrout_112_warmelt_genobj_COMPILOBJ_NREP_IFISA (meltclosure_ptr_t struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 39 - void *mcfr_varptr[39]; +#define MELTFRAM_NBVARPTR 33 + void *mcfr_varptr[33]; #define MELTFRAM_NBVARNUM 8 long mcfr_varnum[8]; /*others*/ @@ -20269,13 +20397,13 @@ meltrout_112_warmelt_genobj_COMPILOBJ_NREP_IFISA (meltclosure_ptr_t int ix = 0; meltframptr_ = (void *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (ix = 0; ix < 39; ix++) + for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); - meltfram__.mcfr_nbvar = 39; + meltfram__.mcfr_nbvar = 33; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; @@ -20309,51 +20437,91 @@ lab_endgetargs:; /*anyblock */ { - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of ((melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), - (melt_ptr_t) (( /*!CLASS_NREP_IFISA */ - meltfrout->tabval[0])));; + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*MELT_NEED_DBG */ +#if MELT_HAVE_DEBUG + ( /*melt_need_dbg */ melt_need_debug ((int) 0)) +#else + 0 /* no melt_need_dbg */ +#endif /*MELT_HAVE_DEBUG */ + ;; MELT_LOCATION ("warmelt-genobj.melt:3738:/ cond"); - /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ + /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ - /*_.IFELSE___V5*/ meltfptr[4] = ( /*nil */ NULL);; - } - else - { - MELT_LOCATION ("warmelt-genobj.melt:3738:/ cond.else"); - /*^block */ /*anyblock */ { - - - + /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = + meltcallcount;; + MELT_LOCATION ("warmelt-genobj.melt:3738:/ apply"); + /*apply */ { - /*^locexp */ - melt_assert_failed (("check rif"), - ("warmelt-genobj.melt") - ? ("warmelt-genobj.melt") : __FILE__, - (3738) ? (3738) : __LINE__, __FUNCTION__); - ; + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-genobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 3738; + /*^apply.arg */ + argtab[3].meltbp_cstring = "compilobj_nrep_ifisa rif="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.RIF__V2*/ meltfptr[1]; + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = + melt_apply ((meltclosure_ptr_t) + (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), + (melt_ptr_t) (( /*nil */ NULL)), + (MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); } ; - /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; + /*_.IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog */ + + MELT_LOCATION ("warmelt-genobj.melt:3738:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0; } ; } + else + { /*^cond.else */ + + /*_.IF___V5*/ meltfptr[4] = NULL;; + } ; + MELT_LOCATION ("warmelt-genobj.melt:3738:/ quasiblock"); + + + /*_.PROGN___V7*/ meltfptr[5] = /*_.IF___V5*/ meltfptr[4];; /*^compute */ - /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; + /*_.IFCPP___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-genobj.melt:3738:/ clear"); - /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; + /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; + /*clear *//*_.IF___V5*/ meltfptr[4] = 0; + /*^clear */ + /*clear *//*_.PROGN___V7*/ meltfptr[5] = 0; } #else /*MELT_HAVE_DEBUG */ @@ -20368,15 +20536,15 @@ lab_endgetargs:; /*anyblock */ { - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of ((melt_ptr_t) ( /*_.GCX__V3*/ meltfptr[2]), - (melt_ptr_t) (( /*!CLASS_C_GENERATION_CONTEXT */ + /*_#IS_A__L3*/ meltfnum[1] = + melt_is_instance_of ((melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_NREP_IFISA */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-genobj.melt:3739:/ cond"); - /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ + /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ - /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; + /*_.IFELSE___V9*/ meltfptr[5] = ( /*nil */ NULL);; } else { @@ -20391,14 +20559,14 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("check gcx"), + melt_assert_failed (("check rif"), ("warmelt-genobj.melt") ? ("warmelt-genobj.melt") : __FILE__, (3739) ? (3739) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; + /*clear *//*_.IFELSE___V9*/ meltfptr[5] = 0; /*epilog */ } ; @@ -20406,18 +20574,18 @@ lab_endgetargs:; ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; + /*_.IFCPP___V8*/ meltfptr[4] = /*_.IFELSE___V9*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-genobj.melt:3739:/ clear"); - /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; + /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; + /*clear *//*_.IFELSE___V9*/ meltfptr[5] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V6*/ meltfptr[4] = ( /*nil */ NULL); + /*_.IFCPP___V8*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; @@ -20427,97 +20595,56 @@ lab_endgetargs:; /*anyblock */ { - - { - /*^locexp */ - /*melt_increment_dbgcounter */ -#if MELT_HAVE_DEBUG - melt_dbgcounter++; -#endif - ; - } - ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = - /*MELT_NEED_DBG */ -#if MELT_HAVE_DEBUG - ( /*melt_need_dbg */ melt_need_debug ((int) 0)) -#else - 0 /* no melt_need_dbg */ -#endif /*MELT_HAVE_DEBUG */ - ;; + /*_#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[2])));; MELT_LOCATION ("warmelt-genobj.melt:3740:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ + /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ + /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; + } + else + { + MELT_LOCATION ("warmelt-genobj.melt:3740:/ cond.else"); + /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = - meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3740:/ apply"); - /*apply */ + + + { - union meltparam_un argtab[5]; - memset (&argtab, 0, sizeof (argtab)); - /*^apply.arg */ - argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; - /*^apply.arg */ - argtab[1].meltbp_cstring = "warmelt-genobj.melt"; - /*^apply.arg */ - argtab[2].meltbp_long = 3740; - /*^apply.arg */ - argtab[3].meltbp_cstring = "compilobj_nrep_ifisa rif="; - /*^apply.arg */ - argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.RIF__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = - melt_apply ((meltclosure_ptr_t) - (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])), - (melt_ptr_t) (( /*nil */ NULL)), - (MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_PTR ""), argtab, "", - (union meltparam_un *) 0); + /*^locexp */ + melt_assert_failed (("check gcx"), + ("warmelt-genobj.melt") + ? ("warmelt-genobj.melt") : __FILE__, + (3740) ? (3740) : __LINE__, __FUNCTION__); + ; } ; - /*_.IF___V9*/ meltfptr[8] = - /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; + /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; /*epilog */ - - MELT_LOCATION ("warmelt-genobj.melt:3740:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; - /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; } ; } - else - { /*^cond.else */ - - /*_.IF___V9*/ meltfptr[8] = NULL;; - } ; - MELT_LOCATION ("warmelt-genobj.melt:3740:/ quasiblock"); - - - /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.PROGN___V11*/ meltfptr[9];; + /*_.IFCPP___V10*/ meltfptr[5] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-genobj.melt:3740:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; - /*^clear */ - /*clear *//*_.IF___V9*/ meltfptr[8] = 0; + /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_.PROGN___V11*/ meltfptr[9] = 0; + /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); + /*_.IFCPP___V10*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-genobj.melt:3741:/ quasiblock"); @@ -20528,7 +20655,7 @@ lab_endgetargs:; melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 0, "NREP_LOC"); /*_.LOC__V13*/ - meltfptr[9] = slot; + meltfptr[12] = slot; }; ; MELT_LOCATION ("warmelt-genobj.melt:3742:/ getslot"); @@ -20556,7 +20683,12 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-genobj.melt:3745:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_NREP_IFTESTVALUE */ meltfrout->tabval[3])))) /*then */ + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.RIF__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_NREP_IFTESTVALUE */ meltfrout->tabval[3]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -20589,12 +20721,12 @@ lab_endgetargs:; /*anyblock */ { - /*_#IS_A__L5*/ meltfnum[3] = + /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.NCTYP__V16*/ meltfptr[15]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[4])));; MELT_LOCATION ("warmelt-genobj.melt:3748:/ cond"); - /*cond */ if ( /*_#IS_A__L5*/ meltfnum[3]) /*then */ + /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ /*_.IFELSE___V20*/ meltfptr[19] = ( /*nil */ NULL);; @@ -20631,7 +20763,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-genobj.melt:3748:/ clear"); - /*clear *//*_#IS_A__L5*/ meltfnum[3] = 0; + /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V20*/ meltfptr[19] = 0; } @@ -20728,159 +20860,36 @@ lab_endgetargs:; /*_.OELSE__V25*/ meltfptr[24] = NULL;; } ; - /*^compute */ - - /*_.MAKE_STRINGCONST__V27*/ meltfptr[25] = - (meltgc_new_stringdup - ((meltobject_ptr_t) - (( /*!DISCR_VERBATIM_STRING */ meltfrout->tabval[8])), - ("/*ifisa*/ melt_is_instance_of((melt_ptr_t)(")));; - /*^compute */ - - /*_.MAKE_STRINGCONST__V28*/ meltfptr[27] = - (meltgc_new_stringdup - ((meltobject_ptr_t) - (( /*!DISCR_VERBATIM_STRING */ meltfrout->tabval[8])), - ("), (melt_ptr_t)(")));; - /*^compute */ - - /*_.MAKE_STRINGCONST__V29*/ meltfptr[28] = - (meltgc_new_stringdup - ((meltobject_ptr_t) - (( /*!DISCR_VERBATIM_STRING */ meltfrout->tabval[8])), ("))")));; - MELT_LOCATION ("warmelt-genobj.melt:3756:/ blockmultialloc"); - /*multiallocblock */ - { - struct meltletrec_1_st - { - struct MELT_MULTIPLE_STRUCT (5) rtup_0__TUPLREC__x7; - long meltletrec_1_endgap; - } *meltletrec_1_ptr = 0; - meltletrec_1_ptr = - (struct meltletrec_1_st *) - meltgc_allocate (sizeof (struct meltletrec_1_st), 0); - /*^blockmultialloc.initfill */ - /*inimult rtup_0__TUPLREC__x7 */ - /*_.TUPLREC___V31*/ meltfptr[30] = - (void *) &meltletrec_1_ptr->rtup_0__TUPLREC__x7; - meltletrec_1_ptr->rtup_0__TUPLREC__x7.discr = - (meltobject_ptr_t) (((void *) (MELT_PREDEF (DISCR_MULTIPLE)))); - meltletrec_1_ptr->rtup_0__TUPLREC__x7.nbval = 5; - - - /*^putuple */ - /*putupl#20 */ - melt_assertmsg ("putupl [:3756] #20 checktup", - melt_magic_discr ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ meltfptr[30])) - == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:3756] #20 checkoff", - (0 >= 0 - && 0 < - melt_multiple_length ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ - meltfptr[30])))); - ((meltmultiple_ptr_t) ( /*_.TUPLREC___V31*/ meltfptr[30]))->tabval[0] = - (melt_ptr_t) ( /*_.MAKE_STRINGCONST__V27*/ meltfptr[25]); - ; - /*^putuple */ - /*putupl#21 */ - melt_assertmsg ("putupl [:3756] #21 checktup", - melt_magic_discr ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ meltfptr[30])) - == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:3756] #21 checkoff", - (1 >= 0 - && 1 < - melt_multiple_length ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ - meltfptr[30])))); - ((meltmultiple_ptr_t) ( /*_.TUPLREC___V31*/ meltfptr[30]))->tabval[1] = - (melt_ptr_t) ( /*_.OVAL__V23*/ meltfptr[22]); - ; - /*^putuple */ - /*putupl#22 */ - melt_assertmsg ("putupl [:3756] #22 checktup", - melt_magic_discr ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ meltfptr[30])) - == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:3756] #22 checkoff", - (2 >= 0 - && 2 < - melt_multiple_length ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ - meltfptr[30])))); - ((meltmultiple_ptr_t) ( /*_.TUPLREC___V31*/ meltfptr[30]))->tabval[2] = - (melt_ptr_t) ( /*_.MAKE_STRINGCONST__V28*/ meltfptr[27]); - ; - /*^putuple */ - /*putupl#23 */ - melt_assertmsg ("putupl [:3756] #23 checktup", - melt_magic_discr ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ meltfptr[30])) - == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:3756] #23 checkoff", - (3 >= 0 - && 3 < - melt_multiple_length ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ - meltfptr[30])))); - ((meltmultiple_ptr_t) ( /*_.TUPLREC___V31*/ meltfptr[30]))->tabval[3] = - (melt_ptr_t) ( /*_.OCLA__V24*/ meltfptr[23]); - ; - /*^putuple */ - /*putupl#24 */ - melt_assertmsg ("putupl [:3756] #24 checktup", - melt_magic_discr ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ meltfptr[30])) - == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:3756] #24 checkoff", - (4 >= 0 - && 4 < - melt_multiple_length ((melt_ptr_t) - ( /*_.TUPLREC___V31*/ - meltfptr[30])))); - ((meltmultiple_ptr_t) ( /*_.TUPLREC___V31*/ meltfptr[30]))->tabval[4] = - (melt_ptr_t) ( /*_.MAKE_STRINGCONST__V29*/ meltfptr[28]); - ; - /*^touch */ - meltgc_touch ( /*_.TUPLREC___V31*/ meltfptr[30]); - ; - /*_.TUPLE___V30*/ meltfptr[29] = /*_.TUPLREC___V31*/ meltfptr[30];; - /*epilog */ - - MELT_LOCATION ("warmelt-genobj.melt:3756:/ clear"); - /*clear *//*_.TUPLREC___V31*/ meltfptr[30] = 0; - /*^clear */ - /*clear *//*_.TUPLREC___V31*/ meltfptr[30] = 0; - } /*end multiallocblock */ - ; - MELT_LOCATION ("warmelt-genobj.melt:3754:/ quasiblock"); - - - /*^rawallocobj */ - /*rawallocobj */ + MELT_LOCATION ("warmelt-genobj.melt:3754:/ apply"); + /*apply */ { - melt_ptr_t newobj = 0; - melt_raw_object_create (newobj, - (melt_ptr_t) (( /*!CLASS_OBJEXPV */ meltfrout-> - tabval[7])), (2), - "CLASS_OBJEXPV"); - /*_.INST__V33*/ meltfptr[32] = - newobj; - }; - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @OBX_CONT", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V33*/ meltfptr[32])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V33*/ meltfptr[32]), (1), - ( /*_.TUPLE___V30*/ meltfptr[29]), "OBX_CONT"); + union meltparam_un argtab[6]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_aptr = + (melt_ptr_t *) & ( /*!CTYPE_LONG */ meltfrout->tabval[8]); + /*^apply.arg */ + argtab[1].meltbp_cstring = + "/*ifisa*/ melt_is_instance_of((melt_ptr_t)("; + /*^apply.arg */ + argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.OVAL__V23*/ meltfptr[22]; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "), \n (melt_ptr_t)("; + /*^apply.arg */ + argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.OCLA__V24*/ meltfptr[23]; + /*^apply.arg */ + argtab[5].meltbp_cstring = "))\n\t\t\t\t "; + /*_.OTEST__V27*/ meltfptr[25] = + melt_apply ((meltclosure_ptr_t) + (( /*!MAKE_OBJLOCATEDEXP */ meltfrout->tabval[7])), + (melt_ptr_t) ( /*_.LOC__V13*/ meltfptr[12]), + (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR + MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING + ""), argtab, "", (union meltparam_un *) 0); + } ; - /*_.OTEST__V32*/ meltfptr[30] = /*_.INST__V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-genobj.melt:3766:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3758:/ quasiblock"); /*^rawallocobj */ @@ -20891,7 +20900,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_OBJCOND */ meltfrout-> tabval[9])), (4), "CLASS_OBJCOND"); - /*_.INST__V35*/ meltfptr[34] = + /*_.INST__V29*/ meltfptr[28] = newobj; }; ; @@ -20899,42 +20908,42 @@ lab_endgetargs:; /*putslot */ melt_assertmsg ("putslot checkobj @OBI_LOC", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V35*/ meltfptr[34])) == + ( /*_.INST__V29*/ meltfptr[28])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V35*/ meltfptr[34]), (0), - ( /*_.LOC__V13*/ meltfptr[9]), "OBI_LOC"); + melt_putfield_object (( /*_.INST__V29*/ meltfptr[28]), (0), + ( /*_.LOC__V13*/ meltfptr[12]), "OBI_LOC"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @OBCOND_TEST", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V35*/ meltfptr[34])) == + ( /*_.INST__V29*/ meltfptr[28])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V35*/ meltfptr[34]), (1), - ( /*_.OTEST__V32*/ meltfptr[30]), "OBCOND_TEST"); + melt_putfield_object (( /*_.INST__V29*/ meltfptr[28]), (1), + ( /*_.OTEST__V27*/ meltfptr[25]), "OBCOND_TEST"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @OBCOND_THEN", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V35*/ meltfptr[34])) == + ( /*_.INST__V29*/ meltfptr[28])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V35*/ meltfptr[34]), (2), + melt_putfield_object (( /*_.INST__V29*/ meltfptr[28]), (2), ( /*_.OTHEN__V22*/ meltfptr[21]), "OBCOND_THEN"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @OBCOND_ELSE", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V35*/ meltfptr[34])) == + ( /*_.INST__V29*/ meltfptr[28])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V35*/ meltfptr[34]), (3), + melt_putfield_object (( /*_.INST__V29*/ meltfptr[28]), (3), ( /*_.OELSE__V25*/ meltfptr[24]), "OBCOND_ELSE"); ; - /*_.OBIF__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; + /*_.OBIF__V28*/ meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3772:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3764:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20949,7 +20958,7 @@ lab_endgetargs:; ; } ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[3] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -20957,8 +20966,8 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3772:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[3]) /*then */ + MELT_LOCATION ("warmelt-genobj.melt:3764:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ @@ -20967,7 +20976,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3772:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3764:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -20977,15 +20986,15 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3772; + argtab[2].meltbp_long = 3764; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifisa obif="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.OBIF__V34*/ meltfptr[33]; - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = + (melt_ptr_t *) & /*_.OBIF__V28*/ meltfptr[27]; + /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t) - (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])), + (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING @@ -20993,48 +21002,48 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V37*/ meltfptr[36] = - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; + /*_.IF___V31*/ meltfptr[30] = + /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3772:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3764:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0; } ; } else { /*^cond.else */ - /*_.IF___V37*/ meltfptr[36] = NULL;; + /*_.IF___V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3772:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3764:/ quasiblock"); - /*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[36];; + /*_.PROGN___V33*/ meltfptr[31] = /*_.IF___V31*/ meltfptr[30];; /*^compute */ - /*_.IFCPP___V36*/ meltfptr[35] = /*_.PROGN___V39*/ meltfptr[37];; + /*_.IFCPP___V30*/ meltfptr[29] = /*_.PROGN___V33*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3772:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[3] = 0; + MELT_LOCATION ("warmelt-genobj.melt:3764:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_.IF___V37*/ meltfptr[36] = 0; + /*clear *//*_.IF___V31*/ meltfptr[30] = 0; /*^clear */ - /*clear *//*_.PROGN___V39*/ meltfptr[37] = 0; + /*clear *//*_.PROGN___V33*/ meltfptr[31] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V36*/ meltfptr[35] = ( /*nil */ NULL); + /*_.IFCPP___V30*/ meltfptr[29] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.LET___V21*/ meltfptr[19] = /*_.OBIF__V34*/ meltfptr[33];; + /*_.LET___V21*/ meltfptr[19] = /*_.OBIF__V28*/ meltfptr[27];; MELT_LOCATION ("warmelt-genobj.melt:3749:/ clear"); /*clear *//*_.OTHEN__V22*/ meltfptr[21] = 0; @@ -21047,23 +21056,15 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.OELSE__V25*/ meltfptr[24] = 0; /*^clear */ - /*clear *//*_.MAKE_STRINGCONST__V27*/ meltfptr[25] = 0; - /*^clear */ - /*clear *//*_.MAKE_STRINGCONST__V28*/ meltfptr[27] = 0; + /*clear *//*_.OTEST__V27*/ meltfptr[25] = 0; /*^clear */ - /*clear *//*_.MAKE_STRINGCONST__V29*/ meltfptr[28] = 0; + /*clear *//*_.OBIF__V28*/ meltfptr[27] = 0; /*^clear */ - /*clear *//*_.TUPLE___V30*/ meltfptr[29] = 0; - /*^clear */ - /*clear *//*_.OTEST__V32*/ meltfptr[30] = 0; - /*^clear */ - /*clear *//*_.OBIF__V34*/ meltfptr[33] = 0; - /*^clear */ - /*clear *//*_.IFCPP___V36*/ meltfptr[35] = 0; - /*_.LET___V12*/ meltfptr[8] = /*_.LET___V21*/ meltfptr[19];; + /*clear *//*_.IFCPP___V30*/ meltfptr[29] = 0; + /*_.LET___V12*/ meltfptr[10] = /*_.LET___V21*/ meltfptr[19];; MELT_LOCATION ("warmelt-genobj.melt:3741:/ clear"); - /*clear *//*_.LOC__V13*/ meltfptr[9] = 0; + /*clear *//*_.LOC__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.NTHEN__V14*/ meltfptr[13] = 0; /*^clear */ @@ -21081,7 +21082,7 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-genobj.melt:3737:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[8];; + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; MELT_LOCATION ("warmelt-genobj.melt:3737:/ finalreturn"); ; /*finalret */ goto labend_rout; @@ -21090,11 +21091,11 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; /*^clear */ - /*clear *//*_.IFCPP___V6*/ meltfptr[4] = 0; + /*clear *//*_.IFCPP___V8*/ meltfptr[4] = 0; /*^clear */ - /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; + /*clear *//*_.IFCPP___V10*/ meltfptr[5] = 0; /*^clear */ - /*clear *//*_.LET___V12*/ meltfptr[8] = 0; + /*clear *//*_.LET___V12*/ meltfptr[10] = 0; } ; @@ -21114,7 +21115,819 @@ labend_rout: melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC (meltclosure_ptr_t +meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFTUPLESIZED (meltclosure_ptr_t + meltclosp_, + melt_ptr_t + meltfirstargp_, + const + melt_argdescr_cell_t + meltxargdescr_[], + union meltparam_un * + meltxargtab_, + const + melt_argdescr_cell_t + meltxresdescr_[], + union meltparam_un * + meltxrestab_) +{ +#if MELT_HAVE_DEBUG + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFTUPLESIZED_st + { + int mcfr_nbvar; +#if MELT_HAVE_DEBUG + const char *mcfr_flocs; +#else /*!MELT_HAVE_DEBUG */ + const char *mcfr_unusedflocs; +#endif /*MELT_HAVE_DEBUG */ + struct meltclosure_st *mcfr_clos; + struct excepth_melt_st *mcfr_exh; + struct melt_callframe_st *mcfr_prev; +#define MELTFRAM_NBVARPTR 34 + void *mcfr_varptr[34]; +#define MELTFRAM_NBVARNUM 8 + long mcfr_varnum[8]; +/*others*/ + long _spare_; + } + *meltframptr_ = 0, meltfram__; +#define meltframe meltfram__ + if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) + { /*mark for ggc */ + int ix = 0; + meltframptr_ = (void *) meltfirstargp_; + gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); + for (ix = 0; ix < 34; ix++) + if (meltframptr_->mcfr_varptr[ix]) + gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); + return NULL; + } /*end markggc */ ; + memset (&meltfram__, 0, sizeof (meltfram__)); + meltfram__.mcfr_nbvar = 34; + meltfram__.mcfr_clos = meltclosp_; + meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; + melt_topframe = (struct melt_callframe_st *) &meltfram__; + melt_trace_start ("COMPILOBJ_NREP_IFTUPLESIZED", meltcallcount); +/*getargs*/ + + /*getarg#0 */ + MELT_LOCATION ("warmelt-genobj.melt:3771:/ getarg"); + /*_.RIF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + + /*getarg#1 */ + /*^getarg */ + if (meltxargdescr_[0] != MELTBPAR_PTR) + goto lab_endgetargs; + /*_.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); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/ + { + + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-genobj.melt:3772:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*MELT_NEED_DBG */ +#if MELT_HAVE_DEBUG + ( /*melt_need_dbg */ melt_need_debug ((int) 0)) +#else + 0 /* no melt_need_dbg */ +#endif /*MELT_HAVE_DEBUG */ + ;; + MELT_LOCATION ("warmelt-genobj.melt:3772:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = + meltcallcount;; + MELT_LOCATION ("warmelt-genobj.melt:3772:/ apply"); + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-genobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 3772; + /*^apply.arg */ + argtab[3].meltbp_cstring = "compilobj_nrep_ifisa rif="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.RIF__V2*/ meltfptr[1]; + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = + melt_apply ((meltclosure_ptr_t) + (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), + (melt_ptr_t) (( /*nil */ NULL)), + (MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); + } + ; + /*_.IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*epilog */ + + MELT_LOCATION ("warmelt-genobj.melt:3772:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V5*/ meltfptr[4] = NULL;; + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3772:/ quasiblock"); + + + /*_.PROGN___V7*/ meltfptr[5] = /*_.IF___V5*/ meltfptr[4];; + /*^compute */ + + /*_.IFCPP___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[5];; + /*epilog */ + + MELT_LOCATION ("warmelt-genobj.melt:3772:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; + /*^clear */ + /*clear *//*_.IF___V5*/ meltfptr[4] = 0; + /*^clear */ + /*clear *//*_.PROGN___V7*/ meltfptr[5] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-genobj.melt:3773:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + /*_#IS_A__L3*/ meltfnum[1] = + melt_is_instance_of ((melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_NREP_IFTUPLESIZED */ + meltfrout->tabval[1])));; + MELT_LOCATION ("warmelt-genobj.melt:3773:/ cond"); + /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ + { + /*^cond.then */ + /*_.IFELSE___V9*/ meltfptr[5] = ( /*nil */ NULL);; + } + else + { + MELT_LOCATION ("warmelt-genobj.melt:3773:/ cond.else"); + + /*^block */ + /*anyblock */ + { + + + + + { + /*^locexp */ + melt_assert_failed (("check rif"), + ("warmelt-genobj.melt") + ? ("warmelt-genobj.melt") : __FILE__, + (3773) ? (3773) : __LINE__, __FUNCTION__); + ; + } + ; + /*clear *//*_.IFELSE___V9*/ meltfptr[5] = 0; + /*epilog */ + } + ; + } + ; + /*^compute */ + + /*_.IFCPP___V8*/ meltfptr[4] = /*_.IFELSE___V9*/ meltfptr[5];; + /*epilog */ + + MELT_LOCATION ("warmelt-genobj.melt:3773:/ clear"); + /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.IFELSE___V9*/ meltfptr[5] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V8*/ meltfptr[4] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-genobj.melt:3774:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + /*_#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[2])));; + MELT_LOCATION ("warmelt-genobj.melt:3774:/ cond"); + /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ + { + /*^cond.then */ + /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; + } + else + { + MELT_LOCATION ("warmelt-genobj.melt:3774:/ cond.else"); + + /*^block */ + /*anyblock */ + { + + + + + { + /*^locexp */ + melt_assert_failed (("check gcx"), + ("warmelt-genobj.melt") + ? ("warmelt-genobj.melt") : __FILE__, + (3774) ? (3774) : __LINE__, __FUNCTION__); + ; + } + ; + /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; + /*epilog */ + } + ; + } + ; + /*^compute */ + + /*_.IFCPP___V10*/ meltfptr[5] = /*_.IFELSE___V11*/ meltfptr[10];; + /*epilog */ + + MELT_LOCATION ("warmelt-genobj.melt:3774:/ clear"); + /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; + /*^clear */ + /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V10*/ meltfptr[5] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + MELT_LOCATION ("warmelt-genobj.melt:3775:/ quasiblock"); + + + /*^getslot */ + { + melt_ptr_t slot = 0; + melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 0, "NREP_LOC"); + /*_.LOC__V13*/ + meltfptr[12] = slot; + }; + ; + MELT_LOCATION ("warmelt-genobj.melt:3776:/ getslot"); + { + melt_ptr_t slot = 0; + melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 2, "NIF_THEN"); + /*_.NTHEN__V14*/ + meltfptr[13] = slot; + }; + ; + MELT_LOCATION ("warmelt-genobj.melt:3777:/ getslot"); + { + melt_ptr_t slot = 0; + melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 3, "NIF_ELSE"); + /*_.NELSE__V15*/ + meltfptr[14] = slot; + }; + ; + MELT_LOCATION ("warmelt-genobj.melt:3778:/ cond"); + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.RIF__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_NREP_IFTESTVALUE */ meltfrout->tabval[3]))) + ) /*then */ + { + /*^cond.then */ + /*^getslot */ + { + melt_ptr_t slot = 0; + melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 4, "NIF_TESTVAL"); + /*_.NVAL__V16*/ + meltfptr[15] = slot; + }; + ; + } + else + { /*^cond.else */ + + /*_.NVAL__V16*/ meltfptr[15] = NULL;; + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3779:/ cond"); + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.RIF__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_NREP_IFTUPLESIZED */ meltfrout->tabval[1]))) + ) /*then */ + { + /*^cond.then */ + /*^getslot */ + { + melt_ptr_t slot = 0; + melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 5, "NIF_TUPSIZ"); + /*_.NTSZ__V17*/ + meltfptr[16] = slot; + }; + ; + } + else + { /*^cond.else */ + + /*_.NTSZ__V17*/ meltfptr[16] = NULL;; + } + ; + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-genobj.melt:3781:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = + /*MELT_NEED_DBG */ +#if MELT_HAVE_DEBUG + ( /*melt_need_dbg */ melt_need_debug ((int) 0)) +#else + 0 /* no melt_need_dbg */ +#endif /*MELT_HAVE_DEBUG */ + ;; + MELT_LOCATION ("warmelt-genobj.melt:3781:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION ("warmelt-genobj.melt:3781:/ apply"); + /*apply */ + { + union meltparam_un argtab[7]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-genobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 3781; + /*^apply.arg */ + argtab[3].meltbp_cstring = "compilobj_nrep_iftuplesized nval="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.NVAL__V16*/ meltfptr[15]; + /*^apply.arg */ + argtab[5].meltbp_cstring = " ntsz="; + /*^apply.arg */ + argtab[6].meltbp_aptr = + (melt_ptr_t *) & /*_.NTSZ__V17*/ meltfptr[16]; + /*_.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];; + /*epilog */ + + MELT_LOCATION ("warmelt-genobj.melt:3781:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V19*/ meltfptr[18] = NULL;; + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3781:/ quasiblock"); + + + /*_.PROGN___V21*/ meltfptr[19] = /*_.IF___V19*/ meltfptr[18];; + /*^compute */ + + /*_.IFCPP___V18*/ meltfptr[17] = /*_.PROGN___V21*/ meltfptr[19];; + /*epilog */ + + MELT_LOCATION ("warmelt-genobj.melt:3781:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.IF___V19*/ meltfptr[18] = 0; + /*^clear */ + /*clear *//*_.PROGN___V21*/ meltfptr[19] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V18*/ meltfptr[17] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + MELT_LOCATION ("warmelt-genobj.melt:3782:/ quasiblock"); + + + /*^msend */ + /*msend */ + { + union meltparam_un argtab[1]; + memset (&argtab, 0, sizeof (argtab)); + /*^ojbmsend.arg */ + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.GCX__V3*/ meltfptr[2]; + /*_.OTHEN__V23*/ meltfptr[19] = + meltgc_send ((melt_ptr_t) ( /*_.NTHEN__V14*/ meltfptr[13]), + (melt_ptr_t) (( /*!COMPILE_OBJ */ meltfrout->tabval[4])), + (MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3783:/ msend"); + /*msend */ + { + union meltparam_un argtab[1]; + memset (&argtab, 0, sizeof (argtab)); + /*^ojbmsend.arg */ + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.GCX__V3*/ meltfptr[2]; + /*_.OVAL__V24*/ meltfptr[23] = + meltgc_send ((melt_ptr_t) ( /*_.NVAL__V16*/ meltfptr[15]), + (melt_ptr_t) (( /*!COMPILE_OBJ */ meltfrout->tabval[4])), + (MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3784:/ msend"); + /*msend */ + { + union meltparam_un argtab[1]; + memset (&argtab, 0, sizeof (argtab)); + /*^ojbmsend.arg */ + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.GCX__V3*/ meltfptr[2]; + /*_.OELSE__V25*/ meltfptr[24] = + meltgc_send ((melt_ptr_t) ( /*_.NELSE__V15*/ meltfptr[14]), + (melt_ptr_t) (( /*!COMPILE_OBJ */ meltfrout->tabval[4])), + (MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3785:/ msend"); + /*msend */ + { + union meltparam_un argtab[1]; + memset (&argtab, 0, sizeof (argtab)); + /*^ojbmsend.arg */ + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.GCX__V3*/ meltfptr[2]; + /*_.OVAL__V26*/ meltfptr[25] = + meltgc_send ((melt_ptr_t) ( /*_.NVAL__V16*/ meltfptr[15]), + (melt_ptr_t) (( /*!COMPILE_OBJ */ meltfrout->tabval[4])), + (MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3786:/ msend"); + /*msend */ + { + union meltparam_un argtab[1]; + memset (&argtab, 0, sizeof (argtab)); + /*^ojbmsend.arg */ + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.GCX__V3*/ meltfptr[2]; + /*_.OTSZ__V27*/ meltfptr[26] = + meltgc_send ((melt_ptr_t) ( /*_.NTSZ__V17*/ meltfptr[16]), + (melt_ptr_t) (( /*!COMPILE_OBJ */ meltfrout->tabval[4])), + (MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3788:/ apply"); + /*apply */ + { + union meltparam_un argtab[8]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_aptr = + (melt_ptr_t *) & ( /*!CTYPE_LONG */ meltfrout->tabval[6]); + /*^apply.arg */ + argtab[1].meltbp_cstring = + "/*iftuplesized*/ melt_magic_discr((melt_ptr_t)("; + /*^apply.arg */ + argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.OVAL__V26*/ meltfptr[25]; + /*^apply.arg */ + argtab[3].meltbp_cstring = + ")) == MELTOBMAG_MULTIPLE\n\t\t\t\t && ((meltmultiple_ptr_t)("; + /*^apply.arg */ + argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.OVAL__V26*/ meltfptr[25]; + /*^apply.arg */ + argtab[5].meltbp_cstring = "))->nbval == (int)("; + /*^apply.arg */ + argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.OTSZ__V27*/ meltfptr[26]; + /*^apply.arg */ + argtab[7].meltbp_cstring = ")"; + /*_.OTEST__V28*/ meltfptr[27] = + melt_apply ((meltclosure_ptr_t) + (( /*!MAKE_OBJLOCATEDEXP */ meltfrout->tabval[5])), + (melt_ptr_t) ( /*_.LOC__V13*/ meltfptr[12]), + (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR + MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING + MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", + (union meltparam_un *) 0); + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3791:/ quasiblock"); + + + /*^rawallocobj */ + /*rawallocobj */ + { + melt_ptr_t newobj = 0; + melt_raw_object_create (newobj, + (melt_ptr_t) (( /*!CLASS_OBJCOND */ meltfrout-> + tabval[7])), (4), + "CLASS_OBJCOND"); + /*_.INST__V30*/ meltfptr[29] = + newobj; + }; + ; + /*^putslot */ + /*putslot */ + melt_assertmsg ("putslot checkobj @OBI_LOC", + melt_magic_discr ((melt_ptr_t) + ( /*_.INST__V30*/ meltfptr[29])) == + MELTOBMAG_OBJECT); + melt_putfield_object (( /*_.INST__V30*/ meltfptr[29]), (0), + ( /*_.LOC__V13*/ meltfptr[12]), "OBI_LOC"); + ; + /*^putslot */ + /*putslot */ + melt_assertmsg ("putslot checkobj @OBCOND_TEST", + melt_magic_discr ((melt_ptr_t) + ( /*_.INST__V30*/ meltfptr[29])) == + MELTOBMAG_OBJECT); + melt_putfield_object (( /*_.INST__V30*/ meltfptr[29]), (1), + ( /*_.OTEST__V28*/ meltfptr[27]), "OBCOND_TEST"); + ; + /*^putslot */ + /*putslot */ + melt_assertmsg ("putslot checkobj @OBCOND_THEN", + melt_magic_discr ((melt_ptr_t) + ( /*_.INST__V30*/ meltfptr[29])) == + MELTOBMAG_OBJECT); + melt_putfield_object (( /*_.INST__V30*/ meltfptr[29]), (2), + ( /*_.OTHEN__V23*/ meltfptr[19]), "OBCOND_THEN"); + ; + /*^putslot */ + /*putslot */ + melt_assertmsg ("putslot checkobj @OBCOND_ELSE", + melt_magic_discr ((melt_ptr_t) + ( /*_.INST__V30*/ meltfptr[29])) == + MELTOBMAG_OBJECT); + melt_putfield_object (( /*_.INST__V30*/ meltfptr[29]), (3), + ( /*_.OELSE__V25*/ meltfptr[24]), "OBCOND_ELSE"); + ; + /*_.OBIF__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-genobj.melt:3797:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = + /*MELT_NEED_DBG */ +#if MELT_HAVE_DEBUG + ( /*melt_need_dbg */ melt_need_debug ((int) 0)) +#else + 0 /* no melt_need_dbg */ +#endif /*MELT_HAVE_DEBUG */ + ;; + MELT_LOCATION ("warmelt-genobj.melt:3797:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[1] = + meltcallcount;; + MELT_LOCATION ("warmelt-genobj.melt:3797:/ apply"); + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[1]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-genobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 3797; + /*^apply.arg */ + argtab[3].meltbp_cstring = "compilobj_nrep_iftuplesized obif="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.OBIF__V29*/ meltfptr[28]; + /*_.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];; + /*epilog */ + + MELT_LOCATION ("warmelt-genobj.melt:3797:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V32*/ meltfptr[31] = NULL;; + } + ; + MELT_LOCATION ("warmelt-genobj.melt:3797:/ quasiblock"); + + + /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[31];; + /*^compute */ + + /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; + /*epilog */ + + MELT_LOCATION ("warmelt-genobj.melt:3797:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; + /*^clear */ + /*clear *//*_.IF___V32*/ meltfptr[31] = 0; + /*^clear */ + /*clear *//*_.PROGN___V34*/ meltfptr[32] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + /*^compute */ + + /*_.LET___V22*/ meltfptr[18] = /*_.OBIF__V29*/ meltfptr[28];; + + MELT_LOCATION ("warmelt-genobj.melt:3782:/ clear"); + /*clear *//*_.OTHEN__V23*/ meltfptr[19] = 0; + /*^clear */ + /*clear *//*_.OVAL__V24*/ meltfptr[23] = 0; + /*^clear */ + /*clear *//*_.OELSE__V25*/ meltfptr[24] = 0; + /*^clear */ + /*clear *//*_.OVAL__V26*/ meltfptr[25] = 0; + /*^clear */ + /*clear *//*_.OTSZ__V27*/ meltfptr[26] = 0; + /*^clear */ + /*clear *//*_.OTEST__V28*/ meltfptr[27] = 0; + /*^clear */ + /*clear *//*_.OBIF__V29*/ meltfptr[28] = 0; + /*^clear */ + /*clear *//*_.IFCPP___V31*/ meltfptr[30] = 0; + /*_.LET___V12*/ meltfptr[10] = /*_.LET___V22*/ meltfptr[18];; + + MELT_LOCATION ("warmelt-genobj.melt:3775:/ clear"); + /*clear *//*_.LOC__V13*/ meltfptr[12] = 0; + /*^clear */ + /*clear *//*_.NTHEN__V14*/ meltfptr[13] = 0; + /*^clear */ + /*clear *//*_.NELSE__V15*/ meltfptr[14] = 0; + /*^clear */ + /*clear *//*_.NVAL__V16*/ meltfptr[15] = 0; + /*^clear */ + /*clear *//*_.NTSZ__V17*/ meltfptr[16] = 0; + /*^clear */ + /*clear *//*_.IFCPP___V18*/ meltfptr[17] = 0; + /*^clear */ + /*clear *//*_.LET___V22*/ meltfptr[18] = 0; + MELT_LOCATION ("warmelt-genobj.melt:3771:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; + MELT_LOCATION ("warmelt-genobj.melt:3771:/ finalreturn"); + ; + /*finalret */ goto labend_rout; + /*epilog */ + + /*^clear */ + /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; + /*^clear */ + /*clear *//*_.IFCPP___V8*/ meltfptr[4] = 0; + /*^clear */ + /*clear *//*_.IFCPP___V10*/ meltfptr[5] = 0; + /*^clear */ + /*clear *//*_.LET___V12*/ meltfptr[10] = 0; + } + + ; + goto labend_rout; +labend_rout: + melt_trace_end ("COMPILOBJ_NREP_IFTUPLESIZED", meltcallcount); + melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; + return (melt_ptr_t) ( /*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFTUPLESIZED */ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_114_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -21139,7 +21952,7 @@ meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC (meltclosure_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC_st + struct frame_meltrout_114_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -21178,7 +21991,7 @@ meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-genobj.melt:3779:/ getarg"); + MELT_LOCATION ("warmelt-genobj.melt:3803:/ getarg"); /*_.RIF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21199,7 +22012,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3780:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3804:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21208,7 +22021,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_NREP_IFVARIADIC */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-genobj.melt:3780:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3804:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21216,7 +22029,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-genobj.melt:3780:/ cond.else"); + MELT_LOCATION ("warmelt-genobj.melt:3804:/ cond.else"); /*^block */ /*anyblock */ @@ -21230,7 +22043,7 @@ lab_endgetargs:; melt_assert_failed (("check rif"), ("warmelt-genobj.melt") ? ("warmelt-genobj.melt") : __FILE__, - (3780) ? (3780) : __LINE__, __FUNCTION__); + (3804) ? (3804) : __LINE__, __FUNCTION__); ; } ; @@ -21245,7 +22058,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3780:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3804:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -21258,7 +22071,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3781:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3805:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21267,7 +22080,7 @@ lab_endgetargs:; 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:3781:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3805:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21275,7 +22088,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-genobj.melt:3781:/ cond.else"); + MELT_LOCATION ("warmelt-genobj.melt:3805:/ cond.else"); /*^block */ /*anyblock */ @@ -21289,7 +22102,7 @@ lab_endgetargs:; melt_assert_failed (("check gcx"), ("warmelt-genobj.melt") ? ("warmelt-genobj.melt") : __FILE__, - (3781) ? (3781) : __LINE__, __FUNCTION__); + (3805) ? (3805) : __LINE__, __FUNCTION__); ; } ; @@ -21304,7 +22117,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3781:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3805:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -21317,7 +22130,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3782:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3806:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21340,7 +22153,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3782:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3806:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21350,7 +22163,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3782:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3806:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -21360,7 +22173,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3782; + argtab[2].meltbp_long = 3806; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifvariadic rif="; /*^apply.arg */ @@ -21380,7 +22193,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3782:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3806:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; @@ -21393,7 +22206,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3782:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3806:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; @@ -21402,7 +22215,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3782:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3806:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V9*/ meltfptr[8] = 0; @@ -21415,7 +22228,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-genobj.melt:3783:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3807:/ quasiblock"); /*^getslot */ @@ -21426,7 +22239,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-genobj.melt:3784:/ getslot"); + MELT_LOCATION ("warmelt-genobj.melt:3808:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 2, "NIF_THEN"); @@ -21434,7 +22247,7 @@ lab_endgetargs:; meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-genobj.melt:3785:/ getslot"); + MELT_LOCATION ("warmelt-genobj.melt:3809:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 3, "NIF_ELSE"); @@ -21442,7 +22255,7 @@ lab_endgetargs:; meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-genobj.melt:3786:/ getslot"); + MELT_LOCATION ("warmelt-genobj.melt:3810:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 4, "NIFV_VARIADIC"); @@ -21450,7 +22263,7 @@ lab_endgetargs:; meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-genobj.melt:3787:/ getslot"); + MELT_LOCATION ("warmelt-genobj.melt:3811:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), 5, "NIFV_CTYPES"); @@ -21463,7 +22276,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.NVCTYPES__V17*/ meltfptr[16])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3790:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3814:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21474,7 +22287,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.NVCTYPES__V17*/ meltfptr[16])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-genobj.melt:3790:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3814:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21482,7 +22295,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-genobj.melt:3790:/ cond.else"); + MELT_LOCATION ("warmelt-genobj.melt:3814:/ cond.else"); /*^block */ /*anyblock */ @@ -21496,7 +22309,7 @@ lab_endgetargs:; melt_assert_failed (("check nvctypes"), ("warmelt-genobj.melt") ? ("warmelt-genobj.melt") : __FILE__, - (3790) ? (3790) : __LINE__, __FUNCTION__); + (3814) ? (3814) : __LINE__, __FUNCTION__); ; } ; @@ -21511,7 +22324,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3790:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3814:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -21524,7 +22337,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3791:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3815:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21534,7 +22347,7 @@ lab_endgetargs:; ( /*_.NVARIADIC__V16*/ meltfptr[15]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-genobj.melt:3791:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3815:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21542,7 +22355,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-genobj.melt:3791:/ cond.else"); + MELT_LOCATION ("warmelt-genobj.melt:3815:/ cond.else"); /*^block */ /*anyblock */ @@ -21556,7 +22369,7 @@ lab_endgetargs:; melt_assert_failed (("check nvariadic"), ("warmelt-genobj.melt") ? ("warmelt-genobj.melt") : __FILE__, - (3791) ? (3791) : __LINE__, __FUNCTION__); + (3815) ? (3815) : __LINE__, __FUNCTION__); ; } ; @@ -21571,7 +22384,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3791:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3815:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; @@ -21584,7 +22397,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3792:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3816:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21607,7 +22420,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3792:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3816:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21617,7 +22430,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3792:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3816:/ apply"); /*apply */ { union meltparam_un argtab[9]; @@ -21627,7 +22440,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3792; + argtab[2].meltbp_long = 3816; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifvariadic nthen="; /*^apply.arg */ @@ -21659,7 +22472,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3792:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3816:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0; @@ -21672,7 +22485,7 @@ lab_endgetargs:; /*_.IF___V23*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3792:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3816:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[23] = /*_.IF___V23*/ meltfptr[22];; @@ -21681,7 +22494,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = /*_.PROGN___V25*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3792:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3816:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V23*/ meltfptr[22] = 0; @@ -21694,10 +22507,10 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-genobj.melt:3793:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3817:/ quasiblock"); - MELT_LOCATION ("warmelt-genobj.melt:3794:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3818:/ apply"); /*apply */ { /*_.OVARIADICINDEX__V27*/ meltfptr[23] = @@ -21707,7 +22520,7 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-genobj.melt:3795:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3819:/ apply"); /*apply */ { /*_.OVARIADICLENGTH__V28*/ meltfptr[27] = @@ -21719,7 +22532,7 @@ lab_endgetargs:; ; /*_#I__L10*/ meltfnum[8] = (( /*_#NBVARARG__L5*/ meltfnum[3]) <= (0));; - MELT_LOCATION ("warmelt-genobj.melt:3797:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3821:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -21739,7 +22552,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_VERBATIM_STRING */ meltfrout->tabval[6])), (" == ")));; - MELT_LOCATION ("warmelt-genobj.melt:3798:/ blockmultialloc"); + MELT_LOCATION ("warmelt-genobj.melt:3822:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -21787,7 +22600,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-genobj.melt:3799:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3823:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /5 checkpair", melt_magic_discr ((melt_ptr_t) @@ -21799,7 +22612,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /7f77a8e checkpair", + melt_assertmsg ("putpairtail /31da72d3 checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.PAIROFLIST__V33*/ meltfptr[32])) == @@ -21810,7 +22623,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.PAIROFLIST__V33*/ meltfptr[32]); ; - MELT_LOCATION ("warmelt-genobj.melt:3798:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3822:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /6 checkpair", melt_magic_discr ((melt_ptr_t) @@ -21822,7 +22635,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /7420f8a checkpair", + melt_assertmsg ("putpairtail /3771c76d checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.OVARIADICINDEX__V34*/ meltfptr[33])) == @@ -21833,7 +22646,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.OVARIADICINDEX__V34*/ meltfptr[33]); ; - MELT_LOCATION ("warmelt-genobj.melt:3801:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3825:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /7 checkpair", melt_magic_discr ((melt_ptr_t) @@ -21845,7 +22658,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /18b59653 checkpair", + melt_assertmsg ("putpairtail /c707dcd checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.PAIROFLIST__V35*/ meltfptr[34])) == @@ -21856,7 +22669,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.PAIROFLIST__V35*/ meltfptr[34]); ; - MELT_LOCATION ("warmelt-genobj.melt:3798:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3822:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /8 checkpair", melt_magic_discr ((melt_ptr_t) @@ -21887,7 +22700,7 @@ lab_endgetargs:; /*_.LIST___V32*/ meltfptr[31] = /*_.LIST___V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3798:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3822:/ clear"); /*clear *//*_.PAIROFLIST__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.OVARIADICINDEX__V34*/ meltfptr[33] = 0; @@ -21913,7 +22726,7 @@ lab_endgetargs:; /*_.LIST___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3797:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3821:/ clear"); /*clear *//*_.MAKE_STRINGCONST__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.MAKE_STRINGCONST__V31*/ meltfptr[30] = 0; @@ -21929,7 +22742,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-genobj.melt:3804:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3828:/ quasiblock"); /*_.MAKE_STRINGCONST__V39*/ meltfptr[33] = @@ -21979,7 +22792,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_VERBATIM_STRING */ meltfrout->tabval[6])), (" <= ")));; - MELT_LOCATION ("warmelt-genobj.melt:3805:/ blockmultialloc"); + MELT_LOCATION ("warmelt-genobj.melt:3829:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_2_st @@ -22069,7 +22882,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-genobj.melt:3806:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3830:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /9 checkpair", melt_magic_discr ((melt_ptr_t) @@ -22081,7 +22894,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /c47f86e checkpair", + melt_assertmsg ("putpairtail /33682df3 checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.PAIROFLIST__V47*/ meltfptr[46])) == @@ -22092,7 +22905,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.PAIROFLIST__V47*/ meltfptr[46]); ; - MELT_LOCATION ("warmelt-genobj.melt:3807:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3831:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /a checkpair", melt_magic_discr ((melt_ptr_t) @@ -22104,7 +22917,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /3e6de388 checkpair", + melt_assertmsg ("putpairtail /190a058b checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.PAIROFLIST__V48*/ meltfptr[47])) == @@ -22115,7 +22928,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.PAIROFLIST__V48*/ meltfptr[47]); ; - MELT_LOCATION ("warmelt-genobj.melt:3808:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3832:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /b checkpair", melt_magic_discr ((melt_ptr_t) @@ -22127,7 +22940,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /3bd3257e checkpair", + melt_assertmsg ("putpairtail /8f370c9 checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.PAIROFLIST__V49*/ meltfptr[48])) == @@ -22138,7 +22951,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.PAIROFLIST__V49*/ meltfptr[48]); ; - MELT_LOCATION ("warmelt-genobj.melt:3805:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3829:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /c checkpair", melt_magic_discr ((melt_ptr_t) @@ -22150,7 +22963,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /3df792c8 checkpair", + melt_assertmsg ("putpairtail /2fc0a2f8 checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.OVARIADICINDEX__V50*/ meltfptr[49])) == @@ -22161,7 +22974,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.OVARIADICINDEX__V50*/ meltfptr[49]); ; - MELT_LOCATION ("warmelt-genobj.melt:3810:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3834:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /d checkpair", melt_magic_discr ((melt_ptr_t) @@ -22173,7 +22986,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /3c94d5c9 checkpair", + melt_assertmsg ("putpairtail /139f3729 checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.PAIROFLIST__V51*/ meltfptr[50])) == @@ -22184,7 +22997,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.PAIROFLIST__V51*/ meltfptr[50]); ; - MELT_LOCATION ("warmelt-genobj.melt:3805:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3829:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /e checkpair", melt_magic_discr ((melt_ptr_t) @@ -22196,7 +23009,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /3c0370e2 checkpair", + melt_assertmsg ("putpairtail /1e1fcb22 checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.OVARIADICINDEX__V52*/ meltfptr[51])) == @@ -22207,7 +23020,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.OVARIADICINDEX__V52*/ meltfptr[51]); ; - MELT_LOCATION ("warmelt-genobj.melt:3812:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3836:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /f checkpair", melt_magic_discr ((melt_ptr_t) @@ -22219,7 +23032,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /15e4166d checkpair", + melt_assertmsg ("putpairtail /3dd228c7 checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.PAIROFLIST__V53*/ meltfptr[52])) == @@ -22230,7 +23043,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.PAIROFLIST__V53*/ meltfptr[52]); ; - MELT_LOCATION ("warmelt-genobj.melt:3813:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3837:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /10 checkpair", melt_magic_discr ((melt_ptr_t) @@ -22242,7 +23055,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /2e159c1b checkpair", + melt_assertmsg ("putpairtail /1c1357ae checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.PAIROFLIST__V54*/ meltfptr[53])) == @@ -22253,7 +23066,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.PAIROFLIST__V54*/ meltfptr[53]); ; - MELT_LOCATION ("warmelt-genobj.melt:3814:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3838:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /11 checkpair", melt_magic_discr ((melt_ptr_t) @@ -22265,7 +23078,7 @@ lab_endgetargs:; ; /*^putpairtail */ /*putpairtail */ - melt_assertmsg ("putpairtail /21902de5 checkpair", + melt_assertmsg ("putpairtail /3770e174 checkpair", melt_magic_discr ((melt_ptr_t) ( /*_.PAIROFLIST__V55*/ meltfptr[54])) == @@ -22276,7 +23089,7 @@ lab_endgetargs:; /*^touch */ meltgc_touch ( /*_.PAIROFLIST__V55*/ meltfptr[54]); ; - MELT_LOCATION ("warmelt-genobj.melt:3805:/ putpairhead"); + MELT_LOCATION ("warmelt-genobj.melt:3829:/ putpairhead"); /*putpairhead */ melt_assertmsg ("putpairhead /12 checkpair", melt_magic_discr ((melt_ptr_t) @@ -22307,7 +23120,7 @@ lab_endgetargs:; /*_.OVLIST__V46*/ meltfptr[45] = /*_.LIST___V57*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3805:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3829:/ clear"); /*clear *//*_.PAIROFLIST__V47*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.PAIROFLIST__V48*/ meltfptr[47] = 0; @@ -22373,7 +23186,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3821:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3845:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22396,7 +23209,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3821:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3845:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -22406,7 +23219,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3821:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3845:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -22417,7 +23230,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3821; + argtab[2].meltbp_long = 3845; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifvariadic curctyp"; @@ -22444,7 +23257,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V61*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3821:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3845:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ @@ -22458,7 +23271,7 @@ lab_endgetargs:; /*_.IF___V60*/ meltfptr[48] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3821:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3845:/ quasiblock"); /*_.PROGN___V62*/ meltfptr[50] = @@ -22469,7 +23282,7 @@ lab_endgetargs:; /*_.PROGN___V62*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3821:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3845:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V60*/ meltfptr[48] = 0; @@ -22484,7 +23297,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3822:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3846:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22495,7 +23308,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[8])));; - MELT_LOCATION ("warmelt-genobj.melt:3822:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3846:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -22503,7 +23316,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-genobj.melt:3822:/ cond.else"); + MELT_LOCATION ("warmelt-genobj.melt:3846:/ cond.else"); /*^block */ /*anyblock */ @@ -22518,7 +23331,7 @@ lab_endgetargs:; ("warmelt-genobj.melt") ? ("warmelt-genobj.melt") : __FILE__, - (3822) ? (3822) : __LINE__, + (3846) ? (3846) : __LINE__, __FUNCTION__); ; } @@ -22535,7 +23348,7 @@ lab_endgetargs:; /*_.IFELSE___V64*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3822:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3846:/ clear"); /*clear *//*_#IS_A__L14*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IFELSE___V64*/ meltfptr[52] = 0; @@ -22555,7 +23368,7 @@ lab_endgetargs:; (" && meltxargdescr_[")));; { - MELT_LOCATION ("warmelt-genobj.melt:3823:/ locexp"); + MELT_LOCATION ("warmelt-genobj.melt:3847:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.OVLIST__V46*/ meltfptr[45]), (melt_ptr_t) ( /*_.MAKE_STRINGCONST__V65*/ meltfptr[53])); @@ -22563,14 +23376,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-genobj.melt:3824:/ locexp"); + MELT_LOCATION ("warmelt-genobj.melt:3848:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.OVLIST__V46*/ meltfptr[45]), (melt_ptr_t) ( /*_.OVARIADICINDEX__V27*/ meltfptr[23])); } ; - MELT_LOCATION ("warmelt-genobj.melt:3825:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3849:/ cond"); /*cond */ if ( /*_#IX__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22585,7 +23398,7 @@ lab_endgetargs:; tabval[6])), (" + ")));; { - MELT_LOCATION ("warmelt-genobj.melt:3827:/ locexp"); + MELT_LOCATION ("warmelt-genobj.melt:3851:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.OVLIST__V46*/ meltfptr[45]), (melt_ptr_t) ( /*_.MAKE_STRINGCONST__V66*/ meltfptr[54])); @@ -22598,18 +23411,18 @@ lab_endgetargs:; tabval[7])), ( /*_#IX__L11*/ meltfnum[0])));; { - MELT_LOCATION ("warmelt-genobj.melt:3828:/ locexp"); + MELT_LOCATION ("warmelt-genobj.melt:3852:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.OVLIST__V46*/ meltfptr[45]), (melt_ptr_t) ( /*_.MAKE_INTEGERBOX__V67*/ meltfptr[55])); } ; - MELT_LOCATION ("warmelt-genobj.melt:3826:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3850:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3825:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3849:/ clear"); /*clear *//*_.MAKE_STRINGCONST__V66*/ meltfptr[54] = 0; /*^clear */ /*clear *//*_.MAKE_INTEGERBOX__V67*/ meltfptr[55] = 0; @@ -22624,14 +23437,20 @@ lab_endgetargs:; ("]== ")));; { - MELT_LOCATION ("warmelt-genobj.melt:3829:/ locexp"); + MELT_LOCATION ("warmelt-genobj.melt:3853:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.OVLIST__V46*/ meltfptr[45]), (melt_ptr_t) ( /*_.MAKE_STRINGCONST__V68*/ meltfptr[56])); } ; - MELT_LOCATION ("warmelt-genobj.melt:3832:/ cond"); - /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CURCTYP__V58*/ meltfptr[46]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout->tabval[8])))) /*then */ + MELT_LOCATION ("warmelt-genobj.melt:3856:/ cond"); + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.CURCTYP__V58*/ + meltfptr[46]), + (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout->tabval[8]))) + ) /*then */ { /*^cond.then */ /*^getslot */ @@ -22660,7 +23479,7 @@ lab_endgetargs:; meltfptr[49]))));; { - MELT_LOCATION ("warmelt-genobj.melt:3830:/ locexp"); + MELT_LOCATION ("warmelt-genobj.melt:3854:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.OVLIST__V46*/ meltfptr[45]), (melt_ptr_t) ( /*_.MAKE_STRING__V70*/ @@ -22673,7 +23492,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-genobj.melt:3818:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3842:/ clear"); /*clear *//*_.CURCTYP__V58*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_#IX__L11*/ meltfnum[0] = 0; @@ -22693,7 +23512,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3834:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3858:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22716,7 +23535,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3834:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3858:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -22726,7 +23545,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3834:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3858:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -22737,7 +23556,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3834; + argtab[2].meltbp_long = 3858; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifvariadic ovlist="; @@ -22759,7 +23578,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V73*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3834:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3858:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V73*/ meltfptr[54] = 0; @@ -22772,7 +23591,7 @@ lab_endgetargs:; /*_.IF___V72*/ meltfptr[52] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3834:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3858:/ quasiblock"); /*_.PROGN___V74*/ meltfptr[55] = /*_.IF___V72*/ meltfptr[52];; @@ -22781,7 +23600,7 @@ lab_endgetargs:; /*_.IFCPP___V71*/ meltfptr[50] = /*_.PROGN___V74*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3834:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3858:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V72*/ meltfptr[52] = 0; @@ -22798,7 +23617,7 @@ lab_endgetargs:; /*_.LET___V38*/ meltfptr[32] = /*_.OVLIST__V46*/ meltfptr[45];; - MELT_LOCATION ("warmelt-genobj.melt:3804:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3828:/ clear"); /*clear *//*_.MAKE_STRINGCONST__V39*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.MAKE_INTEGERBOX__V40*/ meltfptr[34] = 0; @@ -22820,13 +23639,13 @@ lab_endgetargs:; /*_.LET___V38*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3797:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3821:/ clear"); /*clear *//*_.LET___V38*/ meltfptr[32] = 0; } ; } ; - MELT_LOCATION ("warmelt-genobj.melt:3838:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3862:/ apply"); /*apply */ { union meltparam_un argtab[1]; @@ -22842,7 +23661,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-genobj.melt:3837:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3861:/ quasiblock"); /*^rawallocobj */ @@ -22870,7 +23689,7 @@ lab_endgetargs:; /*_.OTEST__V76*/ meltfptr[52] = /*_.INST__V77*/ meltfptr[55];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3841:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3865:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22893,7 +23712,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3841:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3865:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -22903,7 +23722,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3841:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3865:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -22914,7 +23733,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3841; + argtab[2].meltbp_long = 3865; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifvariadic before compiling nthen="; @@ -22935,7 +23754,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V80*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3841:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3865:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V80*/ meltfptr[35] = 0; @@ -22948,7 +23767,7 @@ lab_endgetargs:; /*_.IF___V79*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3841:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3865:/ quasiblock"); /*_.PROGN___V81*/ meltfptr[36] = /*_.IF___V79*/ meltfptr[34];; @@ -22957,7 +23776,7 @@ lab_endgetargs:; /*_.IFCPP___V78*/ meltfptr[33] = /*_.PROGN___V81*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3841:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3865:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V79*/ meltfptr[34] = 0; @@ -22970,7 +23789,7 @@ lab_endgetargs:; /*_.IFCPP___V78*/ meltfptr[33] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-genobj.melt:3842:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3866:/ quasiblock"); /*^msend */ @@ -22989,7 +23808,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3844:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3868:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23012,7 +23831,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3844:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3868:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -23022,7 +23841,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3844:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3868:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -23033,7 +23852,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3844; + argtab[2].meltbp_long = 3868; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifvariadic after compiling nthen="; @@ -23060,7 +23879,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V86*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3844:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3868:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V86*/ meltfptr[50] = 0; @@ -23073,7 +23892,7 @@ lab_endgetargs:; /*_.IF___V85*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3844:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3868:/ quasiblock"); /*_.PROGN___V87*/ meltfptr[32] = /*_.IF___V85*/ meltfptr[45];; @@ -23082,7 +23901,7 @@ lab_endgetargs:; /*_.IFCPP___V84*/ meltfptr[31] = /*_.PROGN___V87*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3844:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3868:/ clear"); /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V85*/ meltfptr[45] = 0; @@ -23099,17 +23918,17 @@ lab_endgetargs:; /*_.LET___V82*/ meltfptr[29] = /*_.OBJTHEN__V83*/ meltfptr[30];; - MELT_LOCATION ("warmelt-genobj.melt:3842:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3866:/ clear"); /*clear *//*_.OBJTHEN__V83*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.IFCPP___V84*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-genobj.melt:3840:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3864:/ quasiblock"); /*_.OTHEN__V88*/ meltfptr[35] = /*_.LET___V82*/ meltfptr[29];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3849:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3873:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23132,7 +23951,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3849:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3873:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -23142,7 +23961,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3849:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3873:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -23153,7 +23972,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3849; + argtab[2].meltbp_long = 3873; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifvariadic before compiling nelse="; @@ -23174,7 +23993,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V91*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3849:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3873:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V91*/ meltfptr[50] = 0; @@ -23187,7 +24006,7 @@ lab_endgetargs:; /*_.IF___V90*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3849:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3873:/ quasiblock"); /*_.PROGN___V92*/ meltfptr[45] = /*_.IF___V90*/ meltfptr[36];; @@ -23196,7 +24015,7 @@ lab_endgetargs:; /*_.IFCPP___V89*/ meltfptr[34] = /*_.PROGN___V92*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3849:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3873:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V90*/ meltfptr[36] = 0; @@ -23209,7 +24028,7 @@ lab_endgetargs:; /*_.IFCPP___V89*/ meltfptr[34] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-genobj.melt:3850:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3874:/ quasiblock"); /*^msend */ @@ -23228,7 +24047,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3852:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3876:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23251,7 +24070,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3852:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3876:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L23*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -23261,7 +24080,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3852:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3876:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -23272,7 +24091,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3852; + argtab[2].meltbp_long = 3876; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifvariadic after compiling nelse="; @@ -23299,7 +24118,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V97*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3852:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3876:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L24*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V97*/ meltfptr[36] = 0; @@ -23312,7 +24131,7 @@ lab_endgetargs:; /*_.IF___V96*/ meltfptr[50] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3852:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3876:/ quasiblock"); /*_.PROGN___V98*/ meltfptr[45] = /*_.IF___V96*/ meltfptr[50];; @@ -23321,7 +24140,7 @@ lab_endgetargs:; /*_.IFCPP___V95*/ meltfptr[31] = /*_.PROGN___V98*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3852:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3876:/ clear"); /*clear *//*_#MELT_NEED_DBG__L23*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V96*/ meltfptr[50] = 0; @@ -23338,15 +24157,15 @@ lab_endgetargs:; /*_.LET___V93*/ meltfptr[32] = /*_.OBJELSE__V94*/ meltfptr[30];; - MELT_LOCATION ("warmelt-genobj.melt:3850:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3874:/ clear"); /*clear *//*_.OBJELSE__V94*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.IFCPP___V95*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-genobj.melt:3848:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3872:/ quasiblock"); /*_.OELSE__V99*/ meltfptr[36] = /*_.LET___V93*/ meltfptr[32];; - MELT_LOCATION ("warmelt-genobj.melt:3855:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3879:/ quasiblock"); /*^rawallocobj */ @@ -23400,7 +24219,7 @@ lab_endgetargs:; /*_.OCOND__V100*/ meltfptr[50] = /*_.INST__V101*/ meltfptr[45];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3861:/ cppif.then"); + MELT_LOCATION ("warmelt-genobj.melt:3885:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23423,7 +24242,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-genobj.melt:3861:/ cond"); + MELT_LOCATION ("warmelt-genobj.melt:3885:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L25*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -23433,7 +24252,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION ("warmelt-genobj.melt:3861:/ apply"); + MELT_LOCATION ("warmelt-genobj.melt:3885:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -23444,7 +24263,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3861; + argtab[2].meltbp_long = 3885; /*^apply.arg */ argtab[3].meltbp_cstring = "compilobj_nrep_ifvariadic ocond="; /*^apply.arg */ @@ -23464,7 +24283,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V104*/ meltfptr[103];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3861:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3885:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L26*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V104*/ meltfptr[103] = 0; @@ -23477,7 +24296,7 @@ lab_endgetargs:; /*_.IF___V103*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-genobj.melt:3861:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3885:/ quasiblock"); /*_.PROGN___V105*/ meltfptr[103] = /*_.IF___V103*/ meltfptr[31];; @@ -23486,7 +24305,7 @@ lab_endgetargs:; /*_.IFCPP___V102*/ meltfptr[30] = /*_.PROGN___V105*/ meltfptr[103];; /*epilog */ - MELT_LOCATION ("warmelt-genobj.melt:3861:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3885:/ clear"); /*clear *//*_#MELT_NEED_DBG__L25*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V103*/ meltfptr[31] = 0; @@ -23499,16 +24318,16 @@ lab_endgetargs:; /*_.IFCPP___V102*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-genobj.melt:3862:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3886:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.OCOND__V100*/ meltfptr[50];; - MELT_LOCATION ("warmelt-genobj.melt:3862:/ finalreturn"); + MELT_LOCATION ("warmelt-genobj.melt:3886:/ finalreturn"); ; /*finalret */ goto labend_rout; /*_.LET___V26*/ meltfptr[22] = /*_.RETURN___V106*/ meltfptr[31];; - MELT_LOCATION ("warmelt-genobj.melt:3793:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3817:/ clear"); /*clear *//*_.OVARIADICINDEX__V27*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.OVARIADICLENGTH__V28*/ meltfptr[27] = 0; @@ -23540,7 +24359,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V106*/ meltfptr[31] = 0; /*_.LET___V12*/ meltfptr[8] = /*_.LET___V26*/ meltfptr[22];; - MELT_LOCATION ("warmelt-genobj.melt:3783:/ clear"); + MELT_LOCATION ("warmelt-genobj.melt:3807:/ clear"); /*clear *//*_.LOC__V13*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.NTHEN__V14*/ meltfptr[13] = 0; @@ -23560,11 +24379,11 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V22*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.LET___V26*/ meltfptr[22] = 0; - MELT_LOCATION ("warmelt-genobj.melt:3779:/ quasiblock"); + MELT_LOCATION ("warmelt-genobj.melt:3803:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[8];; - MELT_LOCATION ("warmelt-genobj.melt:3779:/ finalreturn"); + MELT_LOCATION ("warmelt-genobj.melt:3803:/ finalreturn"); ; /*finalret */ goto labend_rout; /*epilog */ @@ -23589,175 +24408,7 @@ labend_rout: #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC */ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_114_warmelt_genobj_GETCTYPE_IFVARIADIC (meltclosure_ptr_t meltclosp_, - melt_ptr_t meltfirstargp_, - const melt_argdescr_cell_t - meltxargdescr_[], - union meltparam_un * - meltxargtab_, - const melt_argdescr_cell_t - meltxresdescr_[], - union meltparam_un * - meltxrestab_) -{ -#if MELT_HAVE_DEBUG - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_114_warmelt_genobj_GETCTYPE_IFVARIADIC_st - { - int mcfr_nbvar; -#if MELT_HAVE_DEBUG - const char *mcfr_flocs; -#else /*!MELT_HAVE_DEBUG */ - const char *mcfr_unusedflocs; -#endif /*MELT_HAVE_DEBUG */ - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct melt_callframe_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 5 - void *mcfr_varptr[5]; -#define MELTFRAM_NBVARNUM 1 - long mcfr_varnum[1]; -/*others*/ - long _spare_; - } - *meltframptr_ = 0, meltfram__; -#define meltframe meltfram__ - if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) - { /*mark for ggc */ - int ix = 0; - meltframptr_ = (void *) meltfirstargp_; - gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (ix = 0; ix < 5; ix++) - if (meltframptr_->mcfr_varptr[ix]) - gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); - return NULL; - } /*end markggc */ ; - memset (&meltfram__, 0, sizeof (meltfram__)); - meltfram__.mcfr_nbvar = 5; - meltfram__.mcfr_clos = meltclosp_; - meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; - melt_topframe = (struct melt_callframe_st *) &meltfram__; - melt_trace_start ("GETCTYPE_IFVARIADIC", meltcallcount); -/*getargs*/ - - /*getarg#0 */ - MELT_LOCATION ("warmelt-genobj.melt:3865:/ getarg"); - /*_.RIF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; - - /*getarg#1 */ - /*^getarg */ - if (meltxargdescr_[0] != MELTBPAR_PTR) - goto lab_endgetargs; - /*_.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); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/ - { - - -#if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-genobj.melt:3866:/ cppif.then"); - /*^block */ - /*anyblock */ - { - - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of ((melt_ptr_t) ( /*_.RIF__V2*/ meltfptr[1]), - (melt_ptr_t) (( /*!CLASS_NREP_IFVARIADIC */ - meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-genobj.melt:3866:/ cond"); - /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ - { - /*^cond.then */ - /*_.IFELSE___V5*/ meltfptr[4] = ( /*nil */ NULL);; - } - else - { - MELT_LOCATION ("warmelt-genobj.melt:3866:/ cond.else"); - - /*^block */ - /*anyblock */ - { - - - - - { - /*^locexp */ - melt_assert_failed (("check ifvariadic"), - ("warmelt-genobj.melt") - ? ("warmelt-genobj.melt") : __FILE__, - (3866) ? (3866) : __LINE__, __FUNCTION__); - ; - } - ; - /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; - /*epilog */ - } - ; - } - ; - /*^compute */ - - /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; - /*epilog */ - - MELT_LOCATION ("warmelt-genobj.melt:3866:/ clear"); - /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; - /*^clear */ - /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; - } - -#else /*MELT_HAVE_DEBUG */ - /*^cppif.else */ - /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); -#endif /*MELT_HAVE_DEBUG */ - ; - MELT_LOCATION ("warmelt-genobj.melt:3865:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = ( /*!CTYPE_VOID */ meltfrout->tabval[1]);; - MELT_LOCATION ("warmelt-genobj.melt:3865:/ finalreturn"); - ; - /*finalret */ goto labend_rout; - /*epilog */ - - /*^clear */ - /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; - } - - ; - goto labend_rout; -labend_rout: - melt_trace_end ("GETCTYPE_IFVARIADIC", meltcallcount); - melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; - return (melt_ptr_t) ( /*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_114_warmelt_genobj_GETCTYPE_IFVARIADIC */ +} /*end meltrout_114_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC */ |