diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-09-04 14:34:13 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-09-04 14:34:13 +0000 |
| commit | 88a63df19ed80be1447ecd3223132c205caca440 (patch) | |
| tree | e12c6d9dc22ae4cb24c206bdf0e7b8bde59e4b38 /gcc/melt/generated/warmelt-macro+02.c | |
| parent | 660b1c7d7afcce131c2254937d7f51e1a6e454af (diff) | |
| download | gcc-88a63df19ed80be1447ecd3223132c205caca440.tar.gz | |
2012-09-04 Basile Starynkevitch <basile@starynkevitch.net>
{{Regenerate}}
* melt/generated/warmelt-base+01.c: Regenerate.
* melt/generated/warmelt-base+02.c: Regenerate.
* melt/generated/warmelt-base+03.c: Regenerate.
* melt/generated/warmelt-base+meltdesc.c: Regenerate.
* melt/generated/warmelt-base+melttime.h: Regenerate.
* melt/generated/warmelt-base.c: Regenerate.
* melt/generated/warmelt-debug+01.c: Regenerate.
* melt/generated/warmelt-debug+02.c: Regenerate.
* melt/generated/warmelt-debug+meltdesc.c: Regenerate.
* melt/generated/warmelt-debug+melttime.h: Regenerate.
* melt/generated/warmelt-debug.c: Regenerate.
* melt/generated/warmelt-first+01.c: Regenerate.
* melt/generated/warmelt-first+02.c: Regenerate.
* melt/generated/warmelt-first+03.c: Regenerate.
* melt/generated/warmelt-first+meltdesc.c: Regenerate.
* melt/generated/warmelt-first+melttime.h: Regenerate.
* melt/generated/warmelt-first.c: Regenerate.
* melt/generated/warmelt-genobj+01.c: Regenerate.
* melt/generated/warmelt-genobj+02.c: Regenerate.
* melt/generated/warmelt-genobj+03.c: Regenerate.
* melt/generated/warmelt-genobj+04.c: Regenerate.
* melt/generated/warmelt-genobj+05.c: Regenerate.
* melt/generated/warmelt-genobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-genobj+melttime.h: Regenerate.
* melt/generated/warmelt-genobj.c: Regenerate.
* melt/generated/warmelt-macro+01.c: Regenerate.
* melt/generated/warmelt-macro+02.c: Regenerate.
* melt/generated/warmelt-macro+03.c: Regenerate.
* melt/generated/warmelt-macro+04.c: Regenerate.
* melt/generated/warmelt-macro+05.c: Regenerate.
* melt/generated/warmelt-macro+meltdesc.c: Regenerate.
* melt/generated/warmelt-macro+melttime.h: Regenerate.
* melt/generated/warmelt-macro.c: Regenerate.
* melt/generated/warmelt-modes+01.c: Regenerate.
* melt/generated/warmelt-modes+02.c: Regenerate.
* melt/generated/warmelt-modes+meltdesc.c: Regenerate.
* melt/generated/warmelt-modes+melttime.h: Regenerate.
* melt/generated/warmelt-modes.c: Regenerate.
* melt/generated/warmelt-normal+01.c: Regenerate.
* melt/generated/warmelt-normal+02.c: Regenerate.
* melt/generated/warmelt-normal+03.c: Regenerate.
* melt/generated/warmelt-normal+04.c: Regenerate.
* melt/generated/warmelt-normal+05.c: Regenerate.
* melt/generated/warmelt-normal+meltdesc.c: Regenerate.
* melt/generated/warmelt-normal+melttime.h: Regenerate.
* melt/generated/warmelt-normal.c: Regenerate.
* melt/generated/warmelt-normatch+01.c: Regenerate.
* melt/generated/warmelt-normatch+02.c: Regenerate.
* melt/generated/warmelt-normatch+03.c: Regenerate.
* melt/generated/warmelt-normatch+04.c: Regenerate.
* melt/generated/warmelt-normatch+05.c: Regenerate.
* melt/generated/warmelt-normatch+meltdesc.c: Regenerate.
* melt/generated/warmelt-normatch+melttime.h: Regenerate.
* melt/generated/warmelt-normatch.c: Regenerate.
* melt/generated/warmelt-outobj+01.c: Regenerate.
* melt/generated/warmelt-outobj+02.c: Regenerate.
* melt/generated/warmelt-outobj+03.c: Regenerate.
* melt/generated/warmelt-outobj+04.c: Regenerate.
* melt/generated/warmelt-outobj+05.c: Regenerate.
* melt/generated/warmelt-outobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-outobj+melttime.h: Regenerate.
* melt/generated/warmelt-outobj.c: Regenerate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@190935 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-macro+02.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-macro+02.c | 9464 |
1 files changed, 10 insertions, 9454 deletions
diff --git a/gcc/melt/generated/warmelt-macro+02.c b/gcc/melt/generated/warmelt-macro+02.c index e60ed56dc9e..c862bb96ac3 100644 --- a/gcc/melt/generated/warmelt-macro+02.c +++ b/gcc/melt/generated/warmelt-macro+02.c @@ -10,13 +10,9 @@ const char used_meltrun_md5_melt_f2[] = /**** warmelt-macro+02.c declarations ****/ -/* ordinary MELT module */ -#define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usual */ - -struct melt_callframe_st; /*defined in melt-runtime.h */ - -/**!!** *** +/*************************************************** +*** Copyright 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. Contributed by Basile Starynkevitch <basile@starynkevitch.net> @@ -35,12 +31,18 @@ struct melt_callframe_st; /*defined in melt-runtime.h */ You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see <http://www.gnu.org/licenses/>. -*****!!**/ +*** +****************************************************/ + +/* ordinary MELT module */ +#define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usual */ + +struct melt_callframe_st; /*defined in melt-runtime.h */ + -#line 855 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST (meltclosure_ptr_t meltclosp_, @@ -57,7 +59,6 @@ meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST (meltclosure_ptr_t -#line 899 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE (meltclosure_ptr_t meltclosp_, @@ -74,7 +75,6 @@ meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE (meltclosure_ptr_t -#line 911 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST (meltclosure_ptr_t meltclosp_, @@ -91,7 +91,6 @@ meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST (meltclosure_ptr_t -#line 950 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t meltclosp_, @@ -108,7 +107,6 @@ meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t -#line 961 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_macro_REGISTER_GENERATOR_DEVICE (meltclosure_ptr_t meltclosp_, @@ -125,7 +123,6 @@ meltrout_5_warmelt_macro_REGISTER_GENERATOR_DEVICE (meltclosure_ptr_t -#line 986 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_macro_EXPAND_APPLY (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -139,7 +136,6 @@ meltrout_6_warmelt_macro_EXPAND_APPLY (meltclosure_ptr_t meltclosp_, -#line 1006 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_macro_EXPAND_MSEND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -153,7 +149,6 @@ meltrout_7_warmelt_macro_EXPAND_MSEND (meltclosure_ptr_t meltclosp_, -#line 1038 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_macro_EXPAND_FIELDEXPR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -167,7 +162,6 @@ meltrout_8_warmelt_macro_EXPAND_FIELDEXPR (meltclosure_ptr_t meltclosp_, -#line 1096 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_macro_EXPAND_CITERATION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -181,7 +175,6 @@ meltrout_9_warmelt_macro_EXPAND_CITERATION (meltclosure_ptr_t meltclosp_, -#line 1141 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_macro_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -195,7 +188,6 @@ meltrout_10_warmelt_macro_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, -#line 1159 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_macro_EXPAND_CMATCHEXPR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -210,7 +202,6 @@ meltrout_11_warmelt_macro_EXPAND_CMATCHEXPR (meltclosure_ptr_t meltclosp_, -#line 1202 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_macro_EXPAND_FUNMATCHEXPR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -226,7 +217,6 @@ meltrout_12_warmelt_macro_EXPAND_FUNMATCHEXPR (meltclosure_ptr_t meltclosp_, -#line 1234 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_macro_EXPAND_KEYWORDFUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -241,7 +231,6 @@ meltrout_13_warmelt_macro_EXPAND_KEYWORDFUN (meltclosure_ptr_t meltclosp_, -#line 1252 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_macro_MACROEXPAND_1 (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -255,7 +244,6 @@ meltrout_14_warmelt_macro_MACROEXPAND_1 (meltclosure_ptr_t meltclosp_, -#line 1372 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_macro_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -269,7 +257,6 @@ meltrout_15_warmelt_macro_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, -#line 1412 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_macro_EXPAND_PRIMITIVE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -283,7 +270,6 @@ meltrout_16_warmelt_macro_EXPAND_PRIMITIVE (meltclosure_ptr_t meltclosp_, -#line 1443 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t meltclosp_, @@ -303,7 +289,6 @@ meltrout_17_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t -#line 1447 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_macro_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -317,7 +302,6 @@ meltrout_18_warmelt_macro_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, -#line 1457 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_macro_PATMACEXPAND_FOR_MATCHER (meltclosure_ptr_t meltclosp_, @@ -334,7 +318,6 @@ meltrout_19_warmelt_macro_PATMACEXPAND_FOR_MATCHER (meltclosure_ptr_t -#line 1470 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_macro_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -348,7 +331,6 @@ meltrout_20_warmelt_macro_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, -#line 1482 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_macro_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -362,7 +344,6 @@ meltrout_21_warmelt_macro_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, -#line 1501 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_macro_PATTERN_WEIGHT_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -378,7 +359,6 @@ meltrout_22_warmelt_macro_PATTERN_WEIGHT_TUPLE (meltclosure_ptr_t meltclosp_, -#line 1514 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_macro_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -392,7 +372,6 @@ meltrout_23_warmelt_macro_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, -#line 1535 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_macro_PATTERNEXPAND_EXPR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -408,7 +387,6 @@ meltrout_24_warmelt_macro_PATTERNEXPAND_EXPR (meltclosure_ptr_t meltclosp_, -#line 1688 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_macro_PATTERNEXPAND_1 (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -422,7 +400,6 @@ meltrout_25_warmelt_macro_PATTERNEXPAND_1 (meltclosure_ptr_t meltclosp_, -#line 1779 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST (meltclosure_ptr_t meltclosp_, @@ -442,7 +419,6 @@ meltrout_26_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST (meltclosure_ptr_t -#line 1852 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_macro_LAMBDA_ARG_BINDINGS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -458,7 +434,6 @@ meltrout_27_warmelt_macro_LAMBDA_ARG_BINDINGS (meltclosure_ptr_t meltclosp_, -#line 1956 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_macro_INSTALL_INITIAL_MACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -474,7 +449,6 @@ meltrout_28_warmelt_macro_INSTALL_INITIAL_MACRO (meltclosure_ptr_t meltclosp_, -#line 1969 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_macro_INSTALL_INITIAL_PATMACRO (meltclosure_ptr_t meltclosp_, @@ -491,7 +465,6 @@ meltrout_29_warmelt_macro_INSTALL_INITIAL_PATMACRO (meltclosure_ptr_t -#line 1991 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_macro_WARN_IF_REDEFINED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -506,7 +479,6 @@ meltrout_30_warmelt_macro_WARN_IF_REDEFINED (meltclosure_ptr_t meltclosp_, -#line 2004 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION (meltclosure_ptr_t meltclosp_, @@ -526,7 +498,6 @@ meltrout_31_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION (meltclosure_ptr_t -#line 2050 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION (meltclosure_ptr_t meltclosp_, @@ -546,7 +517,6 @@ meltrout_32_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION (meltclosure_ptr_t -#line 2071 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_CHECK_C_EXPANSION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -561,7 +531,6 @@ meltrout_33_warmelt_macro_CHECK_C_EXPANSION (meltclosure_ptr_t meltclosp_, -#line 2106 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFPRIMITIVE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -577,7 +546,6 @@ meltrout_34_warmelt_macro_MEXPAND_DEFPRIMITIVE (meltclosure_ptr_t meltclosp_, -#line 2229 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCITERATOR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -593,7 +561,6 @@ meltrout_35_warmelt_macro_MEXPAND_DEFCITERATOR (meltclosure_ptr_t meltclosp_, -#line 2382 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -609,7 +576,6 @@ meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER (meltclosure_ptr_t meltclosp_, -#line 2433 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -623,7 +589,6 @@ meltrout_37_warmelt_macro_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, -#line 2578 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -639,7 +604,6 @@ meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_, -#line 2625 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -653,7 +617,6 @@ meltrout_39_warmelt_macro_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, -#line 2724 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -667,7 +630,6 @@ meltrout_40_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_, -#line 2763 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -681,7 +643,6 @@ meltrout_41_warmelt_macro_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, -#line 2809 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -695,7 +656,6 @@ meltrout_42_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_, -#line 2904 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -709,7 +669,6 @@ meltrout_43_warmelt_macro_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, -#line 2930 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -723,7 +682,6 @@ meltrout_44_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_, -#line 3050 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -737,7 +695,6 @@ meltrout_45_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_, -#line 3112 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -751,7 +708,6 @@ meltrout_46_warmelt_macro_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, -#line 3121 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -765,7 +721,6 @@ meltrout_47_warmelt_macro_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, -#line 3199 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t meltclosp_, @@ -782,7 +737,6 @@ meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t -#line 3223 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -796,7 +750,6 @@ meltrout_49_warmelt_macro_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, -#line 3296 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -812,7 +765,6 @@ meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_, -#line 3410 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -828,7 +780,6 @@ meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_, -#line 3557 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -842,7 +793,6 @@ meltrout_52_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, -#line 3625 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -856,7 +806,6 @@ meltrout_53_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_, -#line 3666 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -872,7 +821,6 @@ meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, -#line 3681 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -886,7 +834,6 @@ meltrout_55_warmelt_macro_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, -#line 3710 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_PATEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -902,7 +849,6 @@ meltrout_56_warmelt_macro_PATEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, -#line 3768 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -916,7 +862,6 @@ meltrout_57_warmelt_macro_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, -#line 3805 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_PATEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -930,7 +875,6 @@ meltrout_58_warmelt_macro_PATEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, -#line 3863 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -944,7 +888,6 @@ meltrout_59_warmelt_macro_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, -#line 3882 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -958,7 +901,6 @@ meltrout_60_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, -#line 3905 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -974,7 +916,6 @@ meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_, -#line 3956 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t meltclosp_, @@ -994,7 +935,6 @@ meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t -#line 4004 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1010,7 +950,6 @@ meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_, -#line 4051 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t meltclosp_, @@ -1027,7 +966,6 @@ meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t -#line 4092 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1042,7 +980,6 @@ meltrout_65_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_, -#line 4133 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1057,7 +994,6 @@ meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, -#line 4141 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1071,7 +1007,6 @@ meltrout_67_warmelt_macro_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, -#line 4152 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1085,7 +1020,6 @@ meltrout_68_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_, -#line 4183 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1099,7 +1033,6 @@ meltrout_69_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_, -#line 4237 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1113,7 +1046,6 @@ meltrout_70_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, -#line 4273 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_UNLESS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1127,7 +1059,6 @@ meltrout_71_warmelt_macro_MEXPAND_UNLESS (meltclosure_ptr_t meltclosp_, -#line 4309 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_MEXPAND_CPPIF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1141,7 +1072,6 @@ meltrout_72_warmelt_macro_MEXPAND_CPPIF (meltclosure_ptr_t meltclosp_, -#line 4366 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_FILTERGCCVERSION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1155,7 +1085,6 @@ meltrout_73_warmelt_macro_FILTERGCCVERSION (meltclosure_ptr_t meltclosp_, -#line 4381 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_MEXPAND_GCCIF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1169,7 +1098,6 @@ meltrout_74_warmelt_macro_MEXPAND_GCCIF (meltclosure_ptr_t meltclosp_, -#line 4444 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_COND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1183,7 +1111,6 @@ meltrout_75_warmelt_macro_MEXPAND_COND (meltclosure_ptr_t meltclosp_, -#line 4454 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1197,7 +1124,6 @@ meltrout_76_warmelt_macro_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, -#line 4549 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_MEXPAND_AND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1211,7 +1137,6 @@ meltrout_77_warmelt_macro_MEXPAND_AND (meltclosure_ptr_t meltclosp_, -#line 4562 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1225,7 +1150,6 @@ meltrout_78_warmelt_macro_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, -#line 4590 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_PATEXPAND_AS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1239,7 +1163,6 @@ meltrout_79_warmelt_macro_PATEXPAND_AS (meltclosure_ptr_t meltclosp_, -#line 4628 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_MEXPAND_AS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1253,7 +1176,6 @@ meltrout_80_warmelt_macro_MEXPAND_AS (meltclosure_ptr_t meltclosp_, -#line 4642 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_PATEXPAND_WHEN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1267,7 +1189,6 @@ meltrout_81_warmelt_macro_PATEXPAND_WHEN (meltclosure_ptr_t meltclosp_, -#line 4657 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1281,7 +1202,6 @@ meltrout_82_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, -#line 4672 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_PATEXPAND_AND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1295,7 +1215,6 @@ meltrout_83_warmelt_macro_PATEXPAND_AND (meltclosure_ptr_t meltclosp_, -#line 4709 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_OR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1309,7 +1228,6 @@ meltrout_84_warmelt_macro_MEXPAND_OR (meltclosure_ptr_t meltclosp_, -#line 4721 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1323,7 +1241,6 @@ meltrout_85_warmelt_macro_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, -#line 4739 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_PATEXPAND_OR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1337,7 +1254,6 @@ meltrout_86_warmelt_macro_PATEXPAND_OR (meltclosure_ptr_t meltclosp_, -#line 4777 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1352,7 +1268,6 @@ meltrout_87_warmelt_macro_MEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, -#line 4819 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_PATEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1368,7 +1283,6 @@ meltrout_88_warmelt_macro_PATEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, -#line 4859 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_macro_MEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t meltclosp_, @@ -1388,7 +1302,6 @@ meltrout_89_warmelt_macro_MEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t -#line 4866 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_PATEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t meltclosp_, @@ -1408,7 +1321,6 @@ meltrout_90_warmelt_macro_PATEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t -#line 4880 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_MEXPAND_DEREF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1422,7 +1334,6 @@ meltrout_91_warmelt_macro_MEXPAND_DEREF (meltclosure_ptr_t meltclosp_, -#line 4924 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_MEXPANDOBSOLETE_CONTENT (meltclosure_ptr_t meltclosp_, @@ -1439,7 +1350,6 @@ meltrout_92_warmelt_macro_MEXPANDOBSOLETE_CONTENT (meltclosure_ptr_t -#line 4946 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_MEXPAND_SET_REF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1453,7 +1363,6 @@ meltrout_93_warmelt_macro_MEXPAND_SET_REF (meltclosure_ptr_t meltclosp_, -#line 4998 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_MEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1467,7 +1376,6 @@ meltrout_94_warmelt_macro_MEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, -#line 5015 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_PATEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1481,7 +1389,6 @@ meltrout_95_warmelt_macro_PATEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, -#line 5045 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1495,7 +1402,6 @@ meltrout_96_warmelt_macro_MEXPAND_LIST (meltclosure_ptr_t meltclosp_, -#line 5062 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_PATEXPAND_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1509,7 +1415,6 @@ meltrout_97_warmelt_macro_PATEXPAND_LIST (meltclosure_ptr_t meltclosp_, -#line 5093 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_MATCH (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1523,7 +1428,6 @@ meltrout_98_warmelt_macro_MEXPAND_MATCH (meltclosure_ptr_t meltclosp_, -#line 5107 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1537,7 +1441,6 @@ meltrout_99_warmelt_macro_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, -#line 5185 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_MEXPAND_LETBINDING (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1553,7 +1456,6 @@ meltrout_100_warmelt_macro_MEXPAND_LETBINDING (meltclosure_ptr_t meltclosp_, -#line 5269 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_MEXPAND_LET (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1567,7 +1469,6 @@ meltrout_101_warmelt_macro_MEXPAND_LET (meltclosure_ptr_t meltclosp_, -#line 5291 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1581,7 +1482,6 @@ meltrout_102_warmelt_macro_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, -#line 5299 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1595,7 +1495,6 @@ meltrout_103_warmelt_macro_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, -#line 5312 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1609,7 +1508,6 @@ meltrout_104_warmelt_macro_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, -#line 5336 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE (meltclosure_ptr_t meltclosp_, @@ -1629,7 +1527,6 @@ meltrout_105_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE (meltclosure_ptr_t -#line 5349 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_MEXPAND_LETREC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1643,7 +1540,6 @@ meltrout_106_warmelt_macro_MEXPAND_LETREC (meltclosure_ptr_t meltclosp_, -#line 5376 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1657,7 +1553,6 @@ meltrout_107_warmelt_macro_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, -#line 5482 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1671,7 +1566,6 @@ meltrout_108_warmelt_macro_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, -#line 5504 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_LAMBDA (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1685,7 +1579,6 @@ meltrout_109_warmelt_macro_MEXPAND_LAMBDA (meltclosure_ptr_t meltclosp_, -#line 5527 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1699,7 +1592,6 @@ meltrout_110_warmelt_macro_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, -#line 5555 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_VARIADIC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1714,7 +1606,6 @@ meltrout_111_warmelt_macro_MEXPAND_VARIADIC (meltclosure_ptr_t meltclosp_, -#line 5564 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_LAMBDA___28__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1728,7 +1619,6 @@ meltrout_112_warmelt_macro_LAMBDA___28__ (meltclosure_ptr_t meltclosp_, -#line 5594 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_LAMBDA___29__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1742,7 +1632,6 @@ meltrout_113_warmelt_macro_LAMBDA___29__ (meltclosure_ptr_t meltclosp_, -#line 5625 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_LAMBDA___30__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1756,7 +1645,6 @@ meltrout_114_warmelt_macro_LAMBDA___30__ (meltclosure_ptr_t meltclosp_, -#line 5636 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_LAMBDA___31__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1770,7 +1658,6 @@ meltrout_115_warmelt_macro_LAMBDA___31__ (meltclosure_ptr_t meltclosp_, -#line 5678 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_MULTICALL (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1786,7 +1673,6 @@ meltrout_116_warmelt_macro_MEXPAND_MULTICALL (meltclosure_ptr_t meltclosp_, -#line 5711 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_LAMBDA___32__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1800,7 +1686,6 @@ meltrout_117_warmelt_macro_LAMBDA___32__ (meltclosure_ptr_t meltclosp_, -#line 5715 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_LAMBDA___33__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1814,7 +1699,6 @@ meltrout_118_warmelt_macro_LAMBDA___33__ (meltclosure_ptr_t meltclosp_, -#line 5739 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_QUOTE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1828,7 +1712,6 @@ meltrout_119_warmelt_macro_MEXPAND_QUOTE (meltclosure_ptr_t meltclosp_, -#line 5778 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_COMMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1842,7 +1725,6 @@ meltrout_120_warmelt_macro_MEXPAND_COMMENT (meltclosure_ptr_t meltclosp_, -#line 5808 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_MEXPAND_CHEADER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1856,7 +1738,6 @@ meltrout_121_warmelt_macro_MEXPAND_CHEADER (meltclosure_ptr_t meltclosp_, -#line 5857 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -1866,7 +1747,6 @@ union meltparam_un *meltxrestab_); -#line 5947 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_PAIRLIST_TO_RETURN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1882,7 +1762,6 @@ meltrout_123_warmelt_macro_PAIRLIST_TO_RETURN (meltclosure_ptr_t meltclosp_, -#line 5955 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_LAMBDA___34__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1896,7 +1775,6 @@ meltrout_124_warmelt_macro_LAMBDA___34__ (meltclosure_ptr_t meltclosp_, -#line 5963 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_PROGN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1910,7 +1788,6 @@ meltrout_125_warmelt_macro_MEXPAND_PROGN (meltclosure_ptr_t meltclosp_, -#line 5988 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_RETURN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1924,7 +1801,6 @@ meltrout_126_warmelt_macro_MEXPAND_RETURN (meltclosure_ptr_t meltclosp_, -#line 6011 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_FOREVER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1938,7 +1814,6 @@ meltrout_127_warmelt_macro_MEXPAND_FOREVER (meltclosure_ptr_t meltclosp_, -#line 6035 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_macro_LAMBDA___35__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1952,7 +1827,6 @@ meltrout_128_warmelt_macro_LAMBDA___35__ (meltclosure_ptr_t meltclosp_, -#line 6054 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_macro_MEXPAND_EXIT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1966,7 +1840,6 @@ meltrout_129_warmelt_macro_MEXPAND_EXIT (meltclosure_ptr_t meltclosp_, -#line 6080 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_macro_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1980,7 +1853,6 @@ meltrout_130_warmelt_macro_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, -#line 6097 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_macro_MEXPAND_AGAIN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1994,7 +1866,6 @@ meltrout_131_warmelt_macro_MEXPAND_AGAIN (meltclosure_ptr_t meltclosp_, -#line 6141 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_macro_MEXPAND_COMPILE_WARNING (meltclosure_ptr_t meltclosp_, @@ -2011,7 +1882,6 @@ meltrout_132_warmelt_macro_MEXPAND_COMPILE_WARNING (meltclosure_ptr_t -#line 6184 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_macro_MEXPAND_ASSERT_MSG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2027,7 +1897,6 @@ meltrout_133_warmelt_macro_MEXPAND_ASSERT_MSG (meltclosure_ptr_t meltclosp_, -#line 6273 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_macro_MEXPAND_DEBUG_MSG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2043,7 +1912,6 @@ meltrout_134_warmelt_macro_MEXPAND_DEBUG_MSG (meltclosure_ptr_t meltclosp_, -#line 6346 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_macro_MEXPAND_DEBUG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2057,7 +1925,6 @@ meltrout_135_warmelt_macro_MEXPAND_DEBUG (meltclosure_ptr_t meltclosp_, -#line 6467 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_macro_MEXPAND_EXPORT_VALUES (meltclosure_ptr_t meltclosp_, @@ -2074,7 +1941,6 @@ meltrout_136_warmelt_macro_MEXPAND_EXPORT_VALUES (meltclosure_ptr_t -#line 6479 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_macro_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2088,7 +1954,6 @@ meltrout_137_warmelt_macro_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, -#line 6505 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_macro_MEXPAND_EXPORT_MACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2104,7 +1969,6 @@ meltrout_138_warmelt_macro_MEXPAND_EXPORT_MACRO (meltclosure_ptr_t meltclosp_, -#line 6549 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_macro_MEXPAND_EXPORT_PATMACRO (meltclosure_ptr_t meltclosp_, @@ -2121,7 +1985,6 @@ meltrout_139_warmelt_macro_MEXPAND_EXPORT_PATMACRO (meltclosure_ptr_t -#line 6599 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_macro_MEXPAND_EXPORT_CLASS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2137,7 +2000,6 @@ meltrout_140_warmelt_macro_MEXPAND_EXPORT_CLASS (meltclosure_ptr_t meltclosp_, -#line 6611 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_macro_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2151,7 +2013,6 @@ meltrout_141_warmelt_macro_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, -#line 6631 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_macro_MEXPAND_EXPORT_SYNONYM (meltclosure_ptr_t meltclosp_, @@ -2168,7 +2029,6 @@ meltrout_142_warmelt_macro_MEXPAND_EXPORT_SYNONYM (meltclosure_ptr_t -#line 6683 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2178,7 +2038,6 @@ union meltparam_un *meltxrestab_); -#line 6710 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2188,7 +2047,6 @@ union meltparam_un *meltxrestab_); -#line 6739 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2198,7 +2056,6 @@ union meltparam_un *meltxrestab_); -#line 6769 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_macro_MEXPAND_FETCH_PREDEFINED (meltclosure_ptr_t meltclosp_, @@ -2218,7 +2075,6 @@ meltrout_146_warmelt_macro_MEXPAND_FETCH_PREDEFINED (meltclosure_ptr_t -#line 6798 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_macro_MEXPAND_STORE_PREDEFINED (meltclosure_ptr_t meltclosp_, @@ -2384,7 +2240,6 @@ meltmod__warmelt_macro__forward_or_mark_module_start_frame (struct /**** warmelt-macro+02.c implementations ****/ -#line 2382 "warmelt-macro.melt" /**::proc::**/ @@ -2463,12 +2318,10 @@ meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:2382:/ getarg"); -#line 2382 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2382 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -2478,7 +2331,6 @@ meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 2382 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -2489,7 +2341,6 @@ meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 2382 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -2502,24 +2353,19 @@ meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2382 /*anyblock*/ { -#line 2383 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2383:/ cppif.then"); -#line 2383 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2383 /*anyblock */ { { /*^locexp */ -#line 2383 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -2528,11 +2374,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2383 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 2383 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -2541,18 +2385,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2383:/ cond"); -#line 2383 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2383 /*^block */ -#line 2383 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = -#line 2383 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -2560,29 +2400,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2383:/ checksignal"); -#line 2383 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2383 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2383 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ -#line 2383 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2383 argtab[2].meltbp_long = 2383; /*^apply.arg */ -#line 2383 argtab[3].meltbp_cstring = "mexpand_defcmatcher sexpr"; /*^apply.arg */ -#line 2383 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = @@ -2599,82 +2432,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2383:/ clear"); -#line 2383 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ -#line 2383 /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; } ; } else { /*^cond.else */ -#line 2383 /*_.IF___V7*/ meltfptr[6] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2383:/ quasiblock"); -#line 2383 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2383:/ clear"); -#line 2383 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2383 /*clear *//*_.IF___V7*/ meltfptr[6] = 0; /*^clear */ -#line 2383 /*clear *//*_.PROGN___V9*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2383 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2384 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2384:/ cppif.then"); -#line 2384 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2384 /*anyblock */ { /*^checksignal */ -#line 2384 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = -#line 2384 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:2384:/ cond"); -#line 2384 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2384 /*_.IFELSE___V11*/ meltfptr[7] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2384:/ cond.else"); -#line 2384 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2384 /*anyblock */ { @@ -2683,7 +2498,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2384 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -2698,58 +2512,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2384:/ clear"); -#line 2384 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 2384 /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2384 /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2385 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2385:/ cppif.then"); -#line 2385 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2385 /*anyblock */ { /*^checksignal */ -#line 2385 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[0] = -#line 2385 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:2385:/ cond"); -#line 2385 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2385 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2385:/ cond.else"); -#line 2385 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2385 /*anyblock */ { @@ -2758,7 +2559,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2385 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -2773,30 +2573,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2385:/ clear"); -#line 2385 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ -#line 2385 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2385 /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2386:/ quasiblock"); -#line 2386 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 2386 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2805,7 +2599,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:2387:/ getslot"); -#line 2387 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2814,68 +2607,47 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V17*/ meltfptr[16] = -#line 2388 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[14])));; /*^compute */ - /*_.CURPAIR__V18*/ meltfptr[17] = -#line 2388 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));; /*^compute */ - /*_.SYMB__V19*/ meltfptr[18] = -#line 2389 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; /*^compute */ - /*_.SFORMALS__V20*/ meltfptr[19] = ( /*nil */ NULL);; /*^compute */ - /*_.MATCHFORMAL__V21*/ meltfptr[20] = ( /*nil */ NULL);; /*^compute */ - /*_.INFORMALS__V22*/ meltfptr[21] = ( /*nil */ NULL);; /*^compute */ - /*_.OUTFORMALS__V23*/ meltfptr[22] = ( /*nil */ NULL);; /*^compute */ - /*_.STATESYM__V24*/ meltfptr[23] = ( /*nil */ NULL);; /*^compute */ - /*_.EXPTEST__V25*/ meltfptr[24] = ( /*nil */ NULL);; /*^compute */ - /*_.EXPFILL__V26*/ meltfptr[25] = ( /*nil */ NULL);; /*^compute */ - /*_.EXPOPER__V27*/ meltfptr[26] = ( /*nil */ NULL);; /*^compute */ - /*_.DOCV__V28*/ meltfptr[27] = ( /*nil */ NULL);; /*^compute */ - /*_.LOCTEST__V29*/ meltfptr[28] = ( /*nil */ NULL);; /*^compute */ - /*_.LOCFILL__V30*/ meltfptr[29] = ( /*nil */ NULL);; /*^compute */ - /*_.LOCOPER__V31*/ meltfptr[30] = ( /*nil */ NULL);; -#line 2405 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2405:/ cppif.then"); -#line 2405 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2405 /*anyblock */ { { /*^locexp */ -#line 2405 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -2884,11 +2656,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2405 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = -#line 2405 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -2897,18 +2667,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2405:/ cond"); -#line 2405 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2405 /*^block */ -#line 2405 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = -#line 2405 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -2916,29 +2682,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2405:/ checksignal"); -#line 2405 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2405 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2405 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg */ -#line 2405 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2405 argtab[2].meltbp_long = 2405; /*^apply.arg */ -#line 2405 argtab[3].meltbp_cstring = "mexpand_defcmatcher symb"; /*^apply.arg */ -#line 2405 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SYMB__V19*/ meltfptr[18]; /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = @@ -2956,72 +2715,57 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2405:/ clear"); -#line 2405 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; /*^clear */ -#line 2405 /*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0; } ; } else { /*^cond.else */ -#line 2405 /*_.IF___V33*/ meltfptr[32] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2405:/ quasiblock"); -#line 2405 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V35*/ meltfptr[33] = /*_.IF___V33*/ meltfptr[32];; /*^compute */ - /*_.IFCPP___V32*/ meltfptr[31] = /*_.PROGN___V35*/ meltfptr[33];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2405:/ clear"); -#line 2405 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0; /*^clear */ -#line 2405 /*clear *//*_.IF___V33*/ meltfptr[32] = 0; /*^clear */ -#line 2405 /*clear *//*_.PROGN___V35*/ meltfptr[33] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2405 /*_.IFCPP___V32*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2406:/ checksignal"); -#line 2406 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[0] = -#line 2406 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:2406:/ cond"); -#line 2406 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2406 /*^block */ -#line 2406 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2408:/ locexp"); -#line 2408 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("symbol expected for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), @@ -3029,14 +2773,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2411:/ quasiblock"); -#line 2411 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2411:/ locexp"); -#line 2411 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3047,57 +2789,44 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2411 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2407:/ quasiblock"); -#line 2407 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V38*/ meltfptr[37] = /*_.RETURN___V37*/ meltfptr[33];; /*^compute */ - /*_.IF___V36*/ meltfptr[32] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2406:/ clear"); -#line 2406 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V37*/ meltfptr[33] = 0; /*^clear */ -#line 2406 /*clear *//*_.PROGN___V38*/ meltfptr[37] = 0; } ; } else { /*^cond.else */ -#line 2406 /*_.IF___V36*/ meltfptr[32] = NULL;; } ; /*^compute */ - /*_.PAIR_TAIL__V39*/ meltfptr[33] = -#line 2412 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2412:/ compute"); -#line 2412 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V40*/ meltfptr[37] = /*_.PAIR_TAIL__V39*/ meltfptr[33];; MELT_LOCATION ("warmelt-macro.melt:2414:/ quasiblock"); -#line 2414 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PAIR_HEAD__V42*/ meltfptr[41] = -#line 2414 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2414:/ checksignal"); -#line 2414 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2414 /*apply */ { /*_.MATINFORMALS__V43*/ meltfptr[42] = @@ -3108,31 +2837,24 @@ lab_endgetargs:; } ; /*_#NBMATINFORMALS__L8*/ meltfnum[1] = -#line 2415 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_length ((melt_ptr_t) ( /*_.MATINFORMALS__V43*/ meltfptr[42])));; MELT_LOCATION ("warmelt-macro.melt:2417:/ checksignal"); -#line 2417 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[8] = -#line 2417 "warmelt-macro.melt" /**::expr::**/ (( /*_#NBMATINFORMALS__L8*/ meltfnum[1]) < (1));; MELT_LOCATION ("warmelt-macro.melt:2417:/ cond"); -#line 2417 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 2417 /*^block */ -#line 2417 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2419:/ locexp"); -#line 2419 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("empty ins for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), @@ -3140,14 +2862,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2420:/ quasiblock"); -#line 2420 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2420:/ locexp"); -#line 2420 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3158,59 +2878,47 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2420 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2418:/ quasiblock"); -#line 2418 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V46*/ meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];; /*^compute */ - /*_.IF___V44*/ meltfptr[43] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2417:/ clear"); -#line 2417 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V45*/ meltfptr[44] = 0; /*^clear */ -#line 2417 /*clear *//*_.PROGN___V46*/ meltfptr[45] = 0; } ; } else { /*^cond.else */ -#line 2417 /*_.IF___V44*/ meltfptr[43] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2421:/ checksignal"); -#line 2421 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[9] = -#line 2421 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.MATINFORMALS__V43*/ meltfptr[42]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; MELT_LOCATION ("warmelt-macro.melt:2421:/ cond"); -#line 2421 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 2421 /*^block */ -#line 2421 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2423:/ locexp"); -#line 2423 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("(DEFCMATCHER <symb> <ins> ...) cannot have variadic input formals"), @@ -3218,14 +2926,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2424:/ quasiblock"); -#line 2424 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2424:/ locexp"); -#line 2424 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3236,61 +2942,48 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2424 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2422:/ quasiblock"); -#line 2422 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V49*/ meltfptr[48] = /*_.RETURN___V48*/ meltfptr[45];; /*^compute */ - /*_.IF___V47*/ meltfptr[44] = /*_.PROGN___V49*/ meltfptr[48];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2421:/ clear"); -#line 2421 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V48*/ meltfptr[45] = 0; /*^clear */ -#line 2421 /*clear *//*_.PROGN___V49*/ meltfptr[48] = 0; } ; } else { /*^cond.else */ -#line 2421 /*_.IF___V47*/ meltfptr[44] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2426:/ compute"); -#line 2426 "warmelt-macro.melt" /**::compute::**/ /*_.SFORMALS__V20*/ meltfptr[19] = /*_.SETQ___V50*/ meltfptr[45] = /*_.MATINFORMALS__V43*/ meltfptr[42];; /*_.MULTIPLE_NTH__V51*/ meltfptr[48] = -#line 2427 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_nth ((melt_ptr_t) ( /*_.MATINFORMALS__V43*/ meltfptr[42]), (0)));; MELT_LOCATION ("warmelt-macro.melt:2427:/ compute"); -#line 2427 "warmelt-macro.melt" /**::compute::**/ /*_.MATCHFORMAL__V21*/ meltfptr[20] = /*_.SETQ___V52*/ meltfptr[51] = /*_.MULTIPLE_NTH__V51*/ meltfptr[48];; -#line 2428 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2428:/ cppif.then"); -#line 2428 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2428 /*anyblock */ { { /*^locexp */ -#line 2428 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -3299,11 +2992,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2428 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = -#line 2428 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -3312,18 +3003,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2428:/ cond"); -#line 2428 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 2428 /*^block */ -#line 2428 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = -#line 2428 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -3331,30 +3018,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2428:/ checksignal"); -#line 2428 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2428 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2428 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11]; /*^apply.arg */ -#line 2428 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2428 argtab[2].meltbp_long = 2428; /*^apply.arg */ -#line 2428 argtab[3].meltbp_cstring = "mexpand_defcmatcher matchformal"; /*^apply.arg */ -#line 2428 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MATCHFORMAL__V21*/ meltfptr[20]; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = @@ -3372,83 +3052,65 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2428:/ clear"); -#line 2428 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ -#line 2428 /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0; } ; } else { /*^cond.else */ -#line 2428 /*_.IF___V54*/ meltfptr[53] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2428:/ quasiblock"); -#line 2428 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];; /*^compute */ - /*_.IFCPP___V53*/ meltfptr[52] = /*_.PROGN___V56*/ meltfptr[54];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2428:/ clear"); -#line 2428 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ -#line 2428 /*clear *//*_.IF___V54*/ meltfptr[53] = 0; /*^clear */ -#line 2428 /*clear *//*_.PROGN___V56*/ meltfptr[54] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2428 /*_.IFCPP___V53*/ meltfptr[52] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2429 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2429:/ cppif.then"); -#line 2429 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2429 /*anyblock */ { /*^checksignal */ -#line 2429 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[11] = -#line 2429 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.MATCHFORMAL__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[6])));; MELT_LOCATION ("warmelt-macro.melt:2429:/ cond"); -#line 2429 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2429 /*_.IFELSE___V58*/ meltfptr[54] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2429:/ cond.else"); -#line 2429 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2429 /*anyblock */ { @@ -3457,7 +3119,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2429 melt_assert_failed (("check matchformal"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -3472,46 +3133,35 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V57*/ meltfptr[53] = /*_.IFELSE___V58*/ meltfptr[54];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2429:/ clear"); -#line 2429 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ -#line 2429 /*clear *//*_.IFELSE___V58*/ meltfptr[54] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2429 /*_.IFCPP___V57*/ meltfptr[53] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_#I__L14*/ meltfnum[10] = -#line 2430 "warmelt-macro.melt" /**::expr::**/ (( /*_#NBMATINFORMALS__L8*/ meltfnum[1]) - (1));; /*^compute */ - /*_.MAKE_MULTIPLE__V59*/ meltfptr[54] = -#line 2430 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[7])), ( /*_#I__L14*/ meltfnum[10])));; MELT_LOCATION ("warmelt-macro.melt:2430:/ compute"); -#line 2430 "warmelt-macro.melt" /**::compute::**/ /*_.INFORMALS__V22*/ meltfptr[21] = /*_.SETQ___V60*/ meltfptr[59] = /*_.MAKE_MULTIPLE__V59*/ meltfptr[54];; MELT_LOCATION ("warmelt-macro.melt:2433:/ quasiblock"); -#line 2433 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 2433 /*newclosure *//*_.LAMBDA___V62*/ meltfptr[61] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -3520,7 +3170,6 @@ lab_endgetargs:; tabval[9])), (1)); ; /*^putclosedv */ -#line 2433 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -3535,17 +3184,14 @@ lab_endgetargs:; ; /*_.LAMBDA___V61*/ meltfptr[60] = /*_.LAMBDA___V62*/ meltfptr[61];; MELT_LOCATION ("warmelt-macro.melt:2431:/ checksignal"); -#line 2431 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2431 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2431 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V61*/ meltfptr[60]; /*_.MULTIPLE_EVERY__V63*/ meltfptr[62] = @@ -3557,19 +3203,15 @@ lab_endgetargs:; } ; -#line 2434 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2434:/ cppif.then"); -#line 2434 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2434 /*anyblock */ { { /*^locexp */ -#line 2434 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -3578,11 +3220,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2434 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L15*/ meltfnum[11] = -#line 2434 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -3591,18 +3231,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2434:/ cond"); -#line 2434 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2434 /*^block */ -#line 2434 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = -#line 2434 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -3610,30 +3246,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2434:/ checksignal"); -#line 2434 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2434 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2434 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15]; /*^apply.arg */ -#line 2434 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2434 argtab[2].meltbp_long = 2434; /*^apply.arg */ -#line 2434 argtab[3].meltbp_cstring = "mexpand_defcmatcher informals"; /*^apply.arg */ -#line 2434 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.INFORMALS__V22*/ meltfptr[21]; /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = @@ -3651,122 +3280,89 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2434:/ clear"); -#line 2434 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ -#line 2434 /*clear *//*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = 0; } ; } else { /*^cond.else */ -#line 2434 /*_.IF___V65*/ meltfptr[64] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2434:/ quasiblock"); -#line 2434 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V67*/ meltfptr[65] = /*_.IF___V65*/ meltfptr[64];; /*^compute */ - /*_.IFCPP___V64*/ meltfptr[63] = /*_.PROGN___V67*/ meltfptr[65];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2434:/ clear"); -#line 2434 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[11] = 0; /*^clear */ -#line 2434 /*clear *//*_.IF___V65*/ meltfptr[64] = 0; /*^clear */ -#line 2434 /*clear *//*_.PROGN___V67*/ meltfptr[65] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2434 /*_.IFCPP___V64*/ meltfptr[63] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.LET___V41*/ meltfptr[40] = /*_.IFCPP___V64*/ meltfptr[63];; MELT_LOCATION ("warmelt-macro.melt:2414:/ clear"); -#line 2414 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PAIR_HEAD__V42*/ meltfptr[41] = 0; /*^clear */ -#line 2414 /*clear *//*_.MATINFORMALS__V43*/ meltfptr[42] = 0; /*^clear */ -#line 2414 /*clear *//*_#NBMATINFORMALS__L8*/ meltfnum[1] = 0; /*^clear */ -#line 2414 /*clear *//*_#I__L9*/ meltfnum[8] = 0; /*^clear */ -#line 2414 /*clear *//*_.IF___V44*/ meltfptr[43] = 0; /*^clear */ -#line 2414 /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; /*^clear */ -#line 2414 /*clear *//*_.IF___V47*/ meltfptr[44] = 0; /*^clear */ -#line 2414 /*clear *//*_.SETQ___V50*/ meltfptr[45] = 0; /*^clear */ -#line 2414 /*clear *//*_.MULTIPLE_NTH__V51*/ meltfptr[48] = 0; /*^clear */ -#line 2414 /*clear *//*_.SETQ___V52*/ meltfptr[51] = 0; /*^clear */ -#line 2414 /*clear *//*_.IFCPP___V53*/ meltfptr[52] = 0; /*^clear */ -#line 2414 /*clear *//*_.IFCPP___V57*/ meltfptr[53] = 0; /*^clear */ -#line 2414 /*clear *//*_#I__L14*/ meltfnum[10] = 0; /*^clear */ -#line 2414 /*clear *//*_.MAKE_MULTIPLE__V59*/ meltfptr[54] = 0; /*^clear */ -#line 2414 /*clear *//*_.SETQ___V60*/ meltfptr[59] = 0; /*^clear */ -#line 2414 /*clear *//*_.LAMBDA___V61*/ meltfptr[60] = 0; /*^clear */ -#line 2414 /*clear *//*_.MULTIPLE_EVERY__V63*/ meltfptr[62] = 0; /*^clear */ -#line 2414 /*clear *//*_.IFCPP___V64*/ meltfptr[63] = 0; /*_.PAIR_TAIL__V68*/ meltfptr[64] = -#line 2437 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2437:/ compute"); -#line 2437 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V69*/ meltfptr[65] = /*_.PAIR_TAIL__V68*/ meltfptr[64];; /*_.PAIR_HEAD__V70*/ meltfptr[41] = -#line 2438 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2438:/ checksignal"); -#line 2438 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2438 /*apply */ { /*_.LAMBDA_ARG_BINDINGS__V71*/ meltfptr[42] = @@ -3777,23 +3373,18 @@ lab_endgetargs:; } ; /*^compute */ -#line 2438 /*_.OUTFORMALS__V23*/ meltfptr[22] = /*_.SETQ___V72*/ meltfptr[43] = /*_.LAMBDA_ARG_BINDINGS__V71*/ meltfptr[42];; -#line 2439 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2439:/ cppif.then"); -#line 2439 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2439 /*anyblock */ { { /*^locexp */ -#line 2439 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -3802,11 +3393,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2439 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L17*/ meltfnum[15] = -#line 2439 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -3815,18 +3404,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2439:/ cond"); -#line 2439 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 2439 /*^block */ -#line 2439 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[11] = -#line 2439 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -3834,30 +3419,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2439:/ checksignal"); -#line 2439 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2439 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2439 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[11]; /*^apply.arg */ -#line 2439 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2439 argtab[2].meltbp_long = 2439; /*^apply.arg */ -#line 2439 argtab[3].meltbp_cstring = "mexpand_defcmatcher outformals"; /*^apply.arg */ -#line 2439 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.OUTFORMALS__V23*/ meltfptr[22]; /*_.MELT_DEBUG_FUN__V75*/ meltfptr[48] = @@ -3875,76 +3453,59 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2439:/ clear"); -#line 2439 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[11] = 0; /*^clear */ -#line 2439 /*clear *//*_.MELT_DEBUG_FUN__V75*/ meltfptr[48] = 0; } ; } else { /*^cond.else */ -#line 2439 /*_.IF___V74*/ meltfptr[45] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2439:/ quasiblock"); -#line 2439 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V76*/ meltfptr[51] = /*_.IF___V74*/ meltfptr[45];; /*^compute */ - /*_.IFCPP___V73*/ meltfptr[44] = /*_.PROGN___V76*/ meltfptr[51];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2439:/ clear"); -#line 2439 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0; /*^clear */ -#line 2439 /*clear *//*_.IF___V74*/ meltfptr[45] = 0; /*^clear */ -#line 2439 /*clear *//*_.PROGN___V76*/ meltfptr[51] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2439 /*_.IFCPP___V73*/ meltfptr[44] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2440:/ checksignal"); -#line 2440 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L19*/ meltfnum[1] = -#line 2440 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.OUTFORMALS__V23*/ meltfptr[22])) == MELTOBMAG_MULTIPLE);; /*^compute */ - /*_#NOT__L20*/ meltfnum[8] = -#line 2440 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_MULTIPLE__L19*/ meltfnum[1]));; MELT_LOCATION ("warmelt-macro.melt:2440:/ cond"); -#line 2440 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L20*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 2440 /*^block */ -#line 2440 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2442:/ locexp"); -#line 2442 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad outs for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), @@ -3952,14 +3513,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2443:/ quasiblock"); -#line 2443 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2443:/ locexp"); -#line 2443 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3970,58 +3529,46 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2443 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2441:/ quasiblock"); -#line 2441 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V79*/ meltfptr[54] = /*_.RETURN___V78*/ meltfptr[53];; /*^compute */ - /*_.IF___V77*/ meltfptr[52] = /*_.PROGN___V79*/ meltfptr[54];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2440:/ clear"); -#line 2440 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V78*/ meltfptr[53] = 0; /*^clear */ -#line 2440 /*clear *//*_.PROGN___V79*/ meltfptr[54] = 0; } ; } else { /*^cond.else */ -#line 2440 /*_.IF___V77*/ meltfptr[52] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2444:/ checksignal"); -#line 2444 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L21*/ meltfnum[9] = -#line 2444 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.OUTFORMALS__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; MELT_LOCATION ("warmelt-macro.melt:2444:/ cond"); -#line 2444 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L21*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 2444 /*^block */ -#line 2444 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2446:/ locexp"); -#line 2446 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("out formals for (DEFCMATCHER <symb> <ins> <outs> ...) cannot be variadic"), @@ -4029,14 +3576,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2447:/ quasiblock"); -#line 2447 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2447:/ locexp"); -#line 2447 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4047,85 +3592,65 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2447 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2445:/ quasiblock"); -#line 2445 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V82*/ meltfptr[62] = /*_.RETURN___V81*/ meltfptr[60];; /*^compute */ - /*_.IF___V80*/ meltfptr[59] = /*_.PROGN___V82*/ meltfptr[62];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2444:/ clear"); -#line 2444 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V81*/ meltfptr[60] = 0; /*^clear */ -#line 2444 /*clear *//*_.PROGN___V82*/ meltfptr[62] = 0; } ; } else { /*^cond.else */ -#line 2444 /*_.IF___V80*/ meltfptr[59] = NULL;; } ; /*^compute */ - /*_.PAIR_TAIL__V83*/ meltfptr[63] = -#line 2449 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2449:/ compute"); -#line 2449 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V84*/ meltfptr[48] = /*_.PAIR_TAIL__V83*/ meltfptr[63];; /*_.PAIR_HEAD__V85*/ meltfptr[45] = -#line 2450 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2450:/ compute"); -#line 2450 "warmelt-macro.melt" /**::compute::**/ /*_.STATESYM__V24*/ meltfptr[23] = /*_.SETQ___V86*/ meltfptr[51] = /*_.PAIR_HEAD__V85*/ meltfptr[45];; MELT_LOCATION ("warmelt-macro.melt:2451:/ checksignal"); -#line 2451 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L22*/ meltfnum[10] = -#line 2451 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.STATESYM__V24*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:2451:/ cond"); -#line 2451 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L22*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 2451 /*^block */ -#line 2451 /*anyblock */ { -#line 2453 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2453:/ cppif.then"); -#line 2453 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2453 /*anyblock */ { { /*^locexp */ -#line 2453 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -4134,11 +3659,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2453 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L23*/ meltfnum[11] = -#line 2453 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -4147,18 +3670,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2453:/ cond"); -#line 2453 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L23*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2453 /*^block */ -#line 2453 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[15] = -#line 2453 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -4166,31 +3685,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2453:/ checksignal"); -#line 2453 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2453 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2453 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[15]; /*^apply.arg */ -#line 2453 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2453 argtab[2].meltbp_long = 2453; /*^apply.arg */ -#line 2453 argtab[3].meltbp_cstring = "mexpand_defcmatcher bad statesym"; /*^apply.arg */ -#line 2453 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.STATESYM__V24*/ meltfptr[23]; /*_.MELT_DEBUG_FUN__V90*/ meltfptr[62] = @@ -4209,52 +3721,42 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2453:/ clear"); -#line 2453 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L24*/ meltfnum[15] = 0; /*^clear */ -#line 2453 /*clear *//*_.MELT_DEBUG_FUN__V90*/ meltfptr[62] = 0; } ; } else { /*^cond.else */ -#line 2453 /*_.IF___V89*/ meltfptr[60] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2453:/ quasiblock"); -#line 2453 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V91*/ meltfptr[62] = /*_.IF___V89*/ meltfptr[60];; /*^compute */ - /*_.IFCPP___V88*/ meltfptr[54] = /*_.PROGN___V91*/ meltfptr[62];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2453:/ clear"); -#line 2453 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L23*/ meltfnum[11] = 0; /*^clear */ -#line 2453 /*clear *//*_.IF___V89*/ meltfptr[60] = 0; /*^clear */ -#line 2453 /*clear *//*_.PROGN___V91*/ meltfptr[62] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2453 /*_.IFCPP___V88*/ meltfptr[54] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-macro.melt:2454:/ locexp"); -#line 2454 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad statesym for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), @@ -4262,14 +3764,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2455:/ quasiblock"); -#line 2455 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2455:/ locexp"); -#line 2455 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4280,52 +3780,41 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2455 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2452:/ quasiblock"); -#line 2452 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V93*/ meltfptr[62] = /*_.RETURN___V92*/ meltfptr[60];; /*^compute */ - /*_.IF___V87*/ meltfptr[53] = /*_.PROGN___V93*/ meltfptr[62];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2451:/ clear"); -#line 2451 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V88*/ meltfptr[54] = 0; /*^clear */ -#line 2451 /*clear *//*_.RETURN___V92*/ meltfptr[60] = 0; /*^clear */ -#line 2451 /*clear *//*_.PROGN___V93*/ meltfptr[62] = 0; } ; } else { /*^cond.else */ -#line 2451 /*_.IF___V87*/ meltfptr[53] = NULL;; } ; -#line 2456 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2456:/ cppif.then"); -#line 2456 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2456 /*anyblock */ { { /*^locexp */ -#line 2456 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -4334,11 +3823,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2456 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L25*/ meltfnum[15] = -#line 2456 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -4347,18 +3834,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2456:/ cond"); -#line 2456 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L25*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 2456 /*^block */ -#line 2456 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[11] = -#line 2456 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -4366,30 +3849,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2456:/ checksignal"); -#line 2456 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2456 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2456 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[11]; /*^apply.arg */ -#line 2456 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2456 argtab[2].meltbp_long = 2456; /*^apply.arg */ -#line 2456 argtab[3].meltbp_cstring = "mexpand_defcmatcher statesym"; /*^apply.arg */ -#line 2456 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.STATESYM__V24*/ meltfptr[23]; /*_.MELT_DEBUG_FUN__V96*/ meltfptr[62] = @@ -4407,108 +3883,82 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2456:/ clear"); -#line 2456 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L26*/ meltfnum[11] = 0; /*^clear */ -#line 2456 /*clear *//*_.MELT_DEBUG_FUN__V96*/ meltfptr[62] = 0; } ; } else { /*^cond.else */ -#line 2456 /*_.IF___V95*/ meltfptr[60] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2456:/ quasiblock"); -#line 2456 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V97*/ meltfptr[62] = /*_.IF___V95*/ meltfptr[60];; /*^compute */ - /*_.IFCPP___V94*/ meltfptr[54] = /*_.PROGN___V97*/ meltfptr[62];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2456:/ clear"); -#line 2456 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L25*/ meltfnum[15] = 0; /*^clear */ -#line 2456 /*clear *//*_.IF___V95*/ meltfptr[60] = 0; /*^clear */ -#line 2456 /*clear *//*_.PROGN___V97*/ meltfptr[62] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2456 /*_.IFCPP___V94*/ meltfptr[54] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V98*/ meltfptr[60] = -#line 2457 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2457:/ compute"); -#line 2457 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V99*/ meltfptr[62] = /*_.PAIR_TAIL__V98*/ meltfptr[60];; MELT_LOCATION ("warmelt-macro.melt:2459:/ checksignal"); -#line 2459 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V100*/ meltfptr[99] = -#line 2459 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; /*^compute */ - /*_#__L27*/ meltfnum[11] = -#line 2459 "warmelt-macro.melt" /**::expr::**/ (( /*_.PAIR_HEAD__V100*/ meltfptr[99]) == (( /*!konst_10_DOC */ meltfrout->tabval[10])));; MELT_LOCATION ("warmelt-macro.melt:2459:/ cond"); -#line 2459 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L27*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2459 /*^block */ -#line 2459 /*anyblock */ { /*_.PAIR_TAIL__V102*/ meltfptr[101] = -#line 2461 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2461:/ compute"); -#line 2461 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V103*/ meltfptr[102] = /*_.PAIR_TAIL__V102*/ meltfptr[101];; MELT_LOCATION ("warmelt-macro.melt:2462:/ checksignal"); -#line 2462 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2462 /*cond */ if ( /*_.DOCV__V28*/ meltfptr[27]) /*then */ { /*^cond.then */ -#line 2462 /*^block */ -#line 2462 /*anyblock */ { { /*^locexp */ -#line 2462 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), @@ -4522,137 +3972,105 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_HEAD__V104*/ meltfptr[103] = -#line 2463 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2463:/ compute"); -#line 2463 "warmelt-macro.melt" /**::compute::**/ /*_.DOCV__V28*/ meltfptr[27] = /*_.SETQ___V105*/ meltfptr[104] = /*_.PAIR_HEAD__V104*/ meltfptr[103];; /*_.PAIR_TAIL__V106*/ meltfptr[105] = -#line 2464 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2464:/ compute"); -#line 2464 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V107*/ meltfptr[106] = /*_.PAIR_TAIL__V106*/ meltfptr[105];; MELT_LOCATION ("warmelt-macro.melt:2460:/ quasiblock"); -#line 2460 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V108*/ meltfptr[107] = /*_.SETQ___V107*/ meltfptr[106];; /*^compute */ - /*_.IF___V101*/ meltfptr[100] = /*_.PROGN___V108*/ meltfptr[107];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2459:/ clear"); -#line 2459 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PAIR_TAIL__V102*/ meltfptr[101] = 0; /*^clear */ -#line 2459 /*clear *//*_.SETQ___V103*/ meltfptr[102] = 0; /*^clear */ -#line 2459 /*clear *//*_.PAIR_HEAD__V104*/ meltfptr[103] = 0; /*^clear */ -#line 2459 /*clear *//*_.SETQ___V105*/ meltfptr[104] = 0; /*^clear */ -#line 2459 /*clear *//*_.PAIR_TAIL__V106*/ meltfptr[105] = 0; /*^clear */ -#line 2459 /*clear *//*_.SETQ___V107*/ meltfptr[106] = 0; /*^clear */ -#line 2459 /*clear *//*_.PROGN___V108*/ meltfptr[107] = 0; } ; } else { /*^cond.else */ -#line 2459 /*_.IF___V101*/ meltfptr[100] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2467:/ quasiblock"); -#line 2467 "warmelt-macro.melt" /**::quasiblock::**/ /*_.SEXPTEST__V110*/ meltfptr[102] = -#line 2467 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2468:/ checksignal"); -#line 2468 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2468 MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2468 /*cond */ if ( /*_.SEXPTEST__V110*/ meltfptr[102]) /*then */ { /*^cond.then */ -#line 2468 /*^block */ -#line 2468 /*anyblock */ { /*_#IS_NOT_A__L29*/ meltfnum[28] = -#line 2468 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPTEST__V110*/ meltfptr[102]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[1])));; /*^compute */ - /*_#IF___L28*/ meltfnum[15] = /*_#IS_NOT_A__L29*/ meltfnum[28];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2468:/ clear"); -#line 2468 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_NOT_A__L29*/ meltfnum[28] = 0; } ; } else { /*^cond.else */ -#line 2468 /*_#IF___L28*/ meltfnum[15] = 0;; } ; MELT_LOCATION ("warmelt-macro.melt:2468:/ cond"); -#line 2468 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L28*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 2468 /*^block */ -#line 2468 /*anyblock */ { -#line 2470 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2470:/ cppif.then"); -#line 2470 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2470 /*anyblock */ { { /*^locexp */ -#line 2470 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -4661,11 +4079,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2470 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L30*/ meltfnum[28] = -#line 2470 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -4674,18 +4090,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2470:/ cond"); -#line 2470 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[28]) /*then */ { /*^cond.then */ -#line 2470 /*^block */ -#line 2470 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[30] = -#line 2470 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -4693,31 +4105,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2470:/ checksignal"); -#line 2470 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2470 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2470 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[30]; /*^apply.arg */ -#line 2470 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2470 argtab[2].meltbp_long = 2470; /*^apply.arg */ -#line 2470 argtab[3].meltbp_cstring = "mexpand_defcmatcher bad sexptest"; /*^apply.arg */ -#line 2470 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPTEST__V110*/ meltfptr[102]; /*_.MELT_DEBUG_FUN__V114*/ meltfptr[106] = @@ -4736,53 +4141,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2470:/ clear"); -#line 2470 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[30] = 0; /*^clear */ -#line 2470 /*clear *//*_.MELT_DEBUG_FUN__V114*/ meltfptr[106] = 0; } ; } else { /*^cond.else */ -#line 2470 /*_.IF___V113*/ meltfptr[105] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2470:/ quasiblock"); -#line 2470 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V115*/ meltfptr[107] = /*_.IF___V113*/ meltfptr[105];; /*^compute */ - /*_.IFCPP___V112*/ meltfptr[104] = /*_.PROGN___V115*/ meltfptr[107];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2470:/ clear"); -#line 2470 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[28] = 0; /*^clear */ -#line 2470 /*clear *//*_.IF___V113*/ meltfptr[105] = 0; /*^clear */ -#line 2470 /*clear *//*_.PROGN___V115*/ meltfptr[107] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2470 /*_.IFCPP___V112*/ meltfptr[104] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-macro.melt:2471:/ locexp"); -#line 2471 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad test expansion in (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), @@ -4790,14 +4185,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2472:/ quasiblock"); -#line 2472 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2472:/ locexp"); -#line 2472 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4808,43 +4201,34 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2472 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2469:/ quasiblock"); -#line 2469 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V117*/ meltfptr[105] = /*_.RETURN___V116*/ meltfptr[106];; /*^compute */ - /*_.IF___V111*/ meltfptr[103] = /*_.PROGN___V117*/ meltfptr[105];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2468:/ clear"); -#line 2468 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V112*/ meltfptr[104] = 0; /*^clear */ -#line 2468 /*clear *//*_.RETURN___V116*/ meltfptr[106] = 0; /*^clear */ -#line 2468 /*clear *//*_.PROGN___V117*/ meltfptr[105] = 0; } ; } else { /*^cond.else */ -#line 2468 /*_.IF___V111*/ meltfptr[103] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2473:/ cond"); -#line 2473 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 2473 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPTEST__V110*/ meltfptr[102]), @@ -4854,9 +4238,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2473 /*^getslot */ -#line 2473 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPTEST__V110*/ meltfptr[102]) /*=obj*/ ; @@ -4867,49 +4249,39 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2473 /*_.LOCA_LOCATION__V118*/ meltfptr[107] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2473:/ cond"); -#line 2473 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_.LOCA_LOCATION__V118*/ meltfptr[107]) /*then */ { /*^cond.then */ -#line 2473 /*_.OR___V119*/ meltfptr[104] = /*_.LOCA_LOCATION__V118*/ meltfptr[107];; } else { MELT_LOCATION ("warmelt-macro.melt:2473:/ cond.else"); -#line 2473 "warmelt-macro.melt" /**::cond.else::**/ /*_.OR___V119*/ meltfptr[104] = /*_.LOC__V16*/ meltfptr[15];; } ; MELT_LOCATION ("warmelt-macro.melt:2473:/ compute"); -#line 2473 "warmelt-macro.melt" /**::compute::**/ /*_.LOCTEST__V29*/ meltfptr[28] = /*_.SETQ___V120*/ meltfptr[106] = /*_.OR___V119*/ meltfptr[104];; MELT_LOCATION ("warmelt-macro.melt:2474:/ checksignal"); -#line 2474 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2474 /*cond */ if ( /*_.SEXPTEST__V110*/ meltfptr[102]) /*then */ { /*^cond.then */ -#line 2474 /*^block */ -#line 2474 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2478:/ getslot"); -#line 2478 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -4919,21 +4291,17 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V123*/ meltfptr[122] = -#line 2478 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V122*/ meltfptr[121])));; MELT_LOCATION ("warmelt-macro.melt:2476:/ checksignal"); -#line 2476 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2476 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2476 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LIST_FIRST__V123*/ meltfptr[122]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V124*/ meltfptr[123] = @@ -4946,74 +4314,56 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2475:/ compute"); -#line 2475 "warmelt-macro.melt" /**::compute::**/ /*_.EXPTEST__V25*/ meltfptr[24] = /*_.SETQ___V125*/ meltfptr[124] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V124*/ meltfptr[123];; /*_.IF___V121*/ meltfptr[105] = /*_.SETQ___V125*/ meltfptr[124];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2474:/ clear"); -#line 2474 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SEXP_CONTENTS__V122*/ meltfptr[121] = 0; /*^clear */ -#line 2474 /*clear *//*_.LIST_FIRST__V123*/ meltfptr[122] = 0; /*^clear */ -#line 2474 /*clear *//*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V124*/ meltfptr[123] = 0; /*^clear */ -#line 2474 /*clear *//*_.SETQ___V125*/ meltfptr[124] = 0; } ; } else { /*^cond.else */ -#line 2474 /*_.IF___V121*/ meltfptr[105] = NULL;; } ; /*^compute */ - /*_.LET___V109*/ meltfptr[101] = /*_.IF___V121*/ meltfptr[105];; MELT_LOCATION ("warmelt-macro.melt:2467:/ clear"); -#line 2467 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SEXPTEST__V110*/ meltfptr[102] = 0; /*^clear */ -#line 2467 /*clear *//*_#IF___L28*/ meltfnum[15] = 0; /*^clear */ -#line 2467 /*clear *//*_.IF___V111*/ meltfptr[103] = 0; /*^clear */ -#line 2467 /*clear *//*_.LOCA_LOCATION__V118*/ meltfptr[107] = 0; /*^clear */ -#line 2467 /*clear *//*_.OR___V119*/ meltfptr[104] = 0; /*^clear */ -#line 2467 /*clear *//*_.SETQ___V120*/ meltfptr[106] = 0; /*^clear */ -#line 2467 /*clear *//*_.IF___V121*/ meltfptr[105] = 0; -#line 2480 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2480:/ cppif.then"); -#line 2480 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2480 /*anyblock */ { { /*^locexp */ -#line 2480 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -5022,11 +4372,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2480 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L32*/ meltfnum[30] = -#line 2480 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -5035,18 +4383,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2480:/ cond"); -#line 2480 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L32*/ meltfnum[30]) /*then */ { /*^cond.then */ -#line 2480 /*^block */ -#line 2480 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28] = -#line 2480 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -5054,30 +4398,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2480:/ checksignal"); -#line 2480 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2480 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2480 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28]; /*^apply.arg */ -#line 2480 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2480 argtab[2].meltbp_long = 2480; /*^apply.arg */ -#line 2480 argtab[3].meltbp_cstring = "mexpand_defcmatcher exptest"; /*^apply.arg */ -#line 2480 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.EXPTEST__V25*/ meltfptr[24]; /*_.MELT_DEBUG_FUN__V128*/ meltfptr[123] = @@ -5095,122 +4432,95 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2480:/ clear"); -#line 2480 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28] = 0; /*^clear */ -#line 2480 /*clear *//*_.MELT_DEBUG_FUN__V128*/ meltfptr[123] = 0; } ; } else { /*^cond.else */ -#line 2480 /*_.IF___V127*/ meltfptr[122] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2480:/ quasiblock"); -#line 2480 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V129*/ meltfptr[124] = /*_.IF___V127*/ meltfptr[122];; /*^compute */ - /*_.IFCPP___V126*/ meltfptr[121] = /*_.PROGN___V129*/ meltfptr[124];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2480:/ clear"); -#line 2480 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L32*/ meltfnum[30] = 0; /*^clear */ -#line 2480 /*clear *//*_.IF___V127*/ meltfptr[122] = 0; /*^clear */ -#line 2480 /*clear *//*_.PROGN___V129*/ meltfptr[124] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2480 /*_.IFCPP___V126*/ meltfptr[121] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V130*/ meltfptr[102] = -#line 2482 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2482:/ compute"); -#line 2482 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V131*/ meltfptr[103] = /*_.PAIR_TAIL__V130*/ meltfptr[102];; MELT_LOCATION ("warmelt-macro.melt:2483:/ quasiblock"); -#line 2483 "warmelt-macro.melt" /**::quasiblock::**/ /*_.SEXPFILL__V133*/ meltfptr[104] = -#line 2483 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2484:/ checksignal"); -#line 2484 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2484 MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2484 /*cond */ if ( /*_.SEXPFILL__V133*/ meltfptr[104]) /*then */ { /*^cond.then */ -#line 2484 /*^block */ -#line 2484 /*anyblock */ { /*_#IS_NOT_A__L35*/ meltfnum[28] = -#line 2484 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPFILL__V133*/ meltfptr[104]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[1])));; /*^compute */ - /*_#IF___L34*/ meltfnum[15] = /*_#IS_NOT_A__L35*/ meltfnum[28];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2484:/ clear"); -#line 2484 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_NOT_A__L35*/ meltfnum[28] = 0; } ; } else { /*^cond.else */ -#line 2484 /*_#IF___L34*/ meltfnum[15] = 0;; } ; MELT_LOCATION ("warmelt-macro.melt:2484:/ cond"); -#line 2484 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L34*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 2484 /*^block */ -#line 2484 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2486:/ locexp"); -#line 2486 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad fill expansion in (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), @@ -5218,14 +4528,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2487:/ quasiblock"); -#line 2487 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2487:/ locexp"); -#line 2487 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5236,40 +4544,32 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2487 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2485:/ quasiblock"); -#line 2485 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V136*/ meltfptr[123] = /*_.RETURN___V135*/ meltfptr[105];; /*^compute */ - /*_.IF___V134*/ meltfptr[106] = /*_.PROGN___V136*/ meltfptr[123];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2484:/ clear"); -#line 2484 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V135*/ meltfptr[105] = 0; /*^clear */ -#line 2484 /*clear *//*_.PROGN___V136*/ meltfptr[123] = 0; } ; } else { /*^cond.else */ -#line 2484 /*_.IF___V134*/ meltfptr[106] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2488:/ cond"); -#line 2488 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 2488 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPFILL__V133*/ meltfptr[104]), @@ -5279,9 +4579,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2488 /*^getslot */ -#line 2488 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPFILL__V133*/ meltfptr[104]) /*=obj*/ ; @@ -5292,49 +4590,39 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2488 /*_.LOCA_LOCATION__V137*/ meltfptr[122] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2488:/ cond"); -#line 2488 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_.LOCA_LOCATION__V137*/ meltfptr[122]) /*then */ { /*^cond.then */ -#line 2488 /*_.OR___V138*/ meltfptr[124] = /*_.LOCA_LOCATION__V137*/ meltfptr[122];; } else { MELT_LOCATION ("warmelt-macro.melt:2488:/ cond.else"); -#line 2488 "warmelt-macro.melt" /**::cond.else::**/ /*_.OR___V138*/ meltfptr[124] = /*_.LOC__V16*/ meltfptr[15];; } ; MELT_LOCATION ("warmelt-macro.melt:2488:/ compute"); -#line 2488 "warmelt-macro.melt" /**::compute::**/ /*_.LOCFILL__V30*/ meltfptr[29] = /*_.SETQ___V139*/ meltfptr[105] = /*_.OR___V138*/ meltfptr[124];; MELT_LOCATION ("warmelt-macro.melt:2489:/ checksignal"); -#line 2489 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2489 /*cond */ if ( /*_.SEXPFILL__V133*/ meltfptr[104]) /*then */ { /*^cond.then */ -#line 2489 /*^block */ -#line 2489 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2492:/ getslot"); -#line 2492 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -5344,21 +4632,17 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V142*/ meltfptr[141] = -#line 2492 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V141*/ meltfptr[140])));; MELT_LOCATION ("warmelt-macro.melt:2491:/ checksignal"); -#line 2491 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2491 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2491 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LIST_FIRST__V142*/ meltfptr[141]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V143*/ meltfptr[142] = @@ -5371,74 +4655,56 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2490:/ compute"); -#line 2490 "warmelt-macro.melt" /**::compute::**/ /*_.EXPFILL__V26*/ meltfptr[25] = /*_.SETQ___V144*/ meltfptr[143] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V143*/ meltfptr[142];; /*_.IF___V140*/ meltfptr[123] = /*_.SETQ___V144*/ meltfptr[143];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2489:/ clear"); -#line 2489 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SEXP_CONTENTS__V141*/ meltfptr[140] = 0; /*^clear */ -#line 2489 /*clear *//*_.LIST_FIRST__V142*/ meltfptr[141] = 0; /*^clear */ -#line 2489 /*clear *//*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V143*/ meltfptr[142] = 0; /*^clear */ -#line 2489 /*clear *//*_.SETQ___V144*/ meltfptr[143] = 0; } ; } else { /*^cond.else */ -#line 2489 /*_.IF___V140*/ meltfptr[123] = NULL;; } ; /*^compute */ - /*_.LET___V132*/ meltfptr[107] = /*_.IF___V140*/ meltfptr[123];; MELT_LOCATION ("warmelt-macro.melt:2483:/ clear"); -#line 2483 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SEXPFILL__V133*/ meltfptr[104] = 0; /*^clear */ -#line 2483 /*clear *//*_#IF___L34*/ meltfnum[15] = 0; /*^clear */ -#line 2483 /*clear *//*_.IF___V134*/ meltfptr[106] = 0; /*^clear */ -#line 2483 /*clear *//*_.LOCA_LOCATION__V137*/ meltfptr[122] = 0; /*^clear */ -#line 2483 /*clear *//*_.OR___V138*/ meltfptr[124] = 0; /*^clear */ -#line 2483 /*clear *//*_.SETQ___V139*/ meltfptr[105] = 0; /*^clear */ -#line 2483 /*clear *//*_.IF___V140*/ meltfptr[123] = 0; -#line 2494 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2494:/ cppif.then"); -#line 2494 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2494 /*anyblock */ { { /*^locexp */ -#line 2494 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -5447,11 +4713,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2494 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L36*/ meltfnum[30] = -#line 2494 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -5460,18 +4724,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2494:/ cond"); -#line 2494 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[30]) /*then */ { /*^cond.then */ -#line 2494 /*^block */ -#line 2494 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[28] = -#line 2494 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -5479,30 +4739,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2494:/ checksignal"); -#line 2494 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2494 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2494 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[28]; /*^apply.arg */ -#line 2494 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2494 argtab[2].meltbp_long = 2494; /*^apply.arg */ -#line 2494 argtab[3].meltbp_cstring = "mexpand_defcmatcher expfill"; /*^apply.arg */ -#line 2494 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.EXPFILL__V26*/ meltfptr[25]; /*_.MELT_DEBUG_FUN__V147*/ meltfptr[142] = @@ -5520,122 +4773,95 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2494:/ clear"); -#line 2494 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum[28] = 0; /*^clear */ -#line 2494 /*clear *//*_.MELT_DEBUG_FUN__V147*/ meltfptr[142] = 0; } ; } else { /*^cond.else */ -#line 2494 /*_.IF___V146*/ meltfptr[141] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2494:/ quasiblock"); -#line 2494 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V148*/ meltfptr[143] = /*_.IF___V146*/ meltfptr[141];; /*^compute */ - /*_.IFCPP___V145*/ meltfptr[140] = /*_.PROGN___V148*/ meltfptr[143];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2494:/ clear"); -#line 2494 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum[30] = 0; /*^clear */ -#line 2494 /*clear *//*_.IF___V146*/ meltfptr[141] = 0; /*^clear */ -#line 2494 /*clear *//*_.PROGN___V148*/ meltfptr[143] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2494 /*_.IFCPP___V145*/ meltfptr[140] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V149*/ meltfptr[104] = -#line 2496 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2496:/ compute"); -#line 2496 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V150*/ meltfptr[106] = /*_.PAIR_TAIL__V149*/ meltfptr[104];; MELT_LOCATION ("warmelt-macro.melt:2497:/ quasiblock"); -#line 2497 "warmelt-macro.melt" /**::quasiblock::**/ /*_.SEXPOPER__V152*/ meltfptr[124] = -#line 2497 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2498:/ checksignal"); -#line 2498 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2498 MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2498 /*cond */ if ( /*_.SEXPOPER__V152*/ meltfptr[124]) /*then */ { /*^cond.then */ -#line 2498 /*^block */ -#line 2498 /*anyblock */ { /*_#IS_NOT_A__L39*/ meltfnum[28] = -#line 2498 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPOPER__V152*/ meltfptr[124]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[1])));; /*^compute */ - /*_#IF___L38*/ meltfnum[15] = /*_#IS_NOT_A__L39*/ meltfnum[28];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2498:/ clear"); -#line 2498 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_NOT_A__L39*/ meltfnum[28] = 0; } ; } else { /*^cond.else */ -#line 2498 /*_#IF___L38*/ meltfnum[15] = 0;; } ; MELT_LOCATION ("warmelt-macro.melt:2498:/ cond"); -#line 2498 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L38*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 2498 /*^block */ -#line 2498 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2500:/ locexp"); -#line 2500 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad oper expansion in (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), @@ -5643,14 +4869,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2501:/ quasiblock"); -#line 2501 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2501:/ locexp"); -#line 2501 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5661,40 +4885,32 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2501 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2499:/ quasiblock"); -#line 2499 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V155*/ meltfptr[142] = /*_.RETURN___V154*/ meltfptr[123];; /*^compute */ - /*_.IF___V153*/ meltfptr[105] = /*_.PROGN___V155*/ meltfptr[142];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2498:/ clear"); -#line 2498 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V154*/ meltfptr[123] = 0; /*^clear */ -#line 2498 /*clear *//*_.PROGN___V155*/ meltfptr[142] = 0; } ; } else { /*^cond.else */ -#line 2498 /*_.IF___V153*/ meltfptr[105] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2502:/ cond"); -#line 2502 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 2502 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPOPER__V152*/ meltfptr[124]), @@ -5704,9 +4920,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2502 /*^getslot */ -#line 2502 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPOPER__V152*/ meltfptr[124]) /*=obj*/ ; @@ -5717,49 +4931,39 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2502 /*_.LOCA_LOCATION__V156*/ meltfptr[141] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2502:/ cond"); -#line 2502 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_.LOCA_LOCATION__V156*/ meltfptr[141]) /*then */ { /*^cond.then */ -#line 2502 /*_.OR___V157*/ meltfptr[143] = /*_.LOCA_LOCATION__V156*/ meltfptr[141];; } else { MELT_LOCATION ("warmelt-macro.melt:2502:/ cond.else"); -#line 2502 "warmelt-macro.melt" /**::cond.else::**/ /*_.OR___V157*/ meltfptr[143] = /*_.LOC__V16*/ meltfptr[15];; } ; MELT_LOCATION ("warmelt-macro.melt:2502:/ compute"); -#line 2502 "warmelt-macro.melt" /**::compute::**/ /*_.LOCOPER__V31*/ meltfptr[30] = /*_.SETQ___V158*/ meltfptr[123] = /*_.OR___V157*/ meltfptr[143];; MELT_LOCATION ("warmelt-macro.melt:2504:/ checksignal"); -#line 2504 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2504 /*cond */ if ( /*_.SEXPOPER__V152*/ meltfptr[124]) /*then */ { /*^cond.then */ -#line 2504 /*^block */ -#line 2504 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2505:/ getslot"); -#line 2505 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -5769,21 +4973,17 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V161*/ meltfptr[160] = -#line 2505 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V160*/ meltfptr[159])));; MELT_LOCATION ("warmelt-macro.melt:2505:/ checksignal"); -#line 2505 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2505 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2505 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LIST_FIRST__V161*/ meltfptr[160]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V162*/ meltfptr[161] = @@ -5800,13 +5000,10 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2504:/ clear"); -#line 2504 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SEXP_CONTENTS__V160*/ meltfptr[159] = 0; /*^clear */ -#line 2504 /*clear *//*_.LIST_FIRST__V161*/ meltfptr[160] = 0; /*^clear */ -#line 2504 /*clear *//*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V162*/ meltfptr[161] = 0; } @@ -5814,55 +5011,41 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2504 /*_.IF___V159*/ meltfptr[142] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2503:/ compute"); -#line 2503 "warmelt-macro.melt" /**::compute::**/ /*_.EXPOPER__V27*/ meltfptr[26] = /*_.SETQ___V163*/ meltfptr[159] = /*_.IF___V159*/ meltfptr[142];; /*_.LET___V151*/ meltfptr[122] = /*_.SETQ___V163*/ meltfptr[159];; MELT_LOCATION ("warmelt-macro.melt:2497:/ clear"); -#line 2497 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SEXPOPER__V152*/ meltfptr[124] = 0; /*^clear */ -#line 2497 /*clear *//*_#IF___L38*/ meltfnum[15] = 0; /*^clear */ -#line 2497 /*clear *//*_.IF___V153*/ meltfptr[105] = 0; /*^clear */ -#line 2497 /*clear *//*_.LOCA_LOCATION__V156*/ meltfptr[141] = 0; /*^clear */ -#line 2497 /*clear *//*_.OR___V157*/ meltfptr[143] = 0; /*^clear */ -#line 2497 /*clear *//*_.SETQ___V158*/ meltfptr[123] = 0; /*^clear */ -#line 2497 /*clear *//*_.IF___V159*/ meltfptr[142] = 0; /*^clear */ -#line 2497 /*clear *//*_.SETQ___V163*/ meltfptr[159] = 0; -#line 2507 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2507:/ cppif.then"); -#line 2507 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2507 /*anyblock */ { { /*^locexp */ -#line 2507 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -5871,11 +5054,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2507 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L40*/ meltfnum[30] = -#line 2507 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -5884,18 +5065,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2507:/ cond"); -#line 2507 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L40*/ meltfnum[30]) /*then */ { /*^cond.then */ -#line 2507 /*^block */ -#line 2507 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L41*/ meltfnum[28] = -#line 2507 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -5903,30 +5080,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2507:/ checksignal"); -#line 2507 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2507 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2507 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L41*/ meltfnum[28]; /*^apply.arg */ -#line 2507 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2507 argtab[2].meltbp_long = 2507; /*^apply.arg */ -#line 2507 argtab[3].meltbp_cstring = "mexpand_defcmatcher expfill"; /*^apply.arg */ -#line 2507 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.EXPOPER__V27*/ meltfptr[26]; /*_.MELT_DEBUG_FUN__V166*/ meltfptr[124] = @@ -5944,76 +5114,59 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2507:/ clear"); -#line 2507 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L41*/ meltfnum[28] = 0; /*^clear */ -#line 2507 /*clear *//*_.MELT_DEBUG_FUN__V166*/ meltfptr[124] = 0; } ; } else { /*^cond.else */ -#line 2507 /*_.IF___V165*/ meltfptr[161] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2507:/ quasiblock"); -#line 2507 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V167*/ meltfptr[105] = /*_.IF___V165*/ meltfptr[161];; /*^compute */ - /*_.IFCPP___V164*/ meltfptr[160] = /*_.PROGN___V167*/ meltfptr[105];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2507:/ clear"); -#line 2507 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L40*/ meltfnum[30] = 0; /*^clear */ -#line 2507 /*clear *//*_.IF___V165*/ meltfptr[161] = 0; /*^clear */ -#line 2507 /*clear *//*_.PROGN___V167*/ meltfptr[105] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2507 /*_.IFCPP___V164*/ meltfptr[160] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V168*/ meltfptr[141] = -#line 2509 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2509:/ compute"); -#line 2509 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V169*/ meltfptr[143] = /*_.PAIR_TAIL__V168*/ meltfptr[141];; MELT_LOCATION ("warmelt-macro.melt:2510:/ checksignal"); -#line 2510 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2510 /*cond */ if ( /*_.CURPAIR__V18*/ meltfptr[17]) /*then */ { /*^cond.then */ -#line 2510 /*^block */ -#line 2510 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2511:/ locexp"); -#line 2511 "warmelt-macro.melt" /**::locexp::**/ melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("extra in (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), (melt_ptr_t) 0); @@ -6025,40 +5178,31 @@ lab_endgetargs:; } /*noelse */ ; -#line 2512 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2512:/ cppif.then"); -#line 2512 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2512 /*anyblock */ { /*^checksignal */ -#line 2512 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L42*/ meltfnum[15] = -#line 2512 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.MATCHFORMAL__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[6])));; MELT_LOCATION ("warmelt-macro.melt:2512:/ cond"); -#line 2512 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L42*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 2512 /*_.IFELSE___V171*/ meltfptr[142] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2512:/ cond.else"); -#line 2512 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2512 /*anyblock */ { @@ -6067,7 +5211,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2512 melt_assert_failed (("check matchformal again"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -6082,34 +5225,27 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V170*/ meltfptr[123] = /*_.IFELSE___V171*/ meltfptr[142];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2512:/ clear"); -#line 2512 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L42*/ meltfnum[15] = 0; /*^clear */ -#line 2512 /*clear *//*_.IFELSE___V171*/ meltfptr[142] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2512 /*_.IFCPP___V170*/ meltfptr[123] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2514:/ quasiblock"); -#line 2514 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:2515:/ checksignal"); -#line 2515 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:2516:/ getslot"); -#line 2516 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]) /*=obj*/ ; @@ -6118,11 +5254,9 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:2515:/ quasiblock"); -#line 2515 "warmelt-macro.melt" /**::quasiblock::**/ /*^rawallocobj */ -#line 2515 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -6135,7 +5269,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2515 /*putslot */ melt_assertmsg ("putslot checkobj @NAMED_NAME", melt_magic_discr ((melt_ptr_t) @@ -6146,7 +5279,6 @@ lab_endgetargs:; "NAMED_NAME"); ; /*^putslot */ -#line 2515 /*putslot */ melt_assertmsg ("putslot checkobj @AMATCH_IN", melt_magic_discr ((melt_ptr_t) @@ -6156,7 +5288,6 @@ lab_endgetargs:; ( /*_.INFORMALS__V22*/ meltfptr[21]), "AMATCH_IN"); ; /*^putslot */ -#line 2515 /*putslot */ melt_assertmsg ("putslot checkobj @AMATCH_MATCHBIND", melt_magic_discr ((melt_ptr_t) @@ -6167,7 +5298,6 @@ lab_endgetargs:; "AMATCH_MATCHBIND"); ; /*^putslot */ -#line 2515 /*putslot */ melt_assertmsg ("putslot checkobj @AMATCH_OUT", melt_magic_discr ((melt_ptr_t) @@ -6178,7 +5308,6 @@ lab_endgetargs:; "AMATCH_OUT"); ; /*^putslot */ -#line 2515 /*putslot */ melt_assertmsg ("putslot checkobj @CMATCH_STATE", melt_magic_discr ((melt_ptr_t) @@ -6189,7 +5318,6 @@ lab_endgetargs:; "CMATCH_STATE"); ; /*^putslot */ -#line 2515 /*putslot */ melt_assertmsg ("putslot checkobj @CMATCH_EXPTEST", melt_magic_discr ((melt_ptr_t) @@ -6200,7 +5328,6 @@ lab_endgetargs:; "CMATCH_EXPTEST"); ; /*^putslot */ -#line 2515 /*putslot */ melt_assertmsg ("putslot checkobj @CMATCH_EXPFILL", melt_magic_discr ((melt_ptr_t) @@ -6211,7 +5338,6 @@ lab_endgetargs:; "CMATCH_EXPFILL"); ; /*^putslot */ -#line 2515 /*putslot */ melt_assertmsg ("putslot checkobj @CMATCH_EXPOPER", melt_magic_discr ((melt_ptr_t) @@ -6223,15 +5349,12 @@ lab_endgetargs:; ; /*_.CMATCH__V174*/ meltfptr[161] = /*_.INST__V175*/ meltfptr[105];; MELT_LOCATION ("warmelt-macro.melt:2525:/ checksignal"); -#line 2525 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2525 /*^rawallocobj */ -#line 2525 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -6244,7 +5367,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2525 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -6254,7 +5376,6 @@ lab_endgetargs:; ( /*_.LOC__V16*/ meltfptr[15]), "LOCA_LOCATION"); ; /*^putslot */ -#line 2525 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_NAME", melt_magic_discr ((melt_ptr_t) @@ -6264,7 +5385,6 @@ lab_endgetargs:; ( /*_.SYMB__V19*/ meltfptr[18]), "SDEF_NAME"); ; /*^putslot */ -#line 2525 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_DOC", melt_magic_discr ((melt_ptr_t) @@ -6274,7 +5394,6 @@ lab_endgetargs:; ( /*_.DOCV__V28*/ meltfptr[27]), "SDEF_DOC"); ; /*^putslot */ -#line 2525 /*putslot */ melt_assertmsg ("putslot checkobj @SFORMAL_ARGS", melt_magic_discr ((melt_ptr_t) @@ -6285,7 +5404,6 @@ lab_endgetargs:; "SFORMAL_ARGS"); ; /*^putslot */ -#line 2525 /*putslot */ melt_assertmsg ("putslot checkobj @SCMATDEF_CMATCHER", melt_magic_discr ((melt_ptr_t) @@ -6296,7 +5414,6 @@ lab_endgetargs:; "SCMATDEF_CMATCHER"); ; /*^putslot */ -#line 2525 /*putslot */ melt_assertmsg ("putslot checkobj @SCMATDEF_TESTLOC", melt_magic_discr ((melt_ptr_t) @@ -6307,7 +5424,6 @@ lab_endgetargs:; "SCMATDEF_TESTLOC"); ; /*^putslot */ -#line 2525 /*putslot */ melt_assertmsg ("putslot checkobj @SCMATDEF_FILLLOC", melt_magic_discr ((melt_ptr_t) @@ -6318,7 +5434,6 @@ lab_endgetargs:; "SCMATDEF_FILLLOC"); ; /*^putslot */ -#line 2525 /*putslot */ melt_assertmsg ("putslot checkobj @SCMATDEF_OPERLOC", melt_magic_discr ((melt_ptr_t) @@ -6330,15 +5445,12 @@ lab_endgetargs:; ; /*_.SDEFCMATCH__V176*/ meltfptr[142] = /*_.INST__V177*/ meltfptr[176];; MELT_LOCATION ("warmelt-macro.melt:2534:/ checksignal"); -#line 2534 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2534 /*^rawallocobj */ -#line 2534 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -6351,7 +5463,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2534 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -6361,7 +5472,6 @@ lab_endgetargs:; ( /*_.SYMB__V19*/ meltfptr[18]), "BINDER"); ; /*^putslot */ -#line 2534 /*putslot */ melt_assertmsg ("putslot checkobj @CMBIND_MATCHER", melt_magic_discr ((melt_ptr_t) @@ -6373,44 +5483,31 @@ lab_endgetargs:; ; /*_.CMBIND__V178*/ meltfptr[177] = /*_.INST__V179*/ meltfptr[178];; /*^compute */ - /*_#MULTIPLE_LENGTH__L43*/ meltfnum[28] = -#line 2540 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_length ((melt_ptr_t) ( /*_.INFORMALS__V22*/ meltfptr[21])));; /*^compute */ - /*_#MULTIPLE_LENGTH__L44*/ meltfnum[30] = -#line 2541 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_length ((melt_ptr_t) ( /*_.OUTFORMALS__V23*/ meltfptr[22])));; /*^compute */ - /*_#I__L45*/ meltfnum[15] = -#line 2540 "warmelt-macro.melt" /**::expr::**/ (( /*_#MULTIPLE_LENGTH__L43*/ meltfnum[28]) + ( /*_#MULTIPLE_LENGTH__L44*/ meltfnum[30]));; /*^compute */ - /*_#I__L46*/ meltfnum[45] = -#line 2540 "warmelt-macro.melt" /**::expr::**/ ((2) * ( /*_#I__L45*/ meltfnum[15]));; /*^compute */ - /*_#I__L47*/ meltfnum[46] = -#line 2540 "warmelt-macro.melt" /**::expr::**/ ((7) + ( /*_#I__L46*/ meltfnum[45]));; /*^compute */ - /*_.SUBSTMAP__V180*/ meltfptr[179] = -#line 2538 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_mapobjects ((meltobject_ptr_t) (( /*!DISCR_MAP_OBJECTS */ meltfrout->tabval[16])), ( /*_#I__L47*/ meltfnum[46])));; { MELT_LOCATION ("warmelt-macro.melt:2544:/ locexp"); -#line 2544 "warmelt-macro.melt" /**::locexp::**/ meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V180*/ meltfptr[179]), (meltobject_ptr_t) ( /*_.STATESYM__V24*/ @@ -6420,9 +5517,7 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2545:/ cond"); -#line 2545 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 2545 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.MATCHFORMAL__V21*/ @@ -6431,9 +5526,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2545 /*^getslot */ -#line 2545 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.MATCHFORMAL__V21*/ meltfptr[20]) /*=obj*/ ; @@ -6444,7 +5537,6 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2545 /*_.BINDER__V181*/ meltfptr[180] = NULL;; } @@ -6452,7 +5544,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2545:/ locexp"); -#line 2545 "warmelt-macro.melt" /**::locexp::**/ meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V180*/ meltfptr[179]), (meltobject_ptr_t) ( /*_.BINDER__V181*/ @@ -6479,40 +5570,31 @@ lab_endgetargs:; -#line 2549 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2549:/ cppif.then"); -#line 2549 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2549 /*anyblock */ { /*^checksignal */ -#line 2549 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L49*/ meltfnum[48] = -#line 2549 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CURIBIND__V182*/ meltfptr[181]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[6])));; MELT_LOCATION ("warmelt-macro.melt:2549:/ cond"); -#line 2549 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L49*/ meltfnum[48]) /*then */ { /*^cond.then */ -#line 2549 /*_.IFELSE___V184*/ meltfptr[183] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2549:/ cond.else"); -#line 2549 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2549 /*anyblock */ { @@ -6521,7 +5603,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2549 melt_assert_failed (("check input curibind"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -6537,29 +5618,23 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V183*/ meltfptr[182] = /*_.IFELSE___V184*/ meltfptr[183];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2549:/ clear"); -#line 2549 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L49*/ meltfnum[48] = 0; /*^clear */ -#line 2549 /*clear *//*_.IFELSE___V184*/ meltfptr[183] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2549 /*_.IFCPP___V183*/ meltfptr[182] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2550:/ cond"); -#line 2550 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 2550 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CURIBIND__V182*/ @@ -6568,9 +5643,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2550 /*^getslot */ -#line 2550 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -6583,7 +5656,6 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2550 /*_.BINDER__V185*/ meltfptr[183] = NULL;; } @@ -6591,7 +5663,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2550:/ locexp"); -#line 2550 "warmelt-macro.melt" /**::locexp::**/ meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V180*/ meltfptr[179]), (meltobject_ptr_t) ( /*_.BINDER__V185*/ @@ -6607,16 +5678,12 @@ lab_endgetargs:; /*citerepilog */ MELT_LOCATION ("warmelt-macro.melt:2546:/ clear"); -#line 2546 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURIBIND__V182*/ meltfptr[181] = 0; /*^clear */ -#line 2546 /*clear *//*_#IBIX__L48*/ meltfnum[47] = 0; /*^clear */ -#line 2546 /*clear *//*_.IFCPP___V183*/ meltfptr[182] = 0; /*^clear */ -#line 2546 /*clear *//*_.BINDER__V185*/ meltfptr[183] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; @@ -6639,40 +5706,31 @@ lab_endgetargs:; -#line 2554 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2554:/ cppif.then"); -#line 2554 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2554 /*anyblock */ { /*^checksignal */ -#line 2554 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L51*/ meltfnum[50] = -#line 2554 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CUROBIND__V186*/ meltfptr[185]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[6])));; MELT_LOCATION ("warmelt-macro.melt:2554:/ cond"); -#line 2554 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L51*/ meltfnum[50]) /*then */ { /*^cond.then */ -#line 2554 /*_.IFELSE___V188*/ meltfptr[187] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2554:/ cond.else"); -#line 2554 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2554 /*anyblock */ { @@ -6681,7 +5739,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2554 melt_assert_failed (("check output curbind"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -6697,29 +5754,23 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V187*/ meltfptr[186] = /*_.IFELSE___V188*/ meltfptr[187];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2554:/ clear"); -#line 2554 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L51*/ meltfnum[50] = 0; /*^clear */ -#line 2554 /*clear *//*_.IFELSE___V188*/ meltfptr[187] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2554 /*_.IFCPP___V187*/ meltfptr[186] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2555:/ cond"); -#line 2555 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 2555 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CUROBIND__V186*/ @@ -6728,9 +5779,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2555 /*^getslot */ -#line 2555 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -6743,7 +5792,6 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2555 /*_.BINDER__V189*/ meltfptr[187] = NULL;; } @@ -6751,7 +5799,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2555:/ locexp"); -#line 2555 "warmelt-macro.melt" /**::locexp::**/ meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V180*/ meltfptr[179]), (meltobject_ptr_t) ( /*_.BINDER__V189*/ @@ -6767,34 +5814,26 @@ lab_endgetargs:; /*citerepilog */ MELT_LOCATION ("warmelt-macro.melt:2551:/ clear"); -#line 2551 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUROBIND__V186*/ meltfptr[185] = 0; /*^clear */ -#line 2551 /*clear *//*_#OBIX__L50*/ meltfnum[48] = 0; /*^clear */ -#line 2551 /*clear *//*_.IFCPP___V187*/ meltfptr[186] = 0; /*^clear */ -#line 2551 /*clear *//*_.BINDER__V189*/ meltfptr[187] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; MELT_LOCATION ("warmelt-macro.melt:2557:/ checksignal"); -#line 2557 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2557 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2557 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V16*/ meltfptr[15]; /*^apply.arg */ -#line 2557 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.SUBSTMAP__V180*/ meltfptr[179]; /*_.CHECK_C_EXPANSION__V190*/ meltfptr[189] = @@ -6806,20 +5845,16 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2558:/ checksignal"); -#line 2558 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2558 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2558 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V16*/ meltfptr[15]; /*^apply.arg */ -#line 2558 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.SUBSTMAP__V180*/ meltfptr[179]; /*_.CHECK_C_EXPANSION__V191*/ meltfptr[190] = @@ -6831,20 +5866,16 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2559:/ checksignal"); -#line 2559 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2559 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2559 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V16*/ meltfptr[15]; /*^apply.arg */ -#line 2559 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.SUBSTMAP__V180*/ meltfptr[179]; /*_.CHECK_C_EXPANSION__V192*/ meltfptr[191] = @@ -6856,19 +5887,15 @@ lab_endgetargs:; } ; -#line 2560 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2560:/ cppif.then"); -#line 2560 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2560 /*anyblock */ { { /*^locexp */ -#line 2560 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -6877,11 +5904,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2560 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L52*/ meltfnum[50] = -#line 2560 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -6890,18 +5915,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2560:/ cond"); -#line 2560 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L52*/ meltfnum[50]) /*then */ { /*^cond.then */ -#line 2560 /*^block */ -#line 2560 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L53*/ meltfnum[52] = -#line 2560 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -6909,30 +5930,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2560:/ checksignal"); -#line 2560 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2560 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2560 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L53*/ meltfnum[52]; /*^apply.arg */ -#line 2560 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2560 argtab[2].meltbp_long = 2560; /*^apply.arg */ -#line 2560 argtab[3].meltbp_cstring = "mexpand_defcmatcher sdefcmatch"; /*^apply.arg */ -#line 2560 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SDEFCMATCH__V176*/ meltfptr[142]; /*_.MELT_DEBUG_FUN__V195*/ meltfptr[194] = @@ -6950,60 +5964,48 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2560:/ clear"); -#line 2560 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L53*/ meltfnum[52] = 0; /*^clear */ -#line 2560 /*clear *//*_.MELT_DEBUG_FUN__V195*/ meltfptr[194] = 0; } ; } else { /*^cond.else */ -#line 2560 /*_.IF___V194*/ meltfptr[193] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2560:/ quasiblock"); -#line 2560 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V196*/ meltfptr[194] = /*_.IF___V194*/ meltfptr[193];; /*^compute */ - /*_.IFCPP___V193*/ meltfptr[192] = /*_.PROGN___V196*/ meltfptr[194];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2560:/ clear"); -#line 2560 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L52*/ meltfnum[50] = 0; /*^clear */ -#line 2560 /*clear *//*_.IF___V194*/ meltfptr[193] = 0; /*^clear */ -#line 2560 /*clear *//*_.PROGN___V196*/ meltfptr[194] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2560 /*_.IFCPP___V193*/ meltfptr[192] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2561:/ checksignal"); -#line 2561 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2561 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2561 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CMBIND__V178*/ meltfptr[177]; /*_.PUT_ENV__V197*/ meltfptr[193] = @@ -7015,19 +6017,15 @@ lab_endgetargs:; } ; -#line 2562 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2562:/ cppif.then"); -#line 2562 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2562 /*anyblock */ { { /*^locexp */ -#line 2562 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -7036,11 +6034,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2562 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L54*/ meltfnum[52] = -#line 2562 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -7049,18 +6045,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2562:/ cond"); -#line 2562 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L54*/ meltfnum[52]) /*then */ { /*^cond.then */ -#line 2562 /*^block */ -#line 2562 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L55*/ meltfnum[50] = -#line 2562 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -7068,38 +6060,29 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2562:/ checksignal"); -#line 2562 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2562 /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2562 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L55*/ meltfnum[50]; /*^apply.arg */ -#line 2562 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2562 argtab[2].meltbp_long = 2562; /*^apply.arg */ -#line 2562 argtab[3].meltbp_cstring = "mexpand_defcmatcher registering device sdefcmatch="; /*^apply.arg */ -#line 2562 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SDEFCMATCH__V176*/ meltfptr[142]; /*^apply.arg */ -#line 2562 argtab[5].meltbp_cstring = " cmatch="; /*^apply.arg */ -#line 2562 argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.CMATCH__V174*/ meltfptr[161]; /*_.MELT_DEBUG_FUN__V200*/ meltfptr[199] = @@ -7118,64 +6101,51 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2562:/ clear"); -#line 2562 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L55*/ meltfnum[50] = 0; /*^clear */ -#line 2562 /*clear *//*_.MELT_DEBUG_FUN__V200*/ meltfptr[199] = 0; } ; } else { /*^cond.else */ -#line 2562 /*_.IF___V199*/ meltfptr[198] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2562:/ quasiblock"); -#line 2562 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V201*/ meltfptr[199] = /*_.IF___V199*/ meltfptr[198];; /*^compute */ - /*_.IFCPP___V198*/ meltfptr[194] = /*_.PROGN___V201*/ meltfptr[199];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2562:/ clear"); -#line 2562 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L54*/ meltfnum[52] = 0; /*^clear */ -#line 2562 /*clear *//*_.IF___V199*/ meltfptr[198] = 0; /*^clear */ -#line 2562 /*clear *//*_.PROGN___V201*/ meltfptr[199] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2562 /*_.IFCPP___V198*/ meltfptr[194] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2563:/ checksignal"); -#line 2563 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2563 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2563 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CMATCH__V174*/ meltfptr[161]; /*^apply.arg */ -#line 2563 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.REGISTER_GENERATOR_DEVICE__V202*/ meltfptr[198] = melt_apply ((meltclosure_ptr_t) @@ -7187,18 +6157,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2564:/ checksignal"); -#line 2564 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2564 /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFCMATCH__V176*/ meltfptr[142];; { MELT_LOCATION ("warmelt-macro.melt:2564:/ locexp"); -#line 2564 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7209,263 +6176,180 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2564 ; /*finalret */ goto labend_rout; /*_.LET___V172*/ meltfptr[159] = /*_.RETURN___V203*/ meltfptr[199];; MELT_LOCATION ("warmelt-macro.melt:2514:/ clear"); -#line 2514 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V173*/ meltfptr[124] = 0; /*^clear */ -#line 2514 /*clear *//*_.CMATCH__V174*/ meltfptr[161] = 0; /*^clear */ -#line 2514 /*clear *//*_.SDEFCMATCH__V176*/ meltfptr[142] = 0; /*^clear */ -#line 2514 /*clear *//*_.CMBIND__V178*/ meltfptr[177] = 0; /*^clear */ -#line 2514 /*clear *//*_#MULTIPLE_LENGTH__L43*/ meltfnum[28] = 0; /*^clear */ -#line 2514 /*clear *//*_#MULTIPLE_LENGTH__L44*/ meltfnum[30] = 0; /*^clear */ -#line 2514 /*clear *//*_#I__L45*/ meltfnum[15] = 0; /*^clear */ -#line 2514 /*clear *//*_#I__L46*/ meltfnum[45] = 0; /*^clear */ -#line 2514 /*clear *//*_#I__L47*/ meltfnum[46] = 0; /*^clear */ -#line 2514 /*clear *//*_.SUBSTMAP__V180*/ meltfptr[179] = 0; /*^clear */ -#line 2514 /*clear *//*_.BINDER__V181*/ meltfptr[180] = 0; /*^clear */ -#line 2514 /*clear *//*_.CHECK_C_EXPANSION__V190*/ meltfptr[189] = 0; /*^clear */ -#line 2514 /*clear *//*_.CHECK_C_EXPANSION__V191*/ meltfptr[190] = 0; /*^clear */ -#line 2514 /*clear *//*_.CHECK_C_EXPANSION__V192*/ meltfptr[191] = 0; /*^clear */ -#line 2514 /*clear *//*_.IFCPP___V193*/ meltfptr[192] = 0; /*^clear */ -#line 2514 /*clear *//*_.PUT_ENV__V197*/ meltfptr[193] = 0; /*^clear */ -#line 2514 /*clear *//*_.IFCPP___V198*/ meltfptr[194] = 0; /*^clear */ -#line 2514 /*clear *//*_.REGISTER_GENERATOR_DEVICE__V202*/ meltfptr[198] = 0; /*^clear */ -#line 2514 /*clear *//*_.RETURN___V203*/ meltfptr[199] = 0; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V172*/ meltfptr[159];; MELT_LOCATION ("warmelt-macro.melt:2386:/ clear"); -#line 2386 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ -#line 2386 /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; /*^clear */ -#line 2386 /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0; /*^clear */ -#line 2386 /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0; /*^clear */ -#line 2386 /*clear *//*_.SYMB__V19*/ meltfptr[18] = 0; /*^clear */ -#line 2386 /*clear *//*_.SFORMALS__V20*/ meltfptr[19] = 0; /*^clear */ -#line 2386 /*clear *//*_.MATCHFORMAL__V21*/ meltfptr[20] = 0; /*^clear */ -#line 2386 /*clear *//*_.INFORMALS__V22*/ meltfptr[21] = 0; /*^clear */ -#line 2386 /*clear *//*_.OUTFORMALS__V23*/ meltfptr[22] = 0; /*^clear */ -#line 2386 /*clear *//*_.STATESYM__V24*/ meltfptr[23] = 0; /*^clear */ -#line 2386 /*clear *//*_.EXPTEST__V25*/ meltfptr[24] = 0; /*^clear */ -#line 2386 /*clear *//*_.EXPFILL__V26*/ meltfptr[25] = 0; /*^clear */ -#line 2386 /*clear *//*_.EXPOPER__V27*/ meltfptr[26] = 0; /*^clear */ -#line 2386 /*clear *//*_.DOCV__V28*/ meltfptr[27] = 0; /*^clear */ -#line 2386 /*clear *//*_.LOCTEST__V29*/ meltfptr[28] = 0; /*^clear */ -#line 2386 /*clear *//*_.LOCFILL__V30*/ meltfptr[29] = 0; /*^clear */ -#line 2386 /*clear *//*_.LOCOPER__V31*/ meltfptr[30] = 0; /*^clear */ -#line 2386 /*clear *//*_.IFCPP___V32*/ meltfptr[31] = 0; /*^clear */ -#line 2386 /*clear *//*_#IS_NOT_A__L7*/ meltfnum[0] = 0; /*^clear */ -#line 2386 /*clear *//*_.IF___V36*/ meltfptr[32] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_TAIL__V39*/ meltfptr[33] = 0; /*^clear */ -#line 2386 /*clear *//*_.SETQ___V40*/ meltfptr[37] = 0; /*^clear */ -#line 2386 /*clear *//*_.LET___V41*/ meltfptr[40] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_TAIL__V68*/ meltfptr[64] = 0; /*^clear */ -#line 2386 /*clear *//*_.SETQ___V69*/ meltfptr[65] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_HEAD__V70*/ meltfptr[41] = 0; /*^clear */ -#line 2386 /*clear *//*_.LAMBDA_ARG_BINDINGS__V71*/ meltfptr[42] = 0; /*^clear */ -#line 2386 /*clear *//*_.SETQ___V72*/ meltfptr[43] = 0; /*^clear */ -#line 2386 /*clear *//*_.IFCPP___V73*/ meltfptr[44] = 0; /*^clear */ -#line 2386 /*clear *//*_#IS_MULTIPLE__L19*/ meltfnum[1] = 0; /*^clear */ -#line 2386 /*clear *//*_#NOT__L20*/ meltfnum[8] = 0; /*^clear */ -#line 2386 /*clear *//*_.IF___V77*/ meltfptr[52] = 0; /*^clear */ -#line 2386 /*clear *//*_#IS_A__L21*/ meltfnum[9] = 0; /*^clear */ -#line 2386 /*clear *//*_.IF___V80*/ meltfptr[59] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_TAIL__V83*/ meltfptr[63] = 0; /*^clear */ -#line 2386 /*clear *//*_.SETQ___V84*/ meltfptr[48] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_HEAD__V85*/ meltfptr[45] = 0; /*^clear */ -#line 2386 /*clear *//*_.SETQ___V86*/ meltfptr[51] = 0; /*^clear */ -#line 2386 /*clear *//*_#IS_NOT_A__L22*/ meltfnum[10] = 0; /*^clear */ -#line 2386 /*clear *//*_.IF___V87*/ meltfptr[53] = 0; /*^clear */ -#line 2386 /*clear *//*_.IFCPP___V94*/ meltfptr[54] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_TAIL__V98*/ meltfptr[60] = 0; /*^clear */ -#line 2386 /*clear *//*_.SETQ___V99*/ meltfptr[62] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_HEAD__V100*/ meltfptr[99] = 0; /*^clear */ -#line 2386 /*clear *//*_#__L27*/ meltfnum[11] = 0; /*^clear */ -#line 2386 /*clear *//*_.IF___V101*/ meltfptr[100] = 0; /*^clear */ -#line 2386 /*clear *//*_.LET___V109*/ meltfptr[101] = 0; /*^clear */ -#line 2386 /*clear *//*_.IFCPP___V126*/ meltfptr[121] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_TAIL__V130*/ meltfptr[102] = 0; /*^clear */ -#line 2386 /*clear *//*_.SETQ___V131*/ meltfptr[103] = 0; /*^clear */ -#line 2386 /*clear *//*_.LET___V132*/ meltfptr[107] = 0; /*^clear */ -#line 2386 /*clear *//*_.IFCPP___V145*/ meltfptr[140] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_TAIL__V149*/ meltfptr[104] = 0; /*^clear */ -#line 2386 /*clear *//*_.SETQ___V150*/ meltfptr[106] = 0; /*^clear */ -#line 2386 /*clear *//*_.LET___V151*/ meltfptr[122] = 0; /*^clear */ -#line 2386 /*clear *//*_.IFCPP___V164*/ meltfptr[160] = 0; /*^clear */ -#line 2386 /*clear *//*_.PAIR_TAIL__V168*/ meltfptr[141] = 0; /*^clear */ -#line 2386 /*clear *//*_.SETQ___V169*/ meltfptr[143] = 0; /*^clear */ -#line 2386 /*clear *//*_.IFCPP___V170*/ meltfptr[123] = 0; /*^clear */ -#line 2386 /*clear *//*_.LET___V172*/ meltfptr[159] = 0; MELT_LOCATION ("warmelt-macro.melt:2382:/ checksignal"); -#line 2382 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2382 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { MELT_LOCATION ("warmelt-macro.melt:2382:/ locexp"); -#line 2382 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7476,22 +6360,17 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2382 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2382 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 2382 /*clear *//*_.IFCPP___V10*/ meltfptr[6] = 0; /*^clear */ -#line 2382 /*clear *//*_.IFCPP___V12*/ meltfptr[7] = 0; /*^clear */ -#line 2382 /*clear *//*_.LET___V14*/ meltfptr[12] = 0; } @@ -7510,7 +6389,6 @@ labend_rout: } /*end meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER */ -#line 2433 "warmelt-macro.melt" /**::proc::**/ @@ -7586,12 +6464,10 @@ meltrout_37_warmelt_macro_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:2433:/ getarg"); -#line 2433 "warmelt-macro.melt" /**::getarg::**/ /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2433 if (meltxargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; @@ -7600,35 +6476,27 @@ meltrout_37_warmelt_macro_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2433 /*anyblock*/ { /*^checksignal */ -#line 2433 MELT_CHECK_SIGNAL (); ; /*_#I__L2*/ meltfnum[1] = -#line 2433 "warmelt-macro.melt" /**::expr::**/ (( /*_#IX__L1*/ meltfnum[0]) > (0));; MELT_LOCATION ("warmelt-macro.melt:2433:/ cond"); -#line 2433 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#I__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2433 /*^block */ -#line 2433 /*anyblock */ { /*_#I__L3*/ meltfnum[2] = -#line 2433 "warmelt-macro.melt" /**::expr::**/ (( /*_#IX__L1*/ meltfnum[0]) - (1));; { MELT_LOCATION ("warmelt-macro.melt:2433:/ locexp"); -#line 2433 "warmelt-macro.melt" /**::locexp::**/ meltgc_multiple_put_nth ((melt_ptr_t) (( /*~INFORMALS */ meltfclos-> tabval[0])), @@ -7640,7 +6508,6 @@ lab_endgetargs:; /*epilog */ /*^clear */ -#line 2433 /*clear *//*_#I__L3*/ meltfnum[2] = 0; } ; @@ -7649,7 +6516,6 @@ lab_endgetargs:; /*epilog */ /*^clear */ -#line 2433 /*clear *//*_#I__L2*/ meltfnum[1] = 0; } @@ -7668,7 +6534,6 @@ labend_rout: } /*end meltrout_37_warmelt_macro_LAMBDA___7__ */ -#line 2578 "warmelt-macro.melt" /**::proc::**/ @@ -7747,12 +6612,10 @@ meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:2578:/ getarg"); -#line 2578 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2578 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -7762,7 +6625,6 @@ meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 2578 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -7773,7 +6635,6 @@ meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 2578 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -7786,24 +6647,19 @@ meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2578 /*anyblock*/ { -#line 2579 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2579:/ cppif.then"); -#line 2579 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2579 /*anyblock */ { { /*^locexp */ -#line 2579 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -7812,11 +6668,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2579 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 2579 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -7825,18 +6679,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2579:/ cond"); -#line 2579 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2579 /*^block */ -#line 2579 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = -#line 2579 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -7844,29 +6694,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2579:/ checksignal"); -#line 2579 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2579 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2579 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ -#line 2579 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2579 argtab[2].meltbp_long = 2579; /*^apply.arg */ -#line 2579 argtab[3].meltbp_cstring = "mexpand_defunmatcher sexpr"; /*^apply.arg */ -#line 2579 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = @@ -7883,82 +6726,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2579:/ clear"); -#line 2579 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ -#line 2579 /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; } ; } else { /*^cond.else */ -#line 2579 /*_.IF___V7*/ meltfptr[6] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2579:/ quasiblock"); -#line 2579 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2579:/ clear"); -#line 2579 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2579 /*clear *//*_.IF___V7*/ meltfptr[6] = 0; /*^clear */ -#line 2579 /*clear *//*_.PROGN___V9*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2579 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2580 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2580:/ cppif.then"); -#line 2580 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2580 /*anyblock */ { /*^checksignal */ -#line 2580 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = -#line 2580 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:2580:/ cond"); -#line 2580 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2580 /*_.IFELSE___V11*/ meltfptr[7] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2580:/ cond.else"); -#line 2580 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2580 /*anyblock */ { @@ -7967,7 +6792,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2580 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -7982,58 +6806,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2580:/ clear"); -#line 2580 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 2580 /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2580 /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2581 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2581:/ cppif.then"); -#line 2581 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2581 /*anyblock */ { /*^checksignal */ -#line 2581 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[0] = -#line 2581 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:2581:/ cond"); -#line 2581 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2581 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2581:/ cond.else"); -#line 2581 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2581 /*anyblock */ { @@ -8042,7 +6853,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2581 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -8057,30 +6867,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2581:/ clear"); -#line 2581 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ -#line 2581 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2581 /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2582:/ quasiblock"); -#line 2582 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 2582 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -8089,7 +6893,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:2583:/ getslot"); -#line 2583 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -8098,56 +6901,39 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V17*/ meltfptr[16] = -#line 2584 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[14])));; /*^compute */ - /*_.CURPAIR__V18*/ meltfptr[17] = -#line 2584 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));; /*^compute */ - /*_.SYMB__V19*/ meltfptr[18] = -#line 2585 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; /*^compute */ - /*_.SFORMALS__V20*/ meltfptr[19] = ( /*nil */ NULL);; /*^compute */ - /*_.MATCHFORMAL__V21*/ meltfptr[20] = ( /*nil */ NULL);; /*^compute */ - /*_.INFORMALS__V22*/ meltfptr[21] = ( /*nil */ NULL);; /*^compute */ - /*_.OUTFORMALS__V23*/ meltfptr[22] = ( /*nil */ NULL);; /*^compute */ - /*_.MATCHFUNX__V24*/ meltfptr[23] = ( /*nil */ NULL);; /*^compute */ - /*_.APPLYFUNX__V25*/ meltfptr[24] = ( /*nil */ NULL);; /*^compute */ - /*_.DATAX__V26*/ meltfptr[25] = ( /*nil */ NULL);; /*^compute */ - /*_.DOCV__V27*/ meltfptr[26] = ( /*nil */ NULL);; -#line 2597 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2597:/ cppif.then"); -#line 2597 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2597 /*anyblock */ { { /*^locexp */ -#line 2597 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -8156,11 +6942,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2597 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = -#line 2597 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -8169,18 +6953,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2597:/ cond"); -#line 2597 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2597 /*^block */ -#line 2597 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = -#line 2597 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -8188,29 +6968,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2597:/ checksignal"); -#line 2597 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2597 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2597 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg */ -#line 2597 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2597 argtab[2].meltbp_long = 2597; /*^apply.arg */ -#line 2597 argtab[3].meltbp_cstring = "mexpand_defunmatcher symb"; /*^apply.arg */ -#line 2597 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SYMB__V19*/ meltfptr[18]; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = @@ -8228,72 +7001,57 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2597:/ clear"); -#line 2597 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; /*^clear */ -#line 2597 /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; } ; } else { /*^cond.else */ -#line 2597 /*_.IF___V29*/ meltfptr[28] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2597:/ quasiblock"); -#line 2597 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];; /*^compute */ - /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2597:/ clear"); -#line 2597 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0; /*^clear */ -#line 2597 /*clear *//*_.IF___V29*/ meltfptr[28] = 0; /*^clear */ -#line 2597 /*clear *//*_.PROGN___V31*/ meltfptr[29] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2597 /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2598:/ checksignal"); -#line 2598 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[0] = -#line 2598 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:2598:/ cond"); -#line 2598 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2598 /*^block */ -#line 2598 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2600:/ locexp"); -#line 2600 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("symbol expected for (DEFUNMATCHER <symb> <ins> <outs> [:doc docum] <matchfun> <applyfun> [<data>])"), @@ -8301,14 +7059,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2603:/ quasiblock"); -#line 2603 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2603:/ locexp"); -#line 2603 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8319,57 +7075,44 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2603 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2599:/ quasiblock"); -#line 2599 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V34*/ meltfptr[33] = /*_.RETURN___V33*/ meltfptr[29];; /*^compute */ - /*_.IF___V32*/ meltfptr[28] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2598:/ clear"); -#line 2598 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V33*/ meltfptr[29] = 0; /*^clear */ -#line 2598 /*clear *//*_.PROGN___V34*/ meltfptr[33] = 0; } ; } else { /*^cond.else */ -#line 2598 /*_.IF___V32*/ meltfptr[28] = NULL;; } ; /*^compute */ - /*_.PAIR_TAIL__V35*/ meltfptr[29] = -#line 2604 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2604:/ compute"); -#line 2604 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V36*/ meltfptr[33] = /*_.PAIR_TAIL__V35*/ meltfptr[29];; MELT_LOCATION ("warmelt-macro.melt:2606:/ quasiblock"); -#line 2606 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PAIR_HEAD__V38*/ meltfptr[37] = -#line 2606 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2606:/ checksignal"); -#line 2606 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2606 /*apply */ { /*_.MATINFORMALS__V39*/ meltfptr[38] = @@ -8380,31 +7123,24 @@ lab_endgetargs:; } ; /*_#NBMATINFORMALS__L8*/ meltfnum[1] = -#line 2607 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_length ((melt_ptr_t) ( /*_.MATINFORMALS__V39*/ meltfptr[38])));; MELT_LOCATION ("warmelt-macro.melt:2609:/ checksignal"); -#line 2609 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[8] = -#line 2609 "warmelt-macro.melt" /**::expr::**/ (( /*_#NBMATINFORMALS__L8*/ meltfnum[1]) < (1));; MELT_LOCATION ("warmelt-macro.melt:2609:/ cond"); -#line 2609 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 2609 /*^block */ -#line 2609 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2611:/ locexp"); -#line 2611 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("empty ins for (DEFUNMATCHER <symb> <ins> <outs> [:doc docum] <matchfun> <applyfun> [<data>])"), @@ -8412,14 +7148,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2612:/ quasiblock"); -#line 2612 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2612:/ locexp"); -#line 2612 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8430,59 +7164,46 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2612 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2610:/ quasiblock"); -#line 2610 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V42*/ meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];; /*^compute */ - /*_.IF___V40*/ meltfptr[39] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2609:/ clear"); -#line 2609 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V41*/ meltfptr[40] = 0; /*^clear */ -#line 2609 /*clear *//*_.PROGN___V42*/ meltfptr[41] = 0; } ; } else { /*^cond.else */ -#line 2609 /*_.IF___V40*/ meltfptr[39] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2613:/ checksignal"); -#line 2613 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[9] = -#line 2613 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.MATINFORMALS__V39*/ meltfptr[38]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; MELT_LOCATION ("warmelt-macro.melt:2613:/ cond"); -#line 2613 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 2613 /*^block */ -#line 2613 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2616:/ cond"); -#line 2616 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 2616 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]), @@ -8490,9 +7211,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2616 /*^getslot */ -#line 2616 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]) /*=obj*/ ; @@ -8503,7 +7222,6 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2616 /*_.NAMED_NAME__V44*/ meltfptr[41] = NULL;; } @@ -8511,7 +7229,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2615:/ locexp"); -#line 2615 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("(DEFUNMATCHER <symb> <ins> ...) inputs cannot be variadic with last :rest formal"), (melt_ptr_t) ( /*_.NAMED_NAME__V44*/ @@ -8519,14 +7236,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2617:/ quasiblock"); -#line 2617 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2617:/ locexp"); -#line 2617 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8537,64 +7252,50 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2617 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2614:/ quasiblock"); -#line 2614 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V46*/ meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];; /*^compute */ - /*_.IF___V43*/ meltfptr[40] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2613:/ clear"); -#line 2613 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V44*/ meltfptr[41] = 0; /*^clear */ -#line 2613 /*clear *//*_.RETURN___V45*/ meltfptr[44] = 0; /*^clear */ -#line 2613 /*clear *//*_.PROGN___V46*/ meltfptr[45] = 0; } ; } else { /*^cond.else */ -#line 2613 /*_.IF___V43*/ meltfptr[40] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2619:/ compute"); -#line 2619 "warmelt-macro.melt" /**::compute::**/ /*_.SFORMALS__V20*/ meltfptr[19] = /*_.SETQ___V47*/ meltfptr[41] = /*_.MATINFORMALS__V39*/ meltfptr[38];; /*_.MULTIPLE_NTH__V48*/ meltfptr[44] = -#line 2620 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_nth ((melt_ptr_t) ( /*_.MATINFORMALS__V39*/ meltfptr[38]), (0)));; MELT_LOCATION ("warmelt-macro.melt:2620:/ compute"); -#line 2620 "warmelt-macro.melt" /**::compute::**/ /*_.MATCHFORMAL__V21*/ meltfptr[20] = /*_.SETQ___V49*/ meltfptr[45] = /*_.MULTIPLE_NTH__V48*/ meltfptr[44];; -#line 2621 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2621:/ cppif.then"); -#line 2621 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2621 /*anyblock */ { { /*^locexp */ -#line 2621 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -8603,11 +7304,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2621 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = -#line 2621 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -8616,18 +7315,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2621:/ cond"); -#line 2621 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 2621 /*^block */ -#line 2621 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = -#line 2621 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -8635,30 +7330,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2621:/ checksignal"); -#line 2621 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2621 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2621 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11]; /*^apply.arg */ -#line 2621 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2621 argtab[2].meltbp_long = 2621; /*^apply.arg */ -#line 2621 argtab[3].meltbp_cstring = "mexpand_defunmatcher matchformal"; /*^apply.arg */ -#line 2621 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MATCHFORMAL__V21*/ meltfptr[20]; /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = @@ -8676,70 +7364,54 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2621:/ clear"); -#line 2621 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ -#line 2621 /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 0; } ; } else { /*^cond.else */ -#line 2621 /*_.IF___V51*/ meltfptr[50] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2621:/ quasiblock"); -#line 2621 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V53*/ meltfptr[51] = /*_.IF___V51*/ meltfptr[50];; /*^compute */ - /*_.IFCPP___V50*/ meltfptr[49] = /*_.PROGN___V53*/ meltfptr[51];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2621:/ clear"); -#line 2621 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ -#line 2621 /*clear *//*_.IF___V51*/ meltfptr[50] = 0; /*^clear */ -#line 2621 /*clear *//*_.PROGN___V53*/ meltfptr[51] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2621 /*_.IFCPP___V50*/ meltfptr[49] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_#I__L13*/ meltfnum[11] = -#line 2622 "warmelt-macro.melt" /**::expr::**/ (( /*_#NBMATINFORMALS__L8*/ meltfnum[1]) - (1));; /*^compute */ - /*_.MAKE_MULTIPLE__V54*/ meltfptr[50] = -#line 2622 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[7])), ( /*_#I__L13*/ meltfnum[11])));; MELT_LOCATION ("warmelt-macro.melt:2622:/ compute"); -#line 2622 "warmelt-macro.melt" /**::compute::**/ /*_.INFORMALS__V22*/ meltfptr[21] = /*_.SETQ___V55*/ meltfptr[51] = /*_.MAKE_MULTIPLE__V54*/ meltfptr[50];; MELT_LOCATION ("warmelt-macro.melt:2625:/ quasiblock"); -#line 2625 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 2625 /*newclosure *//*_.LAMBDA___V57*/ meltfptr[56] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -8748,7 +7420,6 @@ lab_endgetargs:; tabval[9])), (1)); ; /*^putclosedv */ -#line 2625 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -8763,17 +7434,14 @@ lab_endgetargs:; ; /*_.LAMBDA___V56*/ meltfptr[55] = /*_.LAMBDA___V57*/ meltfptr[56];; MELT_LOCATION ("warmelt-macro.melt:2623:/ checksignal"); -#line 2623 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2623 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2623 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V56*/ meltfptr[55]; /*_.MULTIPLE_EVERY__V58*/ meltfptr[57] = @@ -8785,19 +7453,15 @@ lab_endgetargs:; } ; -#line 2626 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2626:/ cppif.then"); -#line 2626 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2626 /*anyblock */ { { /*^locexp */ -#line 2626 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -8806,11 +7470,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2626 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[10] = -#line 2626 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -8819,18 +7481,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2626:/ cond"); -#line 2626 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 2626 /*^block */ -#line 2626 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = -#line 2626 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -8838,30 +7496,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2626:/ checksignal"); -#line 2626 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2626 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2626 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14]; /*^apply.arg */ -#line 2626 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2626 argtab[2].meltbp_long = 2626; /*^apply.arg */ -#line 2626 argtab[3].meltbp_cstring = "mexpand_defunmatcher informals"; /*^apply.arg */ -#line 2626 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.INFORMALS__V22*/ meltfptr[21]; /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = @@ -8879,119 +7530,87 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2626:/ clear"); -#line 2626 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ -#line 2626 /*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0; } ; } else { /*^cond.else */ -#line 2626 /*_.IF___V60*/ meltfptr[59] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2626:/ quasiblock"); -#line 2626 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V62*/ meltfptr[60] = /*_.IF___V60*/ meltfptr[59];; /*^compute */ - /*_.IFCPP___V59*/ meltfptr[58] = /*_.PROGN___V62*/ meltfptr[60];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2626:/ clear"); -#line 2626 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[10] = 0; /*^clear */ -#line 2626 /*clear *//*_.IF___V60*/ meltfptr[59] = 0; /*^clear */ -#line 2626 /*clear *//*_.PROGN___V62*/ meltfptr[60] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2626 /*_.IFCPP___V59*/ meltfptr[58] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.LET___V37*/ meltfptr[36] = /*_.IFCPP___V59*/ meltfptr[58];; MELT_LOCATION ("warmelt-macro.melt:2606:/ clear"); -#line 2606 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PAIR_HEAD__V38*/ meltfptr[37] = 0; /*^clear */ -#line 2606 /*clear *//*_.MATINFORMALS__V39*/ meltfptr[38] = 0; /*^clear */ -#line 2606 /*clear *//*_#NBMATINFORMALS__L8*/ meltfnum[1] = 0; /*^clear */ -#line 2606 /*clear *//*_#I__L9*/ meltfnum[8] = 0; /*^clear */ -#line 2606 /*clear *//*_.IF___V40*/ meltfptr[39] = 0; /*^clear */ -#line 2606 /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; /*^clear */ -#line 2606 /*clear *//*_.IF___V43*/ meltfptr[40] = 0; /*^clear */ -#line 2606 /*clear *//*_.SETQ___V47*/ meltfptr[41] = 0; /*^clear */ -#line 2606 /*clear *//*_.MULTIPLE_NTH__V48*/ meltfptr[44] = 0; /*^clear */ -#line 2606 /*clear *//*_.SETQ___V49*/ meltfptr[45] = 0; /*^clear */ -#line 2606 /*clear *//*_.IFCPP___V50*/ meltfptr[49] = 0; /*^clear */ -#line 2606 /*clear *//*_#I__L13*/ meltfnum[11] = 0; /*^clear */ -#line 2606 /*clear *//*_.MAKE_MULTIPLE__V54*/ meltfptr[50] = 0; /*^clear */ -#line 2606 /*clear *//*_.SETQ___V55*/ meltfptr[51] = 0; /*^clear */ -#line 2606 /*clear *//*_.LAMBDA___V56*/ meltfptr[55] = 0; /*^clear */ -#line 2606 /*clear *//*_.MULTIPLE_EVERY__V58*/ meltfptr[57] = 0; /*^clear */ -#line 2606 /*clear *//*_.IFCPP___V59*/ meltfptr[58] = 0; /*_.PAIR_TAIL__V63*/ meltfptr[59] = -#line 2629 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2629:/ compute"); -#line 2629 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V64*/ meltfptr[60] = /*_.PAIR_TAIL__V63*/ meltfptr[59];; /*_.PAIR_HEAD__V65*/ meltfptr[37] = -#line 2630 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2630:/ checksignal"); -#line 2630 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2630 /*apply */ { /*_.LAMBDA_ARG_BINDINGS__V66*/ meltfptr[38] = @@ -9002,37 +7621,28 @@ lab_endgetargs:; } ; /*^compute */ -#line 2630 /*_.OUTFORMALS__V23*/ meltfptr[22] = /*_.SETQ___V67*/ meltfptr[39] = /*_.LAMBDA_ARG_BINDINGS__V66*/ meltfptr[38];; MELT_LOCATION ("warmelt-macro.melt:2631:/ checksignal"); -#line 2631 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L16*/ meltfnum[14] = -#line 2631 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.OUTFORMALS__V23*/ meltfptr[22])) == MELTOBMAG_MULTIPLE);; /*^compute */ - /*_#NOT__L17*/ meltfnum[10] = -#line 2631 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_MULTIPLE__L16*/ meltfnum[14]));; MELT_LOCATION ("warmelt-macro.melt:2631:/ cond"); -#line 2631 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L17*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 2631 /*^block */ -#line 2631 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2633:/ locexp"); -#line 2633 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad outs for (DEFUNMATCHER <symb> <ins> <outs>[:doc docum] <matchfun> <applyfun> [<data>])"), @@ -9040,14 +7650,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2634:/ quasiblock"); -#line 2634 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2634:/ locexp"); -#line 2634 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9058,58 +7666,45 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2634 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2632:/ quasiblock"); -#line 2632 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V70*/ meltfptr[44] = /*_.RETURN___V69*/ meltfptr[41];; /*^compute */ - /*_.IF___V68*/ meltfptr[40] = /*_.PROGN___V70*/ meltfptr[44];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2631:/ clear"); -#line 2631 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V69*/ meltfptr[41] = 0; /*^clear */ -#line 2631 /*clear *//*_.PROGN___V70*/ meltfptr[44] = 0; } ; } else { /*^cond.else */ -#line 2631 /*_.IF___V68*/ meltfptr[40] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2635:/ checksignal"); -#line 2635 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L18*/ meltfnum[1] = -#line 2635 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.OUTFORMALS__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; MELT_LOCATION ("warmelt-macro.melt:2635:/ cond"); -#line 2635 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L18*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2635 /*^block */ -#line 2635 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2638:/ cond"); -#line 2638 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 2638 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]), @@ -9117,9 +7712,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2638 /*^getslot */ -#line 2638 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]) /*=obj*/ ; @@ -9130,7 +7723,6 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2638 /*_.NAMED_NAME__V72*/ meltfptr[49] = NULL;; } @@ -9138,7 +7730,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2637:/ locexp"); -#line 2637 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("(DEFUNMATCHER <symb> <ins> <outs> ...) outputs cannot be variadic with last :rest formal"), (melt_ptr_t) ( /*_.NAMED_NAME__V72*/ @@ -9146,14 +7737,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2639:/ quasiblock"); -#line 2639 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2639:/ locexp"); -#line 2639 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9164,98 +7753,74 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2639 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2636:/ quasiblock"); -#line 2636 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V74*/ meltfptr[51] = /*_.RETURN___V73*/ meltfptr[50];; /*^compute */ - /*_.IF___V71*/ meltfptr[45] = /*_.PROGN___V74*/ meltfptr[51];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2635:/ clear"); -#line 2635 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V72*/ meltfptr[49] = 0; /*^clear */ -#line 2635 /*clear *//*_.RETURN___V73*/ meltfptr[50] = 0; /*^clear */ -#line 2635 /*clear *//*_.PROGN___V74*/ meltfptr[51] = 0; } ; } else { /*^cond.else */ -#line 2635 /*_.IF___V71*/ meltfptr[45] = NULL;; } ; /*^compute */ - /*_.PAIR_TAIL__V75*/ meltfptr[55] = -#line 2641 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2641:/ compute"); -#line 2641 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V76*/ meltfptr[57] = /*_.PAIR_TAIL__V75*/ meltfptr[55];; MELT_LOCATION ("warmelt-macro.melt:2643:/ checksignal"); -#line 2643 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V77*/ meltfptr[58] = -#line 2643 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; /*^compute */ - /*_#__L19*/ meltfnum[8] = -#line 2643 "warmelt-macro.melt" /**::expr::**/ (( /*_.PAIR_HEAD__V77*/ meltfptr[58]) == (( /*!konst_10_DOC */ meltfrout->tabval[10])));; MELT_LOCATION ("warmelt-macro.melt:2643:/ cond"); -#line 2643 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L19*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 2643 /*^block */ -#line 2643 /*anyblock */ { /*_.PAIR_TAIL__V79*/ meltfptr[44] = -#line 2645 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2645:/ compute"); -#line 2645 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V80*/ meltfptr[49] = /*_.PAIR_TAIL__V79*/ meltfptr[44];; MELT_LOCATION ("warmelt-macro.melt:2646:/ checksignal"); -#line 2646 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2646 /*cond */ if ( /*_.DOCV__V27*/ meltfptr[26]) /*then */ { /*^cond.then */ -#line 2646 /*^block */ -#line 2646 /*anyblock */ { { /*^locexp */ -#line 2646 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), @@ -9269,104 +7834,79 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_HEAD__V81*/ meltfptr[50] = -#line 2647 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2647:/ compute"); -#line 2647 "warmelt-macro.melt" /**::compute::**/ /*_.DOCV__V27*/ meltfptr[26] = /*_.SETQ___V82*/ meltfptr[51] = /*_.PAIR_HEAD__V81*/ meltfptr[50];; /*_.PAIR_TAIL__V83*/ meltfptr[82] = -#line 2648 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2648:/ compute"); -#line 2648 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V84*/ meltfptr[83] = /*_.PAIR_TAIL__V83*/ meltfptr[82];; MELT_LOCATION ("warmelt-macro.melt:2644:/ quasiblock"); -#line 2644 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V85*/ meltfptr[84] = /*_.SETQ___V84*/ meltfptr[83];; /*^compute */ - /*_.IF___V78*/ meltfptr[41] = /*_.PROGN___V85*/ meltfptr[84];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2643:/ clear"); -#line 2643 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PAIR_TAIL__V79*/ meltfptr[44] = 0; /*^clear */ -#line 2643 /*clear *//*_.SETQ___V80*/ meltfptr[49] = 0; /*^clear */ -#line 2643 /*clear *//*_.PAIR_HEAD__V81*/ meltfptr[50] = 0; /*^clear */ -#line 2643 /*clear *//*_.SETQ___V82*/ meltfptr[51] = 0; /*^clear */ -#line 2643 /*clear *//*_.PAIR_TAIL__V83*/ meltfptr[82] = 0; /*^clear */ -#line 2643 /*clear *//*_.SETQ___V84*/ meltfptr[83] = 0; /*^clear */ -#line 2643 /*clear *//*_.PROGN___V85*/ meltfptr[84] = 0; } ; } else { /*^cond.else */ -#line 2643 /*_.IF___V78*/ meltfptr[41] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2651:/ quasiblock"); -#line 2651 "warmelt-macro.melt" /**::quasiblock::**/ /*_.MFA__V87*/ meltfptr[49] = -#line 2651 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2652:/ checksignal"); -#line 2652 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2652 /*cond */ if ( /*_.MFA__V87*/ meltfptr[49]) /*then */ { /*^cond.then */ -#line 2652 /*^block */ -#line 2652 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2653:/ checksignal"); -#line 2653 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2653 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2653 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 2653 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 2653 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V89*/ meltfptr[51] = @@ -9378,27 +7918,22 @@ lab_endgetargs:; } ; /*^compute */ -#line 2653 /*_.MATCHFUNX__V24*/ meltfptr[23] = /*_.SETQ___V90*/ meltfptr[82] = /*_.MEXPANDER__V89*/ meltfptr[51];; /*_.IFELSE___V88*/ meltfptr[50] = /*_.SETQ___V90*/ meltfptr[82];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2652:/ clear"); -#line 2652 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V89*/ meltfptr[51] = 0; /*^clear */ -#line 2652 /*clear *//*_.SETQ___V90*/ meltfptr[82] = 0; } ; } else { /*^cond.else */ -#line 2652 /*^block */ -#line 2652 /*anyblock */ { @@ -9407,7 +7942,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2654:/ locexp"); -#line 2654 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad matchfun for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun> [<data>])"), @@ -9421,29 +7955,22 @@ lab_endgetargs:; } ; /*^compute */ - /*_.LET___V86*/ meltfptr[44] = /*_.IFELSE___V88*/ meltfptr[50];; MELT_LOCATION ("warmelt-macro.melt:2651:/ clear"); -#line 2651 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MFA__V87*/ meltfptr[49] = 0; /*^clear */ -#line 2651 /*clear *//*_.IFELSE___V88*/ meltfptr[50] = 0; -#line 2656 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2656:/ cppif.then"); -#line 2656 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2656 /*anyblock */ { { /*^locexp */ -#line 2656 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -9452,11 +7979,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2656 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L20*/ meltfnum[9] = -#line 2656 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -9465,18 +7990,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2656:/ cond"); -#line 2656 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 2656 /*^block */ -#line 2656 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[11] = -#line 2656 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -9484,30 +8005,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2656:/ checksignal"); -#line 2656 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2656 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2656 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[11]; /*^apply.arg */ -#line 2656 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2656 argtab[2].meltbp_long = 2656; /*^apply.arg */ -#line 2656 argtab[3].meltbp_cstring = "mexpand_defunmatcher matchfunx"; /*^apply.arg */ -#line 2656 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MATCHFUNX__V24*/ meltfptr[23]; /*_.MELT_DEBUG_FUN__V93*/ meltfptr[51] = @@ -9525,99 +8039,76 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2656:/ clear"); -#line 2656 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[11] = 0; /*^clear */ -#line 2656 /*clear *//*_.MELT_DEBUG_FUN__V93*/ meltfptr[51] = 0; } ; } else { /*^cond.else */ -#line 2656 /*_.IF___V92*/ meltfptr[84] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2656:/ quasiblock"); -#line 2656 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V94*/ meltfptr[82] = /*_.IF___V92*/ meltfptr[84];; /*^compute */ - /*_.IFCPP___V91*/ meltfptr[83] = /*_.PROGN___V94*/ meltfptr[82];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2656:/ clear"); -#line 2656 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[9] = 0; /*^clear */ -#line 2656 /*clear *//*_.IF___V92*/ meltfptr[84] = 0; /*^clear */ -#line 2656 /*clear *//*_.PROGN___V94*/ meltfptr[82] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2656 /*_.IFCPP___V91*/ meltfptr[83] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V95*/ meltfptr[49] = -#line 2658 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2658:/ compute"); -#line 2658 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V96*/ meltfptr[50] = /*_.PAIR_TAIL__V95*/ meltfptr[49];; MELT_LOCATION ("warmelt-macro.melt:2659:/ quasiblock"); -#line 2659 "warmelt-macro.melt" /**::quasiblock::**/ /*_.AFA__V98*/ meltfptr[84] = -#line 2659 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2660:/ checksignal"); -#line 2660 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2660 /*cond */ if ( /*_.AFA__V98*/ meltfptr[84]) /*then */ { /*^cond.then */ -#line 2660 /*^block */ -#line 2660 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2661:/ checksignal"); -#line 2661 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2661 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2661 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 2661 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 2661 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V100*/ meltfptr[99] = @@ -9629,7 +8120,6 @@ lab_endgetargs:; } ; /*^compute */ -#line 2661 /*_.APPLYFUNX__V25*/ meltfptr[24] = /*_.SETQ___V101*/ meltfptr[100] = /*_.MEXPANDER__V100*/ meltfptr[99];; @@ -9637,45 +8127,35 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2660:/ clear"); -#line 2660 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V100*/ meltfptr[99] = 0; /*^clear */ -#line 2660 /*clear *//*_.SETQ___V101*/ meltfptr[100] = 0; } ; } else { /*^cond.else */ -#line 2660 /*_.IF___V99*/ meltfptr[82] = NULL;; } ; /*^compute */ - /*_.LET___V97*/ meltfptr[51] = /*_.IF___V99*/ meltfptr[82];; MELT_LOCATION ("warmelt-macro.melt:2659:/ clear"); -#line 2659 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.AFA__V98*/ meltfptr[84] = 0; /*^clear */ -#line 2659 /*clear *//*_.IF___V99*/ meltfptr[82] = 0; -#line 2665 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2665:/ cppif.then"); -#line 2665 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2665 /*anyblock */ { { /*^locexp */ -#line 2665 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -9684,11 +8164,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2665 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L22*/ meltfnum[11] = -#line 2665 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -9697,18 +8175,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2665:/ cond"); -#line 2665 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2665 /*^block */ -#line 2665 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[9] = -#line 2665 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -9716,30 +8190,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2665:/ checksignal"); -#line 2665 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2665 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2665 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[9]; /*^apply.arg */ -#line 2665 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2665 argtab[2].meltbp_long = 2665; /*^apply.arg */ -#line 2665 argtab[3].meltbp_cstring = "mexpand_defunmatcher applyfunx"; /*^apply.arg */ -#line 2665 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.APPLYFUNX__V25*/ meltfptr[24]; /*_.MELT_DEBUG_FUN__V104*/ meltfptr[84] = @@ -9757,99 +8224,76 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2665:/ clear"); -#line 2665 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[9] = 0; /*^clear */ -#line 2665 /*clear *//*_.MELT_DEBUG_FUN__V104*/ meltfptr[84] = 0; } ; } else { /*^cond.else */ -#line 2665 /*_.IF___V103*/ meltfptr[100] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2665:/ quasiblock"); -#line 2665 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V105*/ meltfptr[82] = /*_.IF___V103*/ meltfptr[100];; /*^compute */ - /*_.IFCPP___V102*/ meltfptr[99] = /*_.PROGN___V105*/ meltfptr[82];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2665:/ clear"); -#line 2665 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[11] = 0; /*^clear */ -#line 2665 /*clear *//*_.IF___V103*/ meltfptr[100] = 0; /*^clear */ -#line 2665 /*clear *//*_.PROGN___V105*/ meltfptr[82] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2665 /*_.IFCPP___V102*/ meltfptr[99] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V106*/ meltfptr[84] = -#line 2667 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2667:/ compute"); -#line 2667 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V107*/ meltfptr[100] = /*_.PAIR_TAIL__V106*/ meltfptr[84];; MELT_LOCATION ("warmelt-macro.melt:2668:/ quasiblock"); -#line 2668 "warmelt-macro.melt" /**::quasiblock::**/ /*_.DTA__V109*/ meltfptr[108] = -#line 2668 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2669:/ checksignal"); -#line 2669 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2669 /*cond */ if ( /*_.DTA__V109*/ meltfptr[108]) /*then */ { /*^cond.then */ -#line 2669 /*^block */ -#line 2669 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2670:/ checksignal"); -#line 2670 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2670 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2670 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 2670 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 2670 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V111*/ meltfptr[110] = @@ -9861,52 +8305,41 @@ lab_endgetargs:; } ; /*^compute */ -#line 2670 /*_.DATAX__V26*/ meltfptr[25] = /*_.SETQ___V112*/ meltfptr[111] = /*_.MEXPANDER__V111*/ meltfptr[110];; /*_.IF___V110*/ meltfptr[109] = /*_.SETQ___V112*/ meltfptr[111];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2669:/ clear"); -#line 2669 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V111*/ meltfptr[110] = 0; /*^clear */ -#line 2669 /*clear *//*_.SETQ___V112*/ meltfptr[111] = 0; } ; } else { /*^cond.else */ -#line 2669 /*_.IF___V110*/ meltfptr[109] = NULL;; } ; /*^compute */ - /*_.LET___V108*/ meltfptr[82] = /*_.IF___V110*/ meltfptr[109];; MELT_LOCATION ("warmelt-macro.melt:2668:/ clear"); -#line 2668 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.DTA__V109*/ meltfptr[108] = 0; /*^clear */ -#line 2668 /*clear *//*_.IF___V110*/ meltfptr[109] = 0; -#line 2673 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2673:/ cppif.then"); -#line 2673 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2673 /*anyblock */ { { /*^locexp */ -#line 2673 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -9915,11 +8348,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2673 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L24*/ meltfnum[9] = -#line 2673 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -9928,18 +8359,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2673:/ cond"); -#line 2673 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 2673 /*^block */ -#line 2673 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[11] = -#line 2673 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -9947,30 +8374,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2673:/ checksignal"); -#line 2673 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2673 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2673 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[11]; /*^apply.arg */ -#line 2673 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2673 argtab[2].meltbp_long = 2673; /*^apply.arg */ -#line 2673 argtab[3].meltbp_cstring = "mexpand_defunmatcher datax"; /*^apply.arg */ -#line 2673 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.DATAX__V26*/ meltfptr[25]; /*_.MELT_DEBUG_FUN__V115*/ meltfptr[108] = @@ -9988,76 +8408,59 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2673:/ clear"); -#line 2673 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[11] = 0; /*^clear */ -#line 2673 /*clear *//*_.MELT_DEBUG_FUN__V115*/ meltfptr[108] = 0; } ; } else { /*^cond.else */ -#line 2673 /*_.IF___V114*/ meltfptr[111] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2673:/ quasiblock"); -#line 2673 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V116*/ meltfptr[109] = /*_.IF___V114*/ meltfptr[111];; /*^compute */ - /*_.IFCPP___V113*/ meltfptr[110] = /*_.PROGN___V116*/ meltfptr[109];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2673:/ clear"); -#line 2673 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[9] = 0; /*^clear */ -#line 2673 /*clear *//*_.IF___V114*/ meltfptr[111] = 0; /*^clear */ -#line 2673 /*clear *//*_.PROGN___V116*/ meltfptr[109] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2673 /*_.IFCPP___V113*/ meltfptr[110] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V117*/ meltfptr[108] = -#line 2675 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:2675:/ compute"); -#line 2675 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V118*/ meltfptr[111] = /*_.PAIR_TAIL__V117*/ meltfptr[108];; MELT_LOCATION ("warmelt-macro.melt:2676:/ checksignal"); -#line 2676 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2676 /*cond */ if ( /*_.CURPAIR__V18*/ meltfptr[17]) /*then */ { /*^cond.then */ -#line 2676 /*^block */ -#line 2676 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2677:/ locexp"); -#line 2677 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("extra for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> [<applyfun> [<data>]])"), @@ -10070,19 +8473,15 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:2678:/ quasiblock"); -#line 2678 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:2682:/ checksignal"); -#line 2682 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2682 /*^rawallocobj */ -#line 2682 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -10095,7 +8494,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2682 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -10105,7 +8503,6 @@ lab_endgetargs:; ( /*_.LOC__V16*/ meltfptr[15]), "LOCA_LOCATION"); ; /*^putslot */ -#line 2682 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_NAME", melt_magic_discr ((melt_ptr_t) @@ -10115,7 +8512,6 @@ lab_endgetargs:; ( /*_.SYMB__V19*/ meltfptr[18]), "SDEF_NAME"); ; /*^putslot */ -#line 2682 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_DOC", melt_magic_discr ((melt_ptr_t) @@ -10125,7 +8521,6 @@ lab_endgetargs:; ( /*_.DOCV__V27*/ meltfptr[26]), "SDEF_DOC"); ; /*^putslot */ -#line 2682 /*putslot */ melt_assertmsg ("putslot checkobj @SFORMAL_ARGS", melt_magic_discr ((melt_ptr_t) @@ -10136,7 +8531,6 @@ lab_endgetargs:; "SFORMAL_ARGS"); ; /*^putslot */ -#line 2682 /*putslot */ melt_assertmsg ("putslot checkobj @SFUMATDEF_INS", melt_magic_discr ((melt_ptr_t) @@ -10147,7 +8541,6 @@ lab_endgetargs:; "SFUMATDEF_INS"); ; /*^putslot */ -#line 2682 /*putslot */ melt_assertmsg ("putslot checkobj @SFUMATDEF_OUTS", melt_magic_discr ((melt_ptr_t) @@ -10158,7 +8551,6 @@ lab_endgetargs:; "SFUMATDEF_OUTS"); ; /*^putslot */ -#line 2682 /*putslot */ melt_assertmsg ("putslot checkobj @SFUMATDEF_MATCHF", melt_magic_discr ((melt_ptr_t) @@ -10169,7 +8561,6 @@ lab_endgetargs:; "SFUMATDEF_MATCHF"); ; /*^putslot */ -#line 2682 /*putslot */ melt_assertmsg ("putslot checkobj @SFUMATDEF_APPLYF", melt_magic_discr ((melt_ptr_t) @@ -10180,7 +8571,6 @@ lab_endgetargs:; "SFUMATDEF_APPLYF"); ; /*^putslot */ -#line 2682 /*putslot */ melt_assertmsg ("putslot checkobj @SFUMATDEF_DATA", melt_magic_discr ((melt_ptr_t) @@ -10191,11 +8581,9 @@ lab_endgetargs:; ; /*_.SDFUM__V120*/ meltfptr[119] = /*_.INST__V121*/ meltfptr[120];; MELT_LOCATION ("warmelt-macro.melt:2693:/ checksignal"); -#line 2693 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:2694:/ getslot"); -#line 2694 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]) /*=obj*/ ; @@ -10204,11 +8592,9 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:2693:/ quasiblock"); -#line 2693 "warmelt-macro.melt" /**::quasiblock::**/ /*^rawallocobj */ -#line 2693 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -10221,7 +8607,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2693 /*putslot */ melt_assertmsg ("putslot checkobj @NAMED_NAME", melt_magic_discr ((melt_ptr_t) @@ -10232,7 +8617,6 @@ lab_endgetargs:; "NAMED_NAME"); ; /*^putslot */ -#line 2693 /*putslot */ melt_assertmsg ("putslot checkobj @AMATCH_IN", melt_magic_discr ((melt_ptr_t) @@ -10242,7 +8626,6 @@ lab_endgetargs:; ( /*_.INFORMALS__V22*/ meltfptr[21]), "AMATCH_IN"); ; /*^putslot */ -#line 2693 /*putslot */ melt_assertmsg ("putslot checkobj @AMATCH_MATCHBIND", melt_magic_discr ((melt_ptr_t) @@ -10253,7 +8636,6 @@ lab_endgetargs:; "AMATCH_MATCHBIND"); ; /*^putslot */ -#line 2693 /*putslot */ melt_assertmsg ("putslot checkobj @AMATCH_OUT", melt_magic_discr ((melt_ptr_t) @@ -10264,7 +8646,6 @@ lab_endgetargs:; "AMATCH_OUT"); ; /*^putslot */ -#line 2693 /*putslot */ melt_assertmsg ("putslot checkobj @FMATCH_MATCHF", melt_magic_discr ((melt_ptr_t) @@ -10274,7 +8655,6 @@ lab_endgetargs:; (( /*nil */ NULL)), "FMATCH_MATCHF"); ; /*^putslot */ -#line 2693 /*putslot */ melt_assertmsg ("putslot checkobj @FMATCH_APPLYF", melt_magic_discr ((melt_ptr_t) @@ -10284,7 +8664,6 @@ lab_endgetargs:; (( /*nil */ NULL)), "FMATCH_APPLYF"); ; /*^putslot */ -#line 2693 /*putslot */ melt_assertmsg ("putslot checkobj @FMATCH_DATA", melt_magic_discr ((melt_ptr_t) @@ -10295,15 +8674,12 @@ lab_endgetargs:; ; /*_.FUMA__V123*/ meltfptr[122] = /*_.INST__V124*/ meltfptr[123];; MELT_LOCATION ("warmelt-macro.melt:2703:/ checksignal"); -#line 2703 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2703 /*^rawallocobj */ -#line 2703 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -10316,7 +8692,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2703 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -10326,7 +8701,6 @@ lab_endgetargs:; ( /*_.SYMB__V19*/ meltfptr[18]), "BINDER"); ; /*^putslot */ -#line 2703 /*putslot */ melt_assertmsg ("putslot checkobj @FMBIND_FUNMATCHER", melt_magic_discr ((melt_ptr_t) @@ -10337,7 +8711,6 @@ lab_endgetargs:; "FMBIND_FUNMATCHER"); ; /*^putslot */ -#line 2703 /*putslot */ melt_assertmsg ("putslot checkobj @FMBIND_DEFUNMATCHER", melt_magic_discr ((melt_ptr_t) @@ -10349,17 +8722,14 @@ lab_endgetargs:; ; /*_.FMBIND__V125*/ meltfptr[124] = /*_.INST__V126*/ meltfptr[125];; MELT_LOCATION ("warmelt-macro.melt:2709:/ checksignal"); -#line 2709 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2709 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2709 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.FMBIND__V125*/ meltfptr[124]; /*_.PUT_ENV__V127*/ meltfptr[126] = @@ -10371,19 +8741,15 @@ lab_endgetargs:; } ; -#line 2710 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2710:/ cppif.then"); -#line 2710 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2710 /*anyblock */ { { /*^locexp */ -#line 2710 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -10392,11 +8758,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2710 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L26*/ meltfnum[11] = -#line 2710 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -10405,18 +8769,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2710:/ cond"); -#line 2710 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2710 /*^block */ -#line 2710 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[9] = -#line 2710 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -10424,30 +8784,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2710:/ checksignal"); -#line 2710 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2710 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2710 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[9]; /*^apply.arg */ -#line 2710 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2710 argtab[2].meltbp_long = 2710; /*^apply.arg */ -#line 2710 argtab[3].meltbp_cstring = "mexpand_defunmatcher made fuma"; /*^apply.arg */ -#line 2710 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FUMA__V123*/ meltfptr[122]; /*_.MELT_DEBUG_FUN__V130*/ meltfptr[129] = @@ -10465,62 +8818,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2710:/ clear"); -#line 2710 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[9] = 0; /*^clear */ -#line 2710 /*clear *//*_.MELT_DEBUG_FUN__V130*/ meltfptr[129] = 0; } ; } else { /*^cond.else */ -#line 2710 /*_.IF___V129*/ meltfptr[128] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2710:/ quasiblock"); -#line 2710 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V131*/ meltfptr[129] = /*_.IF___V129*/ meltfptr[128];; /*^compute */ - /*_.IFCPP___V128*/ meltfptr[127] = /*_.PROGN___V131*/ meltfptr[129];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2710:/ clear"); -#line 2710 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[11] = 0; /*^clear */ -#line 2710 /*clear *//*_.IF___V129*/ meltfptr[128] = 0; /*^clear */ -#line 2710 /*clear *//*_.PROGN___V131*/ meltfptr[129] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2710 /*_.IFCPP___V128*/ meltfptr[127] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2711 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2711:/ cppif.then"); -#line 2711 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2711 /*anyblock */ { { /*^locexp */ -#line 2711 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -10529,11 +8869,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2711 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L28*/ meltfnum[9] = -#line 2711 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -10542,18 +8880,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2711:/ cond"); -#line 2711 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L28*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 2711 /*^block */ -#line 2711 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[11] = -#line 2711 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -10561,30 +8895,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2711:/ checksignal"); -#line 2711 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2711 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2711 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[11]; /*^apply.arg */ -#line 2711 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2711 argtab[2].meltbp_long = 2711; /*^apply.arg */ -#line 2711 argtab[3].meltbp_cstring = "mexpand_defunmatcher fmbind"; /*^apply.arg */ -#line 2711 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FMBIND__V125*/ meltfptr[124]; /*_.MELT_DEBUG_FUN__V134*/ meltfptr[133] = @@ -10602,62 +8929,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2711:/ clear"); -#line 2711 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L29*/ meltfnum[11] = 0; /*^clear */ -#line 2711 /*clear *//*_.MELT_DEBUG_FUN__V134*/ meltfptr[133] = 0; } ; } else { /*^cond.else */ -#line 2711 /*_.IF___V133*/ meltfptr[129] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2711:/ quasiblock"); -#line 2711 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V135*/ meltfptr[133] = /*_.IF___V133*/ meltfptr[129];; /*^compute */ - /*_.IFCPP___V132*/ meltfptr[128] = /*_.PROGN___V135*/ meltfptr[133];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2711:/ clear"); -#line 2711 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L28*/ meltfnum[9] = 0; /*^clear */ -#line 2711 /*clear *//*_.IF___V133*/ meltfptr[129] = 0; /*^clear */ -#line 2711 /*clear *//*_.PROGN___V135*/ meltfptr[133] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2711 /*_.IFCPP___V132*/ meltfptr[128] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2712 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2712:/ cppif.then"); -#line 2712 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2712 /*anyblock */ { { /*^locexp */ -#line 2712 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -10666,11 +8980,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2712 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L30*/ meltfnum[11] = -#line 2712 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -10679,18 +8991,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2712:/ cond"); -#line 2712 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2712 /*^block */ -#line 2712 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[9] = -#line 2712 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -10698,30 +9006,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2712:/ checksignal"); -#line 2712 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2712 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2712 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[9]; /*^apply.arg */ -#line 2712 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2712 argtab[2].meltbp_long = 2712; /*^apply.arg */ -#line 2712 argtab[3].meltbp_cstring = "mexpand_defunmatcher return sdfum"; /*^apply.arg */ -#line 2712 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SDFUM__V120*/ meltfptr[119]; /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = @@ -10739,61 +9040,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2712:/ clear"); -#line 2712 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[9] = 0; /*^clear */ -#line 2712 /*clear *//*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = 0; } ; } else { /*^cond.else */ -#line 2712 /*_.IF___V137*/ meltfptr[133] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2712:/ quasiblock"); -#line 2712 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V139*/ meltfptr[137] = /*_.IF___V137*/ meltfptr[133];; /*^compute */ - /*_.IFCPP___V136*/ meltfptr[129] = /*_.PROGN___V139*/ meltfptr[137];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2712:/ clear"); -#line 2712 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[11] = 0; /*^clear */ -#line 2712 /*clear *//*_.IF___V137*/ meltfptr[133] = 0; /*^clear */ -#line 2712 /*clear *//*_.PROGN___V139*/ meltfptr[137] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2712 /*_.IFCPP___V136*/ meltfptr[129] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2713:/ checksignal"); -#line 2713 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2713 /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDFUM__V120*/ meltfptr[119];; { MELT_LOCATION ("warmelt-macro.melt:2713:/ locexp"); -#line 2713 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10804,194 +9093,134 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2713 ; /*finalret */ goto labend_rout; /*_.LET___V119*/ meltfptr[109] = /*_.RETURN___V140*/ meltfptr[133];; MELT_LOCATION ("warmelt-macro.melt:2678:/ clear"); -#line 2678 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SDFUM__V120*/ meltfptr[119] = 0; /*^clear */ -#line 2678 /*clear *//*_.NAMED_NAME__V122*/ meltfptr[121] = 0; /*^clear */ -#line 2678 /*clear *//*_.FUMA__V123*/ meltfptr[122] = 0; /*^clear */ -#line 2678 /*clear *//*_.FMBIND__V125*/ meltfptr[124] = 0; /*^clear */ -#line 2678 /*clear *//*_.PUT_ENV__V127*/ meltfptr[126] = 0; /*^clear */ -#line 2678 /*clear *//*_.IFCPP___V128*/ meltfptr[127] = 0; /*^clear */ -#line 2678 /*clear *//*_.IFCPP___V132*/ meltfptr[128] = 0; /*^clear */ -#line 2678 /*clear *//*_.IFCPP___V136*/ meltfptr[129] = 0; /*^clear */ -#line 2678 /*clear *//*_.RETURN___V140*/ meltfptr[133] = 0; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V119*/ meltfptr[109];; MELT_LOCATION ("warmelt-macro.melt:2582:/ clear"); -#line 2582 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ -#line 2582 /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; /*^clear */ -#line 2582 /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0; /*^clear */ -#line 2582 /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0; /*^clear */ -#line 2582 /*clear *//*_.SYMB__V19*/ meltfptr[18] = 0; /*^clear */ -#line 2582 /*clear *//*_.SFORMALS__V20*/ meltfptr[19] = 0; /*^clear */ -#line 2582 /*clear *//*_.MATCHFORMAL__V21*/ meltfptr[20] = 0; /*^clear */ -#line 2582 /*clear *//*_.INFORMALS__V22*/ meltfptr[21] = 0; /*^clear */ -#line 2582 /*clear *//*_.OUTFORMALS__V23*/ meltfptr[22] = 0; /*^clear */ -#line 2582 /*clear *//*_.MATCHFUNX__V24*/ meltfptr[23] = 0; /*^clear */ -#line 2582 /*clear *//*_.APPLYFUNX__V25*/ meltfptr[24] = 0; /*^clear */ -#line 2582 /*clear *//*_.DATAX__V26*/ meltfptr[25] = 0; /*^clear */ -#line 2582 /*clear *//*_.DOCV__V27*/ meltfptr[26] = 0; /*^clear */ -#line 2582 /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0; /*^clear */ -#line 2582 /*clear *//*_#IS_NOT_A__L7*/ meltfnum[0] = 0; /*^clear */ -#line 2582 /*clear *//*_.IF___V32*/ meltfptr[28] = 0; /*^clear */ -#line 2582 /*clear *//*_.PAIR_TAIL__V35*/ meltfptr[29] = 0; /*^clear */ -#line 2582 /*clear *//*_.SETQ___V36*/ meltfptr[33] = 0; /*^clear */ -#line 2582 /*clear *//*_.LET___V37*/ meltfptr[36] = 0; /*^clear */ -#line 2582 /*clear *//*_.PAIR_TAIL__V63*/ meltfptr[59] = 0; /*^clear */ -#line 2582 /*clear *//*_.SETQ___V64*/ meltfptr[60] = 0; /*^clear */ -#line 2582 /*clear *//*_.PAIR_HEAD__V65*/ meltfptr[37] = 0; /*^clear */ -#line 2582 /*clear *//*_.LAMBDA_ARG_BINDINGS__V66*/ meltfptr[38] = 0; /*^clear */ -#line 2582 /*clear *//*_.SETQ___V67*/ meltfptr[39] = 0; /*^clear */ -#line 2582 /*clear *//*_#IS_MULTIPLE__L16*/ meltfnum[14] = 0; /*^clear */ -#line 2582 /*clear *//*_#NOT__L17*/ meltfnum[10] = 0; /*^clear */ -#line 2582 /*clear *//*_.IF___V68*/ meltfptr[40] = 0; /*^clear */ -#line 2582 /*clear *//*_#IS_A__L18*/ meltfnum[1] = 0; /*^clear */ -#line 2582 /*clear *//*_.IF___V71*/ meltfptr[45] = 0; /*^clear */ -#line 2582 /*clear *//*_.PAIR_TAIL__V75*/ meltfptr[55] = 0; /*^clear */ -#line 2582 /*clear *//*_.SETQ___V76*/ meltfptr[57] = 0; /*^clear */ -#line 2582 /*clear *//*_.PAIR_HEAD__V77*/ meltfptr[58] = 0; /*^clear */ -#line 2582 /*clear *//*_#__L19*/ meltfnum[8] = 0; /*^clear */ -#line 2582 /*clear *//*_.IF___V78*/ meltfptr[41] = 0; /*^clear */ -#line 2582 /*clear *//*_.LET___V86*/ meltfptr[44] = 0; /*^clear */ -#line 2582 /*clear *//*_.IFCPP___V91*/ meltfptr[83] = 0; /*^clear */ -#line 2582 /*clear *//*_.PAIR_TAIL__V95*/ meltfptr[49] = 0; /*^clear */ -#line 2582 /*clear *//*_.SETQ___V96*/ meltfptr[50] = 0; /*^clear */ -#line 2582 /*clear *//*_.LET___V97*/ meltfptr[51] = 0; /*^clear */ -#line 2582 /*clear *//*_.IFCPP___V102*/ meltfptr[99] = 0; /*^clear */ -#line 2582 /*clear *//*_.PAIR_TAIL__V106*/ meltfptr[84] = 0; /*^clear */ -#line 2582 /*clear *//*_.SETQ___V107*/ meltfptr[100] = 0; /*^clear */ -#line 2582 /*clear *//*_.LET___V108*/ meltfptr[82] = 0; /*^clear */ -#line 2582 /*clear *//*_.IFCPP___V113*/ meltfptr[110] = 0; /*^clear */ -#line 2582 /*clear *//*_.PAIR_TAIL__V117*/ meltfptr[108] = 0; /*^clear */ -#line 2582 /*clear *//*_.SETQ___V118*/ meltfptr[111] = 0; /*^clear */ -#line 2582 /*clear *//*_.LET___V119*/ meltfptr[109] = 0; MELT_LOCATION ("warmelt-macro.melt:2578:/ checksignal"); -#line 2578 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2578 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { MELT_LOCATION ("warmelt-macro.melt:2578:/ locexp"); -#line 2578 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11002,22 +9231,17 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2578 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2578 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 2578 /*clear *//*_.IFCPP___V10*/ meltfptr[6] = 0; /*^clear */ -#line 2578 /*clear *//*_.IFCPP___V12*/ meltfptr[7] = 0; /*^clear */ -#line 2578 /*clear *//*_.LET___V14*/ meltfptr[12] = 0; } @@ -11036,7 +9260,6 @@ labend_rout: } /*end meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER */ -#line 2625 "warmelt-macro.melt" /**::proc::**/ @@ -11112,12 +9335,10 @@ meltrout_39_warmelt_macro_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:2625:/ getarg"); -#line 2625 "warmelt-macro.melt" /**::getarg::**/ /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2625 if (meltxargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; @@ -11126,35 +9347,27 @@ meltrout_39_warmelt_macro_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2625 /*anyblock*/ { /*^checksignal */ -#line 2625 MELT_CHECK_SIGNAL (); ; /*_#I__L2*/ meltfnum[1] = -#line 2625 "warmelt-macro.melt" /**::expr::**/ (( /*_#IX__L1*/ meltfnum[0]) > (0));; MELT_LOCATION ("warmelt-macro.melt:2625:/ cond"); -#line 2625 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#I__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2625 /*^block */ -#line 2625 /*anyblock */ { /*_#I__L3*/ meltfnum[2] = -#line 2625 "warmelt-macro.melt" /**::expr::**/ (( /*_#IX__L1*/ meltfnum[0]) - (1));; { MELT_LOCATION ("warmelt-macro.melt:2625:/ locexp"); -#line 2625 "warmelt-macro.melt" /**::locexp::**/ meltgc_multiple_put_nth ((melt_ptr_t) (( /*~INFORMALS */ meltfclos-> tabval[0])), @@ -11166,7 +9379,6 @@ lab_endgetargs:; /*epilog */ /*^clear */ -#line 2625 /*clear *//*_#I__L3*/ meltfnum[2] = 0; } ; @@ -11175,7 +9387,6 @@ lab_endgetargs:; /*epilog */ /*^clear */ -#line 2625 /*clear *//*_#I__L2*/ meltfnum[1] = 0; } @@ -11194,7 +9405,6 @@ labend_rout: } /*end meltrout_39_warmelt_macro_LAMBDA___8__ */ -#line 2724 "warmelt-macro.melt" /**::proc::**/ @@ -11270,12 +9480,10 @@ meltrout_40_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:2724:/ getarg"); -#line 2724 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2724 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -11285,7 +9493,6 @@ meltrout_40_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 2724 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -11296,7 +9503,6 @@ meltrout_40_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 2724 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -11309,44 +9515,34 @@ meltrout_40_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2724 /*anyblock*/ { -#line 2725 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2725:/ cppif.then"); -#line 2725 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2725 /*anyblock */ { /*^checksignal */ -#line 2725 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 2725 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:2725:/ cond"); -#line 2725 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2725 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2725:/ cond.else"); -#line 2725 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2725 /*anyblock */ { @@ -11355,7 +9551,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2725 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -11370,58 +9565,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2725:/ clear"); -#line 2725 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2725 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2725 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2726 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2726:/ cppif.then"); -#line 2726 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2726 /*anyblock */ { /*^checksignal */ -#line 2726 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 2726 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:2726:/ cond"); -#line 2726 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2726 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2726:/ cond.else"); -#line 2726 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2726 /*anyblock */ { @@ -11430,7 +9612,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2726 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -11445,57 +9626,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2726:/ clear"); -#line 2726 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 2726 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2726 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2727 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2727:/ cppif.then"); -#line 2727 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2727 /*anyblock */ { /*^checksignal */ -#line 2727 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L3*/ meltfnum[0] = -#line 2727 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:2727:/ cond"); -#line 2727 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2727 /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2727:/ cond.else"); -#line 2727 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2727 /*anyblock */ { @@ -11504,7 +9672,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2727 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -11519,38 +9686,30 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2727:/ clear"); -#line 2727 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ -#line 2727 /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2727 /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2728 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2728:/ cppif.then"); -#line 2728 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2728 /*anyblock */ { { /*^locexp */ -#line 2728 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -11559,11 +9718,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2728 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = -#line 2728 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -11572,18 +9729,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2728:/ cond"); -#line 2728 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2728 /*^block */ -#line 2728 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = -#line 2728 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -11591,29 +9744,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2728:/ checksignal"); -#line 2728 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2728 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2728 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4]; /*^apply.arg */ -#line 2728 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2728 argtab[2].meltbp_long = 2728; /*^apply.arg */ -#line 2728 argtab[3].meltbp_cstring = "mexp.defun sexpr"; /*^apply.arg */ -#line 2728 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = @@ -11631,54 +9777,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2728:/ clear"); -#line 2728 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ -#line 2728 /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; } ; } else { /*^cond.else */ -#line 2728 /*_.IF___V13*/ meltfptr[12] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2728:/ quasiblock"); -#line 2728 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V15*/ meltfptr[13] = /*_.IF___V13*/ meltfptr[12];; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2728:/ clear"); -#line 2728 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ -#line 2728 /*clear *//*_.IF___V13*/ meltfptr[12] = 0; /*^clear */ -#line 2728 /*clear *//*_.PROGN___V15*/ meltfptr[13] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2728 /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2729:/ quasiblock"); -#line 2729 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 2729 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -11687,7 +9822,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:2730:/ getslot"); -#line 2730 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -11696,24 +9830,17 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V19*/ meltfptr[18] = -#line 2731 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V17*/ meltfptr[13])));; /*^compute */ - /*_.CURPAIR__V20*/ meltfptr[19] = -#line 2731 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V19*/ meltfptr[18])));; /*^compute */ - /*_.SYMB__V21*/ meltfptr[20] = -#line 2732 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; MELT_LOCATION ("warmelt-macro.melt:2733:/ checksignal"); -#line 2733 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2733 /*apply */ { /*_.NEWENV__V22*/ meltfptr[21] = @@ -11725,15 +9852,12 @@ lab_endgetargs:; ; /*_.DOCV__V23*/ meltfptr[22] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:2736:/ checksignal"); -#line 2736 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2736 /*^rawallocobj */ -#line 2736 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -11746,7 +9870,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2736 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -11756,7 +9879,6 @@ lab_endgetargs:; ( /*_.SYMB__V21*/ meltfptr[20]), "BINDER"); ; /*^putslot */ -#line 2736 /*putslot */ melt_assertmsg ("putslot checkobj @FUBIND_DEFUN", melt_magic_discr ((melt_ptr_t) @@ -11767,29 +9889,23 @@ lab_endgetargs:; ; /*_.FBIND__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; MELT_LOCATION ("warmelt-macro.melt:2741:/ checksignal"); -#line 2741 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[4] = -#line 2741 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[5])));; MELT_LOCATION ("warmelt-macro.melt:2741:/ cond"); -#line 2741 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 2741 /*^block */ -#line 2741 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2742:/ locexp"); -#line 2742 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing symbol for DEFUN"), (melt_ptr_t) 0); @@ -11801,20 +9917,16 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:2743:/ checksignal"); -#line 2743 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2743 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2743 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 2743 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V18*/ meltfptr[17]; /*_.WARN_IF_REDEFINED__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t) @@ -11825,17 +9937,14 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2744:/ checksignal"); -#line 2744 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2744 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2744 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.FBIND__V24*/ meltfptr[23]; /*_.PUT_ENV__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) @@ -11846,100 +9955,77 @@ lab_endgetargs:; } ; /*_.PAIR_TAIL__V28*/ meltfptr[27] = -#line 2745 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; MELT_LOCATION ("warmelt-macro.melt:2745:/ compute"); -#line 2745 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; MELT_LOCATION ("warmelt-macro.melt:2747:/ quasiblock"); -#line 2747 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURPAIRHEAD__V31*/ meltfptr[30] = -#line 2747 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; MELT_LOCATION ("warmelt-macro.melt:2749:/ checksignal"); -#line 2749 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L7*/ meltfnum[0] = -#line 2749 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURPAIRHEAD__V31*/ meltfptr[30]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:2749:/ cond"); -#line 2749 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2749 /*^block */ -#line 2749 /*anyblock */ { /*_.MAKE_MULTIPLE__V33*/ meltfptr[32] = -#line 2750 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[8])), (0)));; /*^compute */ - /*_.BTUP__V32*/ meltfptr[31] = /*_.MAKE_MULTIPLE__V33*/ meltfptr[32];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2749:/ clear"); -#line 2749 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MAKE_MULTIPLE__V33*/ meltfptr[32] = 0; } ; } else { /*^cond.else */ -#line 2749 /*^block */ -#line 2749 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2751:/ checksignal"); -#line 2751 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = -#line 2751 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CURPAIRHEAD__V31*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:2751:/ cond"); -#line 2751 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 2751 /*^block */ -#line 2751 /*anyblock */ { /*_.PAIR_HEAD__V35*/ meltfptr[34] = -#line 2752 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; MELT_LOCATION ("warmelt-macro.melt:2752:/ checksignal"); -#line 2752 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2752 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2752 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.LAMBDA_ARG_BINDINGS__V36*/ meltfptr[35] = @@ -11957,37 +10043,29 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2751:/ clear"); -#line 2751 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PAIR_HEAD__V35*/ meltfptr[34] = 0; /*^clear */ -#line 2751 /*clear *//*_.LAMBDA_ARG_BINDINGS__V36*/ meltfptr[35] = 0; } ; } else { /*^cond.else */ -#line 2751 /*^block */ -#line 2751 /*anyblock */ { -#line 2754 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2754:/ cppif.then"); -#line 2754 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2754 /*anyblock */ { { /*^locexp */ -#line 2754 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -11996,11 +10074,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2754 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = -#line 2754 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -12009,18 +10085,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2754:/ cond"); -#line 2754 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 2754 /*^block */ -#line 2754 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = -#line 2754 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -12029,31 +10101,24 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:2754:/ checksignal"); -#line 2754 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2754 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2754 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; /*^apply.arg */ -#line 2754 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2754 argtab[2].meltbp_long = 2754; /*^apply.arg */ -#line 2754 argtab[3].meltbp_cstring = "mexpand_defun strange arglist curpairhead"; /*^apply.arg */ -#line 2754 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CURPAIRHEAD__V31*/ meltfptr[30]; @@ -12073,55 +10138,45 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2754:/ clear"); -#line 2754 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ -#line 2754 /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0; } ; } else { /*^cond.else */ -#line 2754 /*_.IF___V38*/ meltfptr[35] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2754:/ quasiblock"); -#line 2754 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[35];; /*^compute */ - /*_.IFCPP___V37*/ meltfptr[34] = /*_.PROGN___V40*/ meltfptr[38];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2754:/ clear"); -#line 2754 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ -#line 2754 /*clear *//*_.IF___V38*/ meltfptr[35] = 0; /*^clear */ -#line 2754 /*clear *//*_.PROGN___V40*/ meltfptr[38] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2754 /*_.IFCPP___V37*/ meltfptr[34] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-macro.melt:2755:/ locexp"); -#line 2755 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -12130,21 +10185,17 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2753:/ quasiblock"); -#line 2753 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V41*/ meltfptr[35] = ( /*nil */ NULL);; /*^compute */ - /*_.IFELSE___V34*/ meltfptr[32] = /*_.PROGN___V41*/ meltfptr[35];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2751:/ clear"); -#line 2751 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V37*/ meltfptr[34] = 0; /*^clear */ -#line 2751 /*clear *//*_.PROGN___V41*/ meltfptr[35] = 0; } ; @@ -12154,53 +10205,40 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2749:/ clear"); -#line 2749 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ -#line 2749 /*clear *//*_.IFELSE___V34*/ meltfptr[32] = 0; } ; } ; MELT_LOCATION ("warmelt-macro.melt:2759:/ checksignal"); -#line 2759 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L11*/ meltfnum[9] = -#line 2759 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.BTUP__V32*/ meltfptr[31])) == MELTOBMAG_MULTIPLE);; /*^compute */ - /*_#NOT__L12*/ meltfnum[8] = -#line 2759 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_MULTIPLE__L11*/ meltfnum[9]));; MELT_LOCATION ("warmelt-macro.melt:2759:/ cond"); -#line 2759 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 2759 /*^block */ -#line 2759 /*anyblock */ { -#line 2761 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2761:/ cppif.then"); -#line 2761 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2761 /*anyblock */ { { /*^locexp */ -#line 2761 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -12209,11 +10247,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2761 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L13*/ meltfnum[7] = -#line 2761 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -12222,18 +10258,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2761:/ cond"); -#line 2761 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 2761 /*^block */ -#line 2761 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = -#line 2761 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -12241,30 +10273,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2761:/ checksignal"); -#line 2761 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2761 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2761 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13]; /*^apply.arg */ -#line 2761 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2761 argtab[2].meltbp_long = 2761; /*^apply.arg */ -#line 2761 argtab[3].meltbp_cstring = "mexpand_defun strange btup"; /*^apply.arg */ -#line 2761 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.BTUP__V32*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V44*/ meltfptr[35] = @@ -12283,52 +10308,42 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2761:/ clear"); -#line 2761 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ -#line 2761 /*clear *//*_.MELT_DEBUG_FUN__V44*/ meltfptr[35] = 0; } ; } else { /*^cond.else */ -#line 2761 /*_.IF___V43*/ meltfptr[34] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2761:/ quasiblock"); -#line 2761 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V45*/ meltfptr[32] = /*_.IF___V43*/ meltfptr[34];; /*^compute */ - /*_.IFCPP___V42*/ meltfptr[38] = /*_.PROGN___V45*/ meltfptr[32];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2761:/ clear"); -#line 2761 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[7] = 0; /*^clear */ -#line 2761 /*clear *//*_.IF___V43*/ meltfptr[34] = 0; /*^clear */ -#line 2761 /*clear *//*_.PROGN___V45*/ meltfptr[32] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2761 /*_.IFCPP___V42*/ meltfptr[38] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-macro.melt:2762:/ locexp"); -#line 2762 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing formal arguments for DEFUN"), @@ -12336,24 +10351,20 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2760:/ quasiblock"); -#line 2760 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2759:/ clear"); -#line 2759 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V42*/ meltfptr[38] = 0; } ; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:2763:/ quasiblock"); -#line 2763 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 2763 /*newclosure *//*_.LAMBDA___V47*/ meltfptr[34] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -12362,7 +10373,6 @@ lab_endgetargs:; tabval[12])), (1)); ; /*^putclosedv */ -#line 2763 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -12377,17 +10387,14 @@ lab_endgetargs:; ; /*_.LAMBDA___V46*/ meltfptr[35] = /*_.LAMBDA___V47*/ meltfptr[34];; MELT_LOCATION ("warmelt-macro.melt:2763:/ checksignal"); -#line 2763 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2763 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2763 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V46*/ meltfptr[35]; /*_.MULTIPLE_EVERY__V48*/ meltfptr[32] = @@ -12399,124 +10406,93 @@ lab_endgetargs:; } ; /*_.PAIR_TAIL__V49*/ meltfptr[38] = -#line 2764 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; MELT_LOCATION ("warmelt-macro.melt:2764:/ compute"); -#line 2764 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V50*/ meltfptr[49] = /*_.PAIR_TAIL__V49*/ meltfptr[38];; MELT_LOCATION ("warmelt-macro.melt:2766:/ checksignal"); -#line 2766 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V51*/ meltfptr[50] = -#line 2766 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; /*^compute */ - /*_#__L15*/ meltfnum[13] = -#line 2766 "warmelt-macro.melt" /**::expr::**/ (( /*_.PAIR_HEAD__V51*/ meltfptr[50]) == (( /*!konst_13_DOC */ meltfrout->tabval[13])));; MELT_LOCATION ("warmelt-macro.melt:2766:/ cond"); -#line 2766 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 2766 /*^block */ -#line 2766 /*anyblock */ { /*_.PAIR_TAIL__V53*/ meltfptr[52] = -#line 2768 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; MELT_LOCATION ("warmelt-macro.melt:2768:/ compute"); -#line 2768 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V54*/ meltfptr[53] = /*_.PAIR_TAIL__V53*/ meltfptr[52];; /*_.PAIR_HEAD__V55*/ meltfptr[54] = -#line 2770 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; MELT_LOCATION ("warmelt-macro.melt:2770:/ compute"); -#line 2770 "warmelt-macro.melt" /**::compute::**/ /*_.DOCV__V23*/ meltfptr[22] = /*_.SETQ___V56*/ meltfptr[55] = /*_.PAIR_HEAD__V55*/ meltfptr[54];; /*_.PAIR_TAIL__V57*/ meltfptr[56] = -#line 2771 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; MELT_LOCATION ("warmelt-macro.melt:2771:/ compute"); -#line 2771 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V58*/ meltfptr[57] = /*_.PAIR_TAIL__V57*/ meltfptr[56];; MELT_LOCATION ("warmelt-macro.melt:2767:/ quasiblock"); -#line 2767 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V59*/ meltfptr[58] = /*_.SETQ___V58*/ meltfptr[57];; /*^compute */ - /*_.IF___V52*/ meltfptr[51] = /*_.PROGN___V59*/ meltfptr[58];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2766:/ clear"); -#line 2766 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PAIR_TAIL__V53*/ meltfptr[52] = 0; /*^clear */ -#line 2766 /*clear *//*_.SETQ___V54*/ meltfptr[53] = 0; /*^clear */ -#line 2766 /*clear *//*_.PAIR_HEAD__V55*/ meltfptr[54] = 0; /*^clear */ -#line 2766 /*clear *//*_.SETQ___V56*/ meltfptr[55] = 0; /*^clear */ -#line 2766 /*clear *//*_.PAIR_TAIL__V57*/ meltfptr[56] = 0; /*^clear */ -#line 2766 /*clear *//*_.SETQ___V58*/ meltfptr[57] = 0; /*^clear */ -#line 2766 /*clear *//*_.PROGN___V59*/ meltfptr[58] = 0; } ; } else { /*^cond.else */ -#line 2766 /*_.IF___V52*/ meltfptr[51] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2774:/ quasiblock"); -#line 2774 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 2774 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2774 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2774 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NEWENV__V22*/ meltfptr[21]; /*^apply.arg */ -#line 2774 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 2774 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.BODYTUP__V61*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t) @@ -12527,15 +10503,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2776:/ checksignal"); -#line 2776 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2776 /*^rawallocobj */ -#line 2776 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -12548,7 +10521,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2776 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -12558,7 +10530,6 @@ lab_endgetargs:; ( /*_.LOC__V18*/ meltfptr[17]), "LOCA_LOCATION"); ; /*^putslot */ -#line 2776 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_NAME", melt_magic_discr ((melt_ptr_t) @@ -12568,7 +10539,6 @@ lab_endgetargs:; ( /*_.SYMB__V21*/ meltfptr[20]), "SDEF_NAME"); ; /*^putslot */ -#line 2776 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_DOC", melt_magic_discr ((melt_ptr_t) @@ -12578,7 +10548,6 @@ lab_endgetargs:; ( /*_.DOCV__V23*/ meltfptr[22]), "SDEF_DOC"); ; /*^putslot */ -#line 2776 /*putslot */ melt_assertmsg ("putslot checkobj @SFORMAL_ARGS", melt_magic_discr ((melt_ptr_t) @@ -12588,7 +10557,6 @@ lab_endgetargs:; ( /*_.BTUP__V32*/ meltfptr[31]), "SFORMAL_ARGS"); ; /*^putslot */ -#line 2776 /*putslot */ melt_assertmsg ("putslot checkobj @SFUN_BODY", melt_magic_discr ((melt_ptr_t) @@ -12599,13 +10567,10 @@ lab_endgetargs:; ; /*_.SDEFUN__V62*/ meltfptr[54] = /*_.INST__V63*/ meltfptr[55];; MELT_LOCATION ("warmelt-macro.melt:2784:/ checksignal"); -#line 2784 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2784 /*cond */ if ( -#line 2784 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.FBIND__V24*/ meltfptr[23]), @@ -12613,14 +10578,11 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2784 /*^block */ -#line 2784 /*anyblock */ { /*^putslot */ -#line 2784 /*putslot */ melt_assertmsg ("putslot checkobj @FUBIND_DEFUN", melt_magic_discr ((melt_ptr_t) @@ -12631,7 +10593,6 @@ lab_endgetargs:; "FUBIND_DEFUN"); ; /*^touch */ -#line 2784 meltgc_touch ( /*_.FBIND__V24*/ meltfptr[23]); ; /*epilog */ @@ -12640,35 +10601,28 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:2785:/ checksignal"); -#line 2785 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#MULTIPLE_LENGTH__L16*/ meltfnum[7] = -#line 2785 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_length ((melt_ptr_t) ( /*_.BODYTUP__V61*/ meltfptr[53])));; MELT_LOCATION ("warmelt-macro.melt:2785:/ cond"); -#line 2785 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MULTIPLE_LENGTH__L16*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 2785 /*_.IFELSE___V64*/ meltfptr[56] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2785:/ cond.else"); -#line 2785 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2785 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2786:/ locexp"); -#line 2786 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing or empty body for DEFUN"), @@ -12676,7 +10630,6 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2785:/ quasiblock"); -#line 2785 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ @@ -12685,18 +10638,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2787:/ checksignal"); -#line 2787 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2787 /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFUN__V62*/ meltfptr[54];; { MELT_LOCATION ("warmelt-macro.melt:2787:/ locexp"); -#line 2787 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12707,124 +10657,88 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2787 ; /*finalret */ goto labend_rout; /*_.LET___V60*/ meltfptr[52] = /*_.RETURN___V65*/ meltfptr[57];; MELT_LOCATION ("warmelt-macro.melt:2774:/ clear"); -#line 2774 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.BODYTUP__V61*/ meltfptr[53] = 0; /*^clear */ -#line 2774 /*clear *//*_.SDEFUN__V62*/ meltfptr[54] = 0; /*^clear */ -#line 2774 /*clear *//*_#MULTIPLE_LENGTH__L16*/ meltfnum[7] = 0; /*^clear */ -#line 2774 /*clear *//*_.IFELSE___V64*/ meltfptr[56] = 0; /*^clear */ -#line 2774 /*clear *//*_.RETURN___V65*/ meltfptr[57] = 0; /*_.LET___V30*/ meltfptr[29] = /*_.LET___V60*/ meltfptr[52];; MELT_LOCATION ("warmelt-macro.melt:2747:/ clear"); -#line 2747 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURPAIRHEAD__V31*/ meltfptr[30] = 0; /*^clear */ -#line 2747 /*clear *//*_#NULL__L7*/ meltfnum[0] = 0; /*^clear */ -#line 2747 /*clear *//*_.BTUP__V32*/ meltfptr[31] = 0; /*^clear */ -#line 2747 /*clear *//*_#IS_MULTIPLE__L11*/ meltfnum[9] = 0; /*^clear */ -#line 2747 /*clear *//*_#NOT__L12*/ meltfnum[8] = 0; /*^clear */ -#line 2747 /*clear *//*_.LAMBDA___V46*/ meltfptr[35] = 0; /*^clear */ -#line 2747 /*clear *//*_.MULTIPLE_EVERY__V48*/ meltfptr[32] = 0; /*^clear */ -#line 2747 /*clear *//*_.PAIR_TAIL__V49*/ meltfptr[38] = 0; /*^clear */ -#line 2747 /*clear *//*_.SETQ___V50*/ meltfptr[49] = 0; /*^clear */ -#line 2747 /*clear *//*_.PAIR_HEAD__V51*/ meltfptr[50] = 0; /*^clear */ -#line 2747 /*clear *//*_#__L15*/ meltfnum[13] = 0; /*^clear */ -#line 2747 /*clear *//*_.IF___V52*/ meltfptr[51] = 0; /*^clear */ -#line 2747 /*clear *//*_.LET___V60*/ meltfptr[52] = 0; /*_.LET___V16*/ meltfptr[12] = /*_.LET___V30*/ meltfptr[29];; MELT_LOCATION ("warmelt-macro.melt:2729:/ clear"); -#line 2729 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V17*/ meltfptr[13] = 0; /*^clear */ -#line 2729 /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; /*^clear */ -#line 2729 /*clear *//*_.LIST_FIRST__V19*/ meltfptr[18] = 0; /*^clear */ -#line 2729 /*clear *//*_.CURPAIR__V20*/ meltfptr[19] = 0; /*^clear */ -#line 2729 /*clear *//*_.SYMB__V21*/ meltfptr[20] = 0; /*^clear */ -#line 2729 /*clear *//*_.NEWENV__V22*/ meltfptr[21] = 0; /*^clear */ -#line 2729 /*clear *//*_.DOCV__V23*/ meltfptr[22] = 0; /*^clear */ -#line 2729 /*clear *//*_.FBIND__V24*/ meltfptr[23] = 0; /*^clear */ -#line 2729 /*clear *//*_#IS_NOT_A__L6*/ meltfnum[4] = 0; /*^clear */ -#line 2729 /*clear *//*_.WARN_IF_REDEFINED__V26*/ meltfptr[25] = 0; /*^clear */ -#line 2729 /*clear *//*_.PUT_ENV__V27*/ meltfptr[26] = 0; /*^clear */ -#line 2729 /*clear *//*_.PAIR_TAIL__V28*/ meltfptr[27] = 0; /*^clear */ -#line 2729 /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0; /*^clear */ -#line 2729 /*clear *//*_.LET___V30*/ meltfptr[29] = 0; MELT_LOCATION ("warmelt-macro.melt:2724:/ checksignal"); -#line 2724 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2724 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { MELT_LOCATION ("warmelt-macro.melt:2724:/ locexp"); -#line 2724 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12835,25 +10749,19 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2724 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2724 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 2724 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 2724 /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; /*^clear */ -#line 2724 /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0; /*^clear */ -#line 2724 /*clear *//*_.LET___V16*/ meltfptr[12] = 0; } @@ -12872,7 +10780,6 @@ labend_rout: } /*end meltrout_40_warmelt_macro_MEXPAND_DEFUN */ -#line 2763 "warmelt-macro.melt" /**::proc::**/ @@ -12948,29 +10855,24 @@ meltrout_41_warmelt_macro_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:2763:/ getarg"); -#line 2763 "warmelt-macro.melt" /**::getarg::**/ /*_.FB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 2763 /*anyblock*/ { /*^checksignal */ -#line 2763 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2763 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2763 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.FB__V2*/ meltfptr[1]; /*_.PUT_ENV__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t) @@ -12981,14 +10883,12 @@ lab_endgetargs:; } ; /*^quasiblock */ -#line 2763 /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { MELT_LOCATION ("warmelt-macro.melt:2763:/ locexp"); -#line 2763 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12999,13 +10899,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2763 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2763 /*clear *//*_.PUT_ENV__V3*/ meltfptr[2] = 0; } @@ -13024,7 +10922,6 @@ labend_rout: } /*end meltrout_41_warmelt_macro_LAMBDA___9__ */ -#line 2809 "warmelt-macro.melt" /**::proc::**/ @@ -13101,12 +10998,10 @@ meltrout_42_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:2809:/ getarg"); -#line 2809 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2809 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -13116,7 +11011,6 @@ meltrout_42_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 2809 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -13127,7 +11021,6 @@ meltrout_42_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 2809 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -13140,44 +11033,34 @@ meltrout_42_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2809 /*anyblock*/ { -#line 2810 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2810:/ cppif.then"); -#line 2810 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2810 /*anyblock */ { /*^checksignal */ -#line 2810 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 2810 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:2810:/ cond"); -#line 2810 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2810 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2810:/ cond.else"); -#line 2810 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2810 /*anyblock */ { @@ -13186,7 +11069,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2810 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -13201,58 +11083,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2810:/ clear"); -#line 2810 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2810 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2810 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2811 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2811:/ cppif.then"); -#line 2811 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2811 /*anyblock */ { /*^checksignal */ -#line 2811 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 2811 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:2811:/ cond"); -#line 2811 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2811 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:2811:/ cond.else"); -#line 2811 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 2811 /*anyblock */ { @@ -13261,7 +11130,6 @@ lab_endgetargs:; { /*^locexp */ -#line 2811 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -13276,30 +11144,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2811:/ clear"); -#line 2811 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 2811 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2811 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2812:/ quasiblock"); -#line 2812 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 2812 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -13308,7 +11170,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:2813:/ getslot"); -#line 2813 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -13317,32 +11178,23 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V13*/ meltfptr[12] = -#line 2814 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V11*/ meltfptr[10])));; /*^compute */ - /*_.CURPAIR__V14*/ meltfptr[13] = -#line 2814 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V13*/ meltfptr[12])));; /*^compute */ - /*_.CURELEM__V15*/ meltfptr[14] = -#line 2815 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; -#line 2817 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2817:/ cppif.then"); -#line 2817 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2817 /*anyblock */ { { /*^locexp */ -#line 2817 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -13351,11 +11203,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2817 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = -#line 2817 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -13364,18 +11214,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2817:/ cond"); -#line 2817 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2817 /*^block */ -#line 2817 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = -#line 2817 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -13383,29 +11229,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2817:/ checksignal"); -#line 2817 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2817 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2817 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg */ -#line 2817 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2817 argtab[2].meltbp_long = 2817; /*^apply.arg */ -#line 2817 argtab[3].meltbp_cstring = "mexpand_define start sexpr"; /*^apply.arg */ -#line 2817 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = @@ -13423,86 +11262,67 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2817:/ clear"); -#line 2817 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ -#line 2817 /*clear *//*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0; } ; } else { /*^cond.else */ -#line 2817 /*_.IF___V17*/ meltfptr[16] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2817:/ quasiblock"); -#line 2817 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V19*/ meltfptr[17] = /*_.IF___V17*/ meltfptr[16];; /*^compute */ - /*_.IFCPP___V16*/ meltfptr[15] = /*_.PROGN___V19*/ meltfptr[17];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2817:/ clear"); -#line 2817 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ -#line 2817 /*clear *//*_.IF___V17*/ meltfptr[16] = 0; /*^clear */ -#line 2817 /*clear *//*_.PROGN___V19*/ meltfptr[17] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2817 /*_.IFCPP___V16*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2821:/ checksignal"); -#line 2821 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[3] = -#line 2821 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CURELEM__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:2821:/ cond"); -#line 2821 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 2821 /*^block */ -#line 2821 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2822:/ quasiblock"); -#line 2822 "warmelt-macro.melt" /**::quasiblock::**/ /*_.DEFNAME__V22*/ meltfptr[21] = /*_.CURELEM__V15*/ meltfptr[14];; /*^compute */ - /*_.DEFDOC__V23*/ meltfptr[22] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:2825:/ checksignal"); -#line 2825 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2825 /*^rawallocobj */ -#line 2825 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -13513,7 +11333,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2825 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -13523,7 +11342,6 @@ lab_endgetargs:; ( /*_.DEFNAME__V22*/ meltfptr[21]), "BINDER"); ; /*^putslot */ -#line 2825 /*putslot */ melt_assertmsg ("putslot checkobj @DEFVALBIND_DEFINE", melt_magic_discr ((melt_ptr_t) @@ -13534,21 +11352,17 @@ lab_endgetargs:; ; /*_.DEFVALBIND__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; MELT_LOCATION ("warmelt-macro.melt:2830:/ checksignal"); -#line 2830 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2830 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2830 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 2830 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V12*/ meltfptr[11]; /*_.WARN_IF_REDEFINED__V26*/ meltfptr[25] = @@ -13560,17 +11374,14 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2831:/ checksignal"); -#line 2831 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2831 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2831 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.DEFVALBIND__V24*/ meltfptr[23]; /*_.PUT_ENV__V27*/ meltfptr[26] = @@ -13582,131 +11393,100 @@ lab_endgetargs:; } ; /*_.PAIR_TAIL__V28*/ meltfptr[27] = -#line 2832 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:2832:/ compute"); -#line 2832 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; MELT_LOCATION ("warmelt-macro.melt:2834:/ checksignal"); -#line 2834 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V30*/ meltfptr[29] = -#line 2834 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; /*^compute */ - /*_#__L6*/ meltfnum[0] = -#line 2834 "warmelt-macro.melt" /**::expr::**/ (( /*_.PAIR_HEAD__V30*/ meltfptr[29]) == (( /*!konst_7_DOC */ meltfrout->tabval[7])));; MELT_LOCATION ("warmelt-macro.melt:2834:/ cond"); -#line 2834 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2834 /*^block */ -#line 2834 /*anyblock */ { /*_.PAIR_TAIL__V32*/ meltfptr[31] = -#line 2836 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:2836:/ compute"); -#line 2836 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V33*/ meltfptr[32] = /*_.PAIR_TAIL__V32*/ meltfptr[31];; /*_.PAIR_HEAD__V34*/ meltfptr[33] = -#line 2837 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:2837:/ compute"); -#line 2837 "warmelt-macro.melt" /**::compute::**/ /*_.DEFDOC__V23*/ meltfptr[22] = /*_.SETQ___V35*/ meltfptr[34] = /*_.PAIR_HEAD__V34*/ meltfptr[33];; /*_.PAIR_TAIL__V36*/ meltfptr[35] = -#line 2838 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:2838:/ compute"); -#line 2838 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V37*/ meltfptr[36] = /*_.PAIR_TAIL__V36*/ meltfptr[35];; MELT_LOCATION ("warmelt-macro.melt:2835:/ quasiblock"); -#line 2835 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V38*/ meltfptr[37] = /*_.SETQ___V37*/ meltfptr[36];; /*^compute */ - /*_.IF___V31*/ meltfptr[30] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2834:/ clear"); -#line 2834 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PAIR_TAIL__V32*/ meltfptr[31] = 0; /*^clear */ -#line 2834 /*clear *//*_.SETQ___V33*/ meltfptr[32] = 0; /*^clear */ -#line 2834 /*clear *//*_.PAIR_HEAD__V34*/ meltfptr[33] = 0; /*^clear */ -#line 2834 /*clear *//*_.SETQ___V35*/ meltfptr[34] = 0; /*^clear */ -#line 2834 /*clear *//*_.PAIR_TAIL__V36*/ meltfptr[35] = 0; /*^clear */ -#line 2834 /*clear *//*_.SETQ___V37*/ meltfptr[36] = 0; /*^clear */ -#line 2834 /*clear *//*_.PROGN___V38*/ meltfptr[37] = 0; } ; } else { /*^cond.else */ -#line 2834 /*_.IF___V31*/ meltfptr[30] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2840:/ quasiblock"); -#line 2840 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:2841:/ checksignal"); -#line 2841 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2841 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2841 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 2841 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 2841 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.BODYTUP__V40*/ meltfptr[32] = @@ -13719,15 +11499,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2842:/ checksignal"); -#line 2842 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2842 /*^rawallocobj */ -#line 2842 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -13740,7 +11517,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2842 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -13751,7 +11527,6 @@ lab_endgetargs:; "LOCA_LOCATION"); ; /*^putslot */ -#line 2842 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_NAME", melt_magic_discr ((melt_ptr_t) @@ -13762,7 +11537,6 @@ lab_endgetargs:; "SDEF_NAME"); ; /*^putslot */ -#line 2842 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_DOC", melt_magic_discr ((melt_ptr_t) @@ -13773,7 +11547,6 @@ lab_endgetargs:; "SDEF_DOC"); ; /*^putslot */ -#line 2842 /*putslot */ melt_assertmsg ("putslot checkobj @SDEFINE_BODY", melt_magic_discr ((melt_ptr_t) @@ -13785,13 +11558,10 @@ lab_endgetargs:; ; /*_.SDEFINE__V41*/ meltfptr[33] = /*_.INST__V42*/ meltfptr[34];; MELT_LOCATION ("warmelt-macro.melt:2849:/ checksignal"); -#line 2849 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2849 /*cond */ if ( -#line 2849 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.DEFVALBIND__V24*/ @@ -13800,14 +11570,11 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2849 /*^block */ -#line 2849 /*anyblock */ { /*^putslot */ -#line 2849 /*putslot */ melt_assertmsg ("putslot checkobj @DEFVALBIND_DEFINE", melt_magic_discr ((melt_ptr_t) @@ -13819,7 +11586,6 @@ lab_endgetargs:; "DEFVALBIND_DEFINE"); ; /*^touch */ -#line 2849 meltgc_touch ( /*_.DEFVALBIND__V24*/ meltfptr[23]); ; /*epilog */ @@ -13828,27 +11594,21 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V43*/ meltfptr[35] = -#line 2850 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:2850:/ compute"); -#line 2850 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V44*/ meltfptr[36] = /*_.PAIR_TAIL__V43*/ meltfptr[35];; -#line 2851 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2851:/ cppif.then"); -#line 2851 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2851 /*anyblock */ { { /*^locexp */ -#line 2851 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -13857,11 +11617,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2851 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = -#line 2851 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -13870,18 +11628,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2851:/ cond"); -#line 2851 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ -#line 2851 /*^block */ -#line 2851 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = -#line 2851 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -13889,38 +11643,29 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2851:/ checksignal"); -#line 2851 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2851 /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2851 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg */ -#line 2851 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2851 argtab[2].meltbp_long = 2851; /*^apply.arg */ -#line 2851 argtab[3].meltbp_cstring = "mexpand_define simple value bodytup="; /*^apply.arg */ -#line 2851 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.BODYTUP__V40*/ meltfptr[32]; /*^apply.arg */ -#line 2851 argtab[5].meltbp_cstring = " sdefine="; /*^apply.arg */ -#line 2851 argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.SDEFINE__V41*/ meltfptr[33]; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = @@ -13940,61 +11685,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2851:/ clear"); -#line 2851 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ -#line 2851 /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0; } ; } else { /*^cond.else */ -#line 2851 /*_.IF___V46*/ meltfptr[45] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2851:/ quasiblock"); -#line 2851 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V48*/ meltfptr[46] = /*_.IF___V46*/ meltfptr[45];; /*^compute */ - /*_.IFCPP___V45*/ meltfptr[37] = /*_.PROGN___V48*/ meltfptr[46];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2851:/ clear"); -#line 2851 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0; /*^clear */ -#line 2851 /*clear *//*_.IF___V46*/ meltfptr[45] = 0; /*^clear */ -#line 2851 /*clear *//*_.PROGN___V48*/ meltfptr[46] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2851 /*_.IFCPP___V45*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2852:/ checksignal"); -#line 2852 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2852 /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFINE__V41*/ meltfptr[33];; { MELT_LOCATION ("warmelt-macro.melt:2852:/ locexp"); -#line 2852 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14005,109 +11738,81 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2852 ; /*finalret */ goto labend_rout; /*_.LET___V39*/ meltfptr[31] = /*_.RETURN___V49*/ meltfptr[45];; MELT_LOCATION ("warmelt-macro.melt:2840:/ clear"); -#line 2840 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.BODYTUP__V40*/ meltfptr[32] = 0; /*^clear */ -#line 2840 /*clear *//*_.SDEFINE__V41*/ meltfptr[33] = 0; /*^clear */ -#line 2840 /*clear *//*_.PAIR_TAIL__V43*/ meltfptr[35] = 0; /*^clear */ -#line 2840 /*clear *//*_.SETQ___V44*/ meltfptr[36] = 0; /*^clear */ -#line 2840 /*clear *//*_.IFCPP___V45*/ meltfptr[37] = 0; /*^clear */ -#line 2840 /*clear *//*_.RETURN___V49*/ meltfptr[45] = 0; /*_.LET___V21*/ meltfptr[17] = /*_.LET___V39*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:2822:/ clear"); -#line 2822 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.DEFNAME__V22*/ meltfptr[21] = 0; /*^clear */ -#line 2822 /*clear *//*_.DEFDOC__V23*/ meltfptr[22] = 0; /*^clear */ -#line 2822 /*clear *//*_.DEFVALBIND__V24*/ meltfptr[23] = 0; /*^clear */ -#line 2822 /*clear *//*_.WARN_IF_REDEFINED__V26*/ meltfptr[25] = 0; /*^clear */ -#line 2822 /*clear *//*_.PUT_ENV__V27*/ meltfptr[26] = 0; /*^clear */ -#line 2822 /*clear *//*_.PAIR_TAIL__V28*/ meltfptr[27] = 0; /*^clear */ -#line 2822 /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0; /*^clear */ -#line 2822 /*clear *//*_.PAIR_HEAD__V30*/ meltfptr[29] = 0; /*^clear */ -#line 2822 /*clear *//*_#__L6*/ meltfnum[0] = 0; /*^clear */ -#line 2822 /*clear *//*_.IF___V31*/ meltfptr[30] = 0; /*^clear */ -#line 2822 /*clear *//*_.LET___V39*/ meltfptr[31] = 0; /*_.IFELSE___V20*/ meltfptr[16] = /*_.LET___V21*/ meltfptr[17];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2821:/ clear"); -#line 2821 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V21*/ meltfptr[17] = 0; } ; } else { /*^cond.else */ -#line 2821 /*^block */ -#line 2821 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2856:/ checksignal"); -#line 2856 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L9*/ meltfnum[7] = -#line 2856 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CURELEM__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:2856:/ cond"); -#line 2856 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 2856 /*^block */ -#line 2856 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2857:/ quasiblock"); -#line 2857 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 2857 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -14117,7 +11822,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:2858:/ getslot"); -#line 2858 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -14127,39 +11831,29 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V54*/ meltfptr[36] = -#line 2859 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.FCONT__V53*/ meltfptr[35])));; /*^compute */ - /*_.FUNAME__V55*/ meltfptr[37] = -#line 2859 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.LIST_FIRST__V54*/ meltfptr[36])));; /*^compute */ - /*_.LIST_FIRST__V56*/ meltfptr[45] = -#line 2860 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.FCONT__V53*/ meltfptr[35])));; /*^compute */ - /*_.CURSUBPAIR__V57*/ meltfptr[21] = -#line 2860 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V56*/ meltfptr[45])));; MELT_LOCATION ("warmelt-macro.melt:2861:/ checksignal"); -#line 2861 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2861 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2861 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!konst_11_TRUE */ meltfrout-> tabval[11]); @@ -14175,15 +11869,12 @@ lab_endgetargs:; ; /*_.DEFDOC__V59*/ meltfptr[23] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:2863:/ checksignal"); -#line 2863 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2863 /*^rawallocobj */ -#line 2863 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -14194,7 +11885,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2863 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -14206,7 +11896,6 @@ lab_endgetargs:; "BINDER"); ; /*^putslot */ -#line 2863 /*putslot */ melt_assertmsg ("putslot checkobj @FUBIND_DEFUN", melt_magic_discr ((melt_ptr_t) @@ -14218,31 +11907,25 @@ lab_endgetargs:; ; /*_.FBIND__V60*/ meltfptr[25] = /*_.INST__V61*/ meltfptr[26];; MELT_LOCATION ("warmelt-macro.melt:2869:/ checksignal"); -#line 2869 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L10*/ meltfnum[6] = -#line 2869 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.FUNAME__V55*/ meltfptr[37]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:2869:/ cond"); -#line 2869 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L10*/ meltfnum[6]) /*then */ { /*^cond.then */ -#line 2869 /*^block */ -#line 2869 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2871:/ locexp"); -#line 2871 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), @@ -14251,14 +11934,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2873:/ quasiblock"); -#line 2873 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2873:/ locexp"); -#line 2873 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -14270,53 +11951,43 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2873 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2870:/ quasiblock"); -#line 2870 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V64*/ meltfptr[29] = /*_.RETURN___V63*/ meltfptr[28];; /*^compute */ - /*_.IF___V62*/ meltfptr[27] = /*_.PROGN___V64*/ meltfptr[29];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2869:/ clear"); -#line 2869 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V63*/ meltfptr[28] = 0; /*^clear */ -#line 2869 /*clear *//*_.PROGN___V64*/ meltfptr[29] = 0; } ; } else { /*^cond.else */ -#line 2869 /*_.IF___V62*/ meltfptr[27] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2874:/ checksignal"); -#line 2874 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2874 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2874 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 2874 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V12*/ meltfptr[11]; /*_.WARN_IF_REDEFINED__V65*/ meltfptr[30] = @@ -14330,17 +12001,14 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2875:/ checksignal"); -#line 2875 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2875 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2875 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.FBIND__V60*/ meltfptr[25]; /*_.PUT_ENV__V66*/ meltfptr[31] = @@ -14352,110 +12020,84 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2877:/ checksignal"); -#line 2877 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V67*/ meltfptr[17] = -#line 2877 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; /*^compute */ - /*_#__L11*/ meltfnum[0] = -#line 2877 "warmelt-macro.melt" /**::expr::**/ (( /*_.PAIR_HEAD__V67*/ meltfptr[17]) == (( /*!konst_7_DOC */ meltfrout->tabval[7])));; MELT_LOCATION ("warmelt-macro.melt:2877:/ cond"); -#line 2877 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2877 /*^block */ -#line 2877 /*anyblock */ { /*_.PAIR_TAIL__V69*/ meltfptr[29] = -#line 2879 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:2879:/ compute"); -#line 2879 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V70*/ meltfptr[69] = /*_.PAIR_TAIL__V69*/ meltfptr[29];; /*_.PAIR_HEAD__V71*/ meltfptr[70] = -#line 2880 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:2880:/ compute"); -#line 2880 "warmelt-macro.melt" /**::compute::**/ /*_.DEFDOC__V59*/ meltfptr[23] = /*_.SETQ___V72*/ meltfptr[71] = /*_.PAIR_HEAD__V71*/ meltfptr[70];; /*_.PAIR_TAIL__V73*/ meltfptr[72] = -#line 2881 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:2881:/ compute"); -#line 2881 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V74*/ meltfptr[73] = /*_.PAIR_TAIL__V73*/ meltfptr[72];; MELT_LOCATION ("warmelt-macro.melt:2878:/ quasiblock"); -#line 2878 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V75*/ meltfptr[74] = /*_.SETQ___V74*/ meltfptr[73];; /*^compute */ - /*_.IF___V68*/ meltfptr[28] = /*_.PROGN___V75*/ meltfptr[74];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2877:/ clear"); -#line 2877 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PAIR_TAIL__V69*/ meltfptr[29] = 0; /*^clear */ -#line 2877 /*clear *//*_.SETQ___V70*/ meltfptr[69] = 0; /*^clear */ -#line 2877 /*clear *//*_.PAIR_HEAD__V71*/ meltfptr[70] = 0; /*^clear */ -#line 2877 /*clear *//*_.SETQ___V72*/ meltfptr[71] = 0; /*^clear */ -#line 2877 /*clear *//*_.PAIR_TAIL__V73*/ meltfptr[72] = 0; /*^clear */ -#line 2877 /*clear *//*_.SETQ___V74*/ meltfptr[73] = 0; /*^clear */ -#line 2877 /*clear *//*_.PROGN___V75*/ meltfptr[74] = 0; } ; } else { /*^cond.else */ -#line 2877 /*_.IF___V68*/ meltfptr[28] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2883:/ quasiblock"); -#line 2883 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:2884:/ checksignal"); -#line 2884 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2884 /*apply */ { /*_.NEWENV__V77*/ meltfptr[69] = @@ -14467,15 +12109,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2886:/ checksignal"); -#line 2886 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2886 /*^rawallocobj */ -#line 2886 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -14486,7 +12125,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2886 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -14498,7 +12136,6 @@ lab_endgetargs:; "LOCA_LOCATION"); ; /*^putslot */ -#line 2886 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_NAME", melt_magic_discr ((melt_ptr_t) @@ -14510,7 +12147,6 @@ lab_endgetargs:; "SDEF_NAME"); ; /*^putslot */ -#line 2886 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_DOC", melt_magic_discr ((melt_ptr_t) @@ -14522,7 +12158,6 @@ lab_endgetargs:; "SDEF_DOC"); ; /*^putslot */ -#line 2886 /*putslot */ melt_assertmsg ("putslot checkobj @SFORMAL_ARGS", melt_magic_discr ((melt_ptr_t) @@ -14534,7 +12169,6 @@ lab_endgetargs:; "SFORMAL_ARGS"); ; /*^putslot */ -#line 2886 /*putslot */ melt_assertmsg ("putslot checkobj @SFUN_BODY", melt_magic_discr ((melt_ptr_t) @@ -14547,34 +12181,25 @@ lab_endgetargs:; /*_.SDEFUN__V78*/ meltfptr[70] = /*_.INST__V79*/ meltfptr[71];; /*^compute */ - /*_.FORMAL0BIND__V80*/ meltfptr[72] = -#line 2893 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_nth ((melt_ptr_t) ( /*_.FORMALTUP__V58*/ meltfptr[22]), (0)));; MELT_LOCATION ("warmelt-macro.melt:2896:/ checksignal"); -#line 2896 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2896 /*cond */ if ( /*_.FORMAL0BIND__V80*/ meltfptr[72]) /*then */ { /*^cond.then */ -#line 2896 /*^block */ -#line 2896 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2897:/ checksignal"); -#line 2897 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2897 /*cond */ if ( -#line 2897 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.FORMAL0BIND__V80*/ meltfptr[72]), @@ -14582,9 +12207,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2897 /*^getslot */ -#line 2897 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -14598,43 +12221,33 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2897 /*_.FBIND_TYPE__V82*/ meltfptr[74] = NULL;; } ; /*^compute */ - /*_#__L12*/ meltfnum[11] = -#line 2897 "warmelt-macro.melt" /**::expr::**/ (( /*_.FBIND_TYPE__V82*/ meltfptr[74]) != (( /*!CTYPE_VALUE */ meltfrout->tabval[17])));; MELT_LOCATION ("warmelt-macro.melt:2897:/ cond"); -#line 2897 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2897 /*^block */ -#line 2897 /*anyblock */ { -#line 2899 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2899:/ cppif.then"); -#line 2899 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2899 /*anyblock */ { { /*^locexp */ -#line 2899 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -14643,11 +12256,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2899 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L13*/ meltfnum[12] = -#line 2899 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ @@ -14658,19 +12269,15 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:2899:/ cond"); -#line 2899 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ -#line 2899 /*^block */ -#line 2899 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = -#line 2899 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -14679,33 +12286,26 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:2899:/ checksignal"); -#line 2899 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2899 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2899 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13]; /*^apply.arg */ -#line 2899 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2899 argtab[2].meltbp_long = 2899; /*^apply.arg */ -#line 2899 argtab[3].meltbp_cstring = "mexpand_define function bad formal0bind="; /*^apply.arg */ -#line 2899 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FORMAL0BIND__V80*/ meltfptr[72]; @@ -14730,11 +12330,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:2899:/ clear"); -#line 2899 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ -#line 2899 /*clear *//*_.MELT_DEBUG_FUN__V86*/ meltfptr[85] = 0; } @@ -14742,47 +12340,38 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2899 /*_.IF___V85*/ meltfptr[84] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2899:/ quasiblock"); -#line 2899 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V87*/ meltfptr[85] = /*_.IF___V85*/ meltfptr[84];; /*^compute */ - /*_.IFCPP___V84*/ meltfptr[83] = /*_.PROGN___V87*/ meltfptr[85];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2899:/ clear"); -#line 2899 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0; /*^clear */ -#line 2899 /*clear *//*_.IF___V85*/ meltfptr[84] = 0; /*^clear */ -#line 2899 /*clear *//*_.PROGN___V87*/ meltfptr[85] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2899 /*_.IFCPP___V84*/ meltfptr[83] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2901:/ cond"); -#line 2901 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 2901 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.FUNAME__V55*/ meltfptr[37]), @@ -14790,9 +12379,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2901 /*^getslot */ -#line 2901 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -14806,7 +12393,6 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2901 /*_.NAMED_NAME__V88*/ meltfptr[84] = NULL;; } @@ -14815,7 +12401,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2900:/ locexp"); -#line 2900 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.FLOC__V52*/ meltfptr[33]), ("invalid first formal argument in DEFINE-d function, expecting a :value"), @@ -14824,7 +12409,6 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:2902:/ quasiblock"); -#line 2902 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; @@ -14832,7 +12416,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2902:/ locexp"); -#line 2902 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -14845,75 +12428,60 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2902 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2898:/ quasiblock"); -#line 2898 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V90*/ meltfptr[89] = /*_.RETURN___V89*/ meltfptr[85];; /*^compute */ - /*_.IF___V83*/ meltfptr[82] = /*_.PROGN___V90*/ meltfptr[89];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2897:/ clear"); -#line 2897 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V84*/ meltfptr[83] = 0; /*^clear */ -#line 2897 /*clear *//*_.NAMED_NAME__V88*/ meltfptr[84] = 0; /*^clear */ -#line 2897 /*clear *//*_.RETURN___V89*/ meltfptr[85] = 0; /*^clear */ -#line 2897 /*clear *//*_.PROGN___V90*/ meltfptr[89] = 0; } ; } else { /*^cond.else */ -#line 2897 /*_.IF___V83*/ meltfptr[82] = NULL;; } ; /*^compute */ - /*_.IF___V81*/ meltfptr[73] = /*_.IF___V83*/ meltfptr[82];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2896:/ clear"); -#line 2896 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FBIND_TYPE__V82*/ meltfptr[74] = 0; /*^clear */ -#line 2896 /*clear *//*_#__L12*/ meltfnum[11] = 0; /*^clear */ -#line 2896 /*clear *//*_.IF___V83*/ meltfptr[82] = 0; } ; } else { /*^cond.else */ -#line 2896 /*_.IF___V81*/ meltfptr[73] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2904:/ quasiblock"); -#line 2904 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 2904 /*newclosure *//*_.LAMBDA___V92*/ meltfptr[84] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -14925,7 +12493,6 @@ lab_endgetargs:; (1)); ; /*^putclosedv */ -#line 2904 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -14943,17 +12510,14 @@ lab_endgetargs:; /*_.LAMBDA___V91*/ meltfptr[83] = /*_.LAMBDA___V92*/ meltfptr[84];; MELT_LOCATION ("warmelt-macro.melt:2904:/ checksignal"); -#line 2904 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2904 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2904 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V91*/ meltfptr[83]; /*_.MULTIPLE_EVERY__V93*/ meltfptr[85] = @@ -14967,29 +12531,23 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2905:/ quasiblock"); -#line 2905 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 2905 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2905 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2905 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NEWENV__V77*/ meltfptr[69]; /*^apply.arg */ -#line 2905 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 2905 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.BODYTUP__V95*/ meltfptr[74] = @@ -15004,13 +12562,10 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2907:/ checksignal"); -#line 2907 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2907 /*cond */ if ( -#line 2907 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SDEFUN__V78*/ @@ -15019,14 +12574,11 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2907 /*^block */ -#line 2907 /*anyblock */ { /*^putslot */ -#line 2907 /*putslot */ melt_assertmsg ("putslot checkobj @SFUN_BODY", melt_magic_discr ((melt_ptr_t) @@ -15039,7 +12591,6 @@ lab_endgetargs:; meltfptr[74]), "SFUN_BODY"); ; /*^touch */ -#line 2907 meltgc_touch ( /*_.SDEFUN__V78*/ meltfptr[70]); ; /*epilog */ @@ -15048,19 +12599,15 @@ lab_endgetargs:; } /*noelse */ ; -#line 2908 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2908:/ cppif.then"); -#line 2908 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2908 /*anyblock */ { { /*^locexp */ -#line 2908 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -15069,11 +12616,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2908 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L15*/ meltfnum[13] = -#line 2908 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -15082,18 +12627,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2908:/ cond"); -#line 2908 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 2908 /*^block */ -#line 2908 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] = -#line 2908 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -15102,31 +12643,24 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:2908:/ checksignal"); -#line 2908 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2908 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2908 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12]; /*^apply.arg */ -#line 2908 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2908 argtab[2].meltbp_long = 2908; /*^apply.arg */ -#line 2908 argtab[3].meltbp_cstring = "mexpand_define function return sdefun"; /*^apply.arg */ -#line 2908 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SDEFUN__V78*/ meltfptr[70]; /*_.MELT_DEBUG_FUN__V98*/ meltfptr[97] = @@ -15145,57 +12679,46 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2908:/ clear"); -#line 2908 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] = 0; /*^clear */ -#line 2908 /*clear *//*_.MELT_DEBUG_FUN__V98*/ meltfptr[97] = 0; } ; } else { /*^cond.else */ -#line 2908 /*_.IF___V97*/ meltfptr[96] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2908:/ quasiblock"); -#line 2908 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V99*/ meltfptr[97] = /*_.IF___V97*/ meltfptr[96];; /*^compute */ - /*_.IFCPP___V96*/ meltfptr[82] = /*_.PROGN___V99*/ meltfptr[97];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2908:/ clear"); -#line 2908 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0; /*^clear */ -#line 2908 /*clear *//*_.IF___V97*/ meltfptr[96] = 0; /*^clear */ -#line 2908 /*clear *//*_.PROGN___V99*/ meltfptr[97] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2908 /*_.IFCPP___V96*/ meltfptr[82] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2909:/ checksignal"); -#line 2909 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2909 /*_.RETVAL___V1*/ meltfptr[0] = @@ -15203,7 +12726,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2909:/ locexp"); -#line 2909 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15214,120 +12736,88 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2909 ; /*finalret */ goto labend_rout; /*_.LET___V94*/ meltfptr[89] = /*_.RETURN___V100*/ meltfptr[96];; MELT_LOCATION ("warmelt-macro.melt:2905:/ clear"); -#line 2905 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.BODYTUP__V95*/ meltfptr[74] = 0; /*^clear */ -#line 2905 /*clear *//*_.IFCPP___V96*/ meltfptr[82] = 0; /*^clear */ -#line 2905 /*clear *//*_.RETURN___V100*/ meltfptr[96] = 0; /*_.LET___V76*/ meltfptr[29] = /*_.LET___V94*/ meltfptr[89];; MELT_LOCATION ("warmelt-macro.melt:2883:/ clear"); -#line 2883 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NEWENV__V77*/ meltfptr[69] = 0; /*^clear */ -#line 2883 /*clear *//*_.SDEFUN__V78*/ meltfptr[70] = 0; /*^clear */ -#line 2883 /*clear *//*_.FORMAL0BIND__V80*/ meltfptr[72] = 0; /*^clear */ -#line 2883 /*clear *//*_.IF___V81*/ meltfptr[73] = 0; /*^clear */ -#line 2883 /*clear *//*_.LAMBDA___V91*/ meltfptr[83] = 0; /*^clear */ -#line 2883 /*clear *//*_.MULTIPLE_EVERY__V93*/ meltfptr[85] = 0; /*^clear */ -#line 2883 /*clear *//*_.LET___V94*/ meltfptr[89] = 0; /*_.LET___V51*/ meltfptr[32] = /*_.LET___V76*/ meltfptr[29];; MELT_LOCATION ("warmelt-macro.melt:2857:/ clear"); -#line 2857 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLOC__V52*/ meltfptr[33] = 0; /*^clear */ -#line 2857 /*clear *//*_.FCONT__V53*/ meltfptr[35] = 0; /*^clear */ -#line 2857 /*clear *//*_.LIST_FIRST__V54*/ meltfptr[36] = 0; /*^clear */ -#line 2857 /*clear *//*_.FUNAME__V55*/ meltfptr[37] = 0; /*^clear */ -#line 2857 /*clear *//*_.LIST_FIRST__V56*/ meltfptr[45] = 0; /*^clear */ -#line 2857 /*clear *//*_.CURSUBPAIR__V57*/ meltfptr[21] = 0; /*^clear */ -#line 2857 /*clear *//*_.FORMALTUP__V58*/ meltfptr[22] = 0; /*^clear */ -#line 2857 /*clear *//*_.DEFDOC__V59*/ meltfptr[23] = 0; /*^clear */ -#line 2857 /*clear *//*_.FBIND__V60*/ meltfptr[25] = 0; /*^clear */ -#line 2857 /*clear *//*_#IS_NOT_A__L10*/ meltfnum[6] = 0; /*^clear */ -#line 2857 /*clear *//*_.IF___V62*/ meltfptr[27] = 0; /*^clear */ -#line 2857 /*clear *//*_.WARN_IF_REDEFINED__V65*/ meltfptr[30] = 0; /*^clear */ -#line 2857 /*clear *//*_.PUT_ENV__V66*/ meltfptr[31] = 0; /*^clear */ -#line 2857 /*clear *//*_.PAIR_HEAD__V67*/ meltfptr[17] = 0; /*^clear */ -#line 2857 /*clear *//*_#__L11*/ meltfnum[0] = 0; /*^clear */ -#line 2857 /*clear *//*_.IF___V68*/ meltfptr[28] = 0; /*^clear */ -#line 2857 /*clear *//*_.LET___V76*/ meltfptr[29] = 0; /*_.IFELSE___V50*/ meltfptr[46] = /*_.LET___V51*/ meltfptr[32];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2856:/ clear"); -#line 2856 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V51*/ meltfptr[32] = 0; } ; } else { /*^cond.else */ -#line 2856 /*^block */ -#line 2856 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2914:/ locexp"); -#line 2914 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), @@ -15336,14 +12826,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2915:/ quasiblock"); -#line 2915 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:2915:/ locexp"); -#line 2915 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15354,26 +12842,21 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2915 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:2913:/ quasiblock"); -#line 2913 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V102*/ meltfptr[74] = /*_.RETURN___V101*/ meltfptr[97];; /*^compute */ - /*_.IFELSE___V50*/ meltfptr[46] = /*_.PROGN___V102*/ meltfptr[74];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2856:/ clear"); -#line 2856 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V101*/ meltfptr[97] = 0; /*^clear */ -#line 2856 /*clear *//*_.PROGN___V102*/ meltfptr[74] = 0; } ; @@ -15383,10 +12866,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2821:/ clear"); -#line 2821 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L9*/ meltfnum[7] = 0; /*^clear */ -#line 2821 /*clear *//*_.IFELSE___V50*/ meltfptr[46] = 0; } ; @@ -15395,42 +12876,31 @@ lab_endgetargs:; /*_.LET___V10*/ meltfptr[8] = /*_.IFELSE___V20*/ meltfptr[16];; MELT_LOCATION ("warmelt-macro.melt:2812:/ clear"); -#line 2812 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V11*/ meltfptr[10] = 0; /*^clear */ -#line 2812 /*clear *//*_.LOC__V12*/ meltfptr[11] = 0; /*^clear */ -#line 2812 /*clear *//*_.LIST_FIRST__V13*/ meltfptr[12] = 0; /*^clear */ -#line 2812 /*clear *//*_.CURPAIR__V14*/ meltfptr[13] = 0; /*^clear */ -#line 2812 /*clear *//*_.CURELEM__V15*/ meltfptr[14] = 0; /*^clear */ -#line 2812 /*clear *//*_.IFCPP___V16*/ meltfptr[15] = 0; /*^clear */ -#line 2812 /*clear *//*_#IS_A__L5*/ meltfnum[3] = 0; /*^clear */ -#line 2812 /*clear *//*_.IFELSE___V20*/ meltfptr[16] = 0; MELT_LOCATION ("warmelt-macro.melt:2809:/ checksignal"); -#line 2809 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2809 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION ("warmelt-macro.melt:2809:/ locexp"); -#line 2809 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15441,19 +12911,15 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2809 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2809 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 2809 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 2809 /*clear *//*_.LET___V10*/ meltfptr[8] = 0; } @@ -15472,7 +12938,6 @@ labend_rout: } /*end meltrout_42_warmelt_macro_MEXPAND_DEFINE */ -#line 2904 "warmelt-macro.melt" /**::proc::**/ @@ -15548,29 +13013,24 @@ meltrout_43_warmelt_macro_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:2904:/ getarg"); -#line 2904 "warmelt-macro.melt" /**::getarg::**/ /*_.FB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 2904 /*anyblock*/ { /*^checksignal */ -#line 2904 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2904 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2904 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.FB__V2*/ meltfptr[1]; /*_.PUT_ENV__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t) @@ -15581,14 +13041,12 @@ lab_endgetargs:; } ; /*^quasiblock */ -#line 2904 /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { MELT_LOCATION ("warmelt-macro.melt:2904:/ locexp"); -#line 2904 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15599,13 +13057,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2904 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2904 /*clear *//*_.PUT_ENV__V3*/ meltfptr[2] = 0; } @@ -15624,7 +13080,6 @@ labend_rout: } /*end meltrout_43_warmelt_macro_LAMBDA___10__ */ -#line 2930 "warmelt-macro.melt" /**::proc::**/ @@ -15700,12 +13155,10 @@ meltrout_44_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:2930:/ getarg"); -#line 2930 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2930 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -15715,7 +13168,6 @@ meltrout_44_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 2930 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -15726,7 +13178,6 @@ meltrout_44_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 2930 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -15739,32 +13190,24 @@ meltrout_44_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2930 /*anyblock*/ { MELT_LOCATION ("warmelt-macro.melt:2931:/ quasiblock"); -#line 2931 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PREDEF__V7*/ meltfptr[6] = ( /*nil */ NULL);; /*^compute */ - /*_.SUPERNAM__V8*/ meltfptr[7] = ( /*nil */ NULL);; /*^compute */ - /*_.SUPERBIND__V9*/ meltfptr[8] = ( /*nil */ NULL);; /*^compute */ - /*_.SUPERCLASS__V10*/ meltfptr[9] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDNAMS__V11*/ meltfptr[10] = ( /*nil */ NULL);; /*^compute */ - /*_.DOCV__V12*/ meltfptr[11] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:2937:/ getslot"); -#line 2937 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -15773,7 +13216,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:2938:/ getslot"); -#line 2938 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -15783,34 +13225,24 @@ lab_endgetargs:; ; /*_.FIELDSLOC__V15*/ meltfptr[14] = ( /*nil */ NULL);; /*^compute */ - /*_.LIST_FIRST__V16*/ meltfptr[15] = -#line 2940 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V13*/ meltfptr[12])));; /*^compute */ - /*_.CURPAIR__V17*/ meltfptr[16] = -#line 2940 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V16*/ meltfptr[15])));; /*^compute */ - /*_.SYMB__V18*/ meltfptr[17] = -#line 2941 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; -#line 2943 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2943:/ cppif.then"); -#line 2943 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2943 /*anyblock */ { { /*^locexp */ -#line 2943 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -15819,11 +13251,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2943 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 2943 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -15832,18 +13262,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2943:/ cond"); -#line 2943 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2943 /*^block */ -#line 2943 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = -#line 2943 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -15851,29 +13277,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2943:/ checksignal"); -#line 2943 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2943 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2943 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ -#line 2943 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2943 argtab[2].meltbp_long = 2943; /*^apply.arg */ -#line 2943 argtab[3].meltbp_cstring = "scan_defclass sexpr"; /*^apply.arg */ -#line 2943 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = @@ -15891,72 +13310,57 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2943:/ clear"); -#line 2943 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ -#line 2943 /*clear *//*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0; } ; } else { /*^cond.else */ -#line 2943 /*_.IF___V20*/ meltfptr[19] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2943:/ quasiblock"); -#line 2943 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V22*/ meltfptr[20] = /*_.IF___V20*/ meltfptr[19];; /*^compute */ - /*_.IFCPP___V19*/ meltfptr[18] = /*_.PROGN___V22*/ meltfptr[20];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2943:/ clear"); -#line 2943 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2943 /*clear *//*_.IF___V20*/ meltfptr[19] = 0; /*^clear */ -#line 2943 /*clear *//*_.PROGN___V22*/ meltfptr[20] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2943 /*_.IFCPP___V19*/ meltfptr[18] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2944:/ checksignal"); -#line 2944 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L3*/ meltfnum[1] = -#line 2944 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:2944:/ cond"); -#line 2944 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2944 /*^block */ -#line 2944 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2945:/ locexp"); -#line 2945 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("missing symbol for DEFCLASS"), @@ -15969,62 +13373,46 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V23*/ meltfptr[19] = -#line 2946 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; MELT_LOCATION ("warmelt-macro.melt:2946:/ compute"); -#line 2946 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V24*/ meltfptr[20] = /*_.PAIR_TAIL__V23*/ meltfptr[19];; MELT_LOCATION ("warmelt-macro.melt:2947:/ loop"); -#line 2947 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_SCANLOOP_1:; /*^loopbody */ -#line 2947 /*^block */ -#line 2947 /*anyblock */ { /*^checksignal */ -#line 2947 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:2948:/ checksignal"); -#line 2948 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L4*/ meltfnum[0] = -#line 2948 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L5*/ meltfnum[4] = -#line 2948 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L4*/ meltfnum[0]));; MELT_LOCATION ("warmelt-macro.melt:2948:/ cond"); -#line 2948 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 2948 /*^block */ -#line 2948 /*anyblock */ { /*^quasiblock */ -#line 2948 /*^compute */ -#line 2948 /*_.SCANLOOP__V26*/ meltfptr[25] = NULL;; /*^exit */ -#line 2948 /*exit */ { goto labexit_SCANLOOP_1; @@ -16036,41 +13424,31 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:2949:/ quasiblock"); -#line 2949 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURKW__V28*/ meltfptr[27] = -#line 2949 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; MELT_LOCATION ("warmelt-macro.melt:2950:/ checksignal"); -#line 2950 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[5] = -#line 2950 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CURKW__V28*/ meltfptr[27]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[2])));; /*^compute */ - /*_#NOT__L7*/ meltfnum[6] = -#line 2950 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_A__L6*/ meltfnum[5]));; MELT_LOCATION ("warmelt-macro.melt:2950:/ cond"); -#line 2950 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ -#line 2950 /*^block */ -#line 2950 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2951:/ locexp"); -#line 2951 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("expecting keyword in DEFCLASS"), @@ -16083,66 +13461,49 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V29*/ meltfptr[28] = -#line 2952 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; MELT_LOCATION ("warmelt-macro.melt:2952:/ compute"); -#line 2952 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V30*/ meltfptr[29] = /*_.PAIR_TAIL__V29*/ meltfptr[28];; MELT_LOCATION ("warmelt-macro.melt:2953:/ quasiblock"); -#line 2953 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURVAL__V32*/ meltfptr[31] = -#line 2953 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; /*^compute */ - /*_.PAIR_TAIL__V33*/ meltfptr[32] = -#line 2954 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; MELT_LOCATION ("warmelt-macro.melt:2954:/ compute"); -#line 2954 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V34*/ meltfptr[33] = /*_.PAIR_TAIL__V33*/ meltfptr[32];; MELT_LOCATION ("warmelt-macro.melt:2956:/ checksignal"); -#line 2956 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L8*/ meltfnum[7] = -#line 2956 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURKW__V28*/ meltfptr[27]) == (( /*!konst_3_SUPER */ meltfrout->tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:2956:/ cond"); -#line 2956 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 2956 /*^block */ -#line 2956 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2957:/ checksignal"); -#line 2957 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2957 /*cond */ if ( /*_.SUPERNAM__V8*/ meltfptr[7]) /*then */ { /*^cond.then */ -#line 2957 /*^block */ -#line 2957 /*anyblock */ { { /*^locexp */ -#line 2957 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -16156,35 +13517,27 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:2958:/ checksignal"); -#line 2958 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L9*/ meltfnum[8] = -#line 2958 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CURVAL__V32*/ meltfptr[31]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[1])));; /*^compute */ - /*_#NOT__L10*/ meltfnum[9] = -#line 2958 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_A__L9*/ meltfnum[8]));; MELT_LOCATION ("warmelt-macro.melt:2958:/ cond"); -#line 2958 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 2958 /*^block */ -#line 2958 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:2959:/ locexp"); -#line 2959 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -16198,23 +13551,18 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:2960:/ compute"); -#line 2960 "warmelt-macro.melt" /**::compute::**/ /*_.SUPERNAM__V8*/ meltfptr[7] = /*_.SETQ___V36*/ meltfptr[35] = /*_.CURVAL__V32*/ meltfptr[31];; -#line 2961 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2961:/ cppif.then"); -#line 2961 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2961 /*anyblock */ { { /*^locexp */ -#line 2961 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -16223,11 +13571,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2961 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = -#line 2961 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -16236,18 +13582,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2961:/ cond"); -#line 2961 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 2961 /*^block */ -#line 2961 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = -#line 2961 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -16255,30 +13597,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:2961:/ checksignal"); -#line 2961 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2961 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2961 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11]; /*^apply.arg */ -#line 2961 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2961 argtab[2].meltbp_long = 2961; /*^apply.arg */ -#line 2961 argtab[3].meltbp_cstring = "scan_defclass supernam"; /*^apply.arg */ -#line 2961 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERNAM__V8*/ meltfptr[7]; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = @@ -16297,65 +13632,52 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2961:/ clear"); -#line 2961 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ -#line 2961 /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0; } ; } else { /*^cond.else */ -#line 2961 /*_.IF___V38*/ meltfptr[37] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2961:/ quasiblock"); -#line 2961 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[37];; /*^compute */ - /*_.IFCPP___V37*/ meltfptr[36] = /*_.PROGN___V40*/ meltfptr[38];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2961:/ clear"); -#line 2961 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ -#line 2961 /*clear *//*_.IF___V38*/ meltfptr[37] = 0; /*^clear */ -#line 2961 /*clear *//*_.PROGN___V40*/ meltfptr[38] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2961 /*_.IFCPP___V37*/ meltfptr[36] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2962:/ quasiblock"); -#line 2962 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 2962 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2962 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2962 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERNAM__V8*/ meltfptr[7]; /*_.SUPERB__V42*/ meltfptr[38] = @@ -16367,33 +13689,26 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:2965:/ checksignal"); -#line 2965 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[11] = -#line 2965 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SUPERB__V42*/ meltfptr[38]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[5])));; MELT_LOCATION ("warmelt-macro.melt:2965:/ cond"); -#line 2965 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2965 /*^block */ -#line 2965 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2966:/ compute"); -#line 2966 "warmelt-macro.melt" /**::compute::**/ /*_.SUPERBIND__V9*/ meltfptr[8] = /*_.SETQ___V44*/ meltfptr[43] = /*_.SUPERB__V42*/ meltfptr[38];; MELT_LOCATION ("warmelt-macro.melt:2967:/ getslot"); -#line 2967 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -16404,73 +13719,57 @@ lab_endgetargs:; }; ; /*^compute */ -#line 2967 /*_.SUPERCLASS__V10*/ meltfptr[9] = /*_.SETQ___V46*/ meltfptr[45] = /*_.CBIND_CLASS__V45*/ meltfptr[44];; MELT_LOCATION ("warmelt-macro.melt:2965:/ quasiblock"); -#line 2965 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V47*/ meltfptr[46] = /*_.SETQ___V46*/ meltfptr[45];; /*^compute */ - /*_.IFELSE___V43*/ meltfptr[42] = /*_.PROGN___V47*/ meltfptr[46];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2965:/ clear"); -#line 2965 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V44*/ meltfptr[43] = 0; /*^clear */ -#line 2965 /*clear *//*_.CBIND_CLASS__V45*/ meltfptr[44] = 0; /*^clear */ -#line 2965 /*clear *//*_.SETQ___V46*/ meltfptr[45] = 0; /*^clear */ -#line 2965 /*clear *//*_.PROGN___V47*/ meltfptr[46] = 0; } ; } else { /*^cond.else */ -#line 2965 /*^block */ -#line 2965 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2969:/ checksignal"); -#line 2969 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L14*/ meltfnum[10] = -#line 2969 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SUPERB__V42*/ meltfptr[38]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[6])));; MELT_LOCATION ("warmelt-macro.melt:2969:/ cond"); -#line 2969 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L14*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 2969 /*^block */ -#line 2969 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2970:/ quasiblock"); -#line 2970 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 2970 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -16483,76 +13782,61 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:2971:/ checksignal"); -#line 2971 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L15*/ meltfnum[14] = -#line 2971 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SUPERVAL__V50*/ meltfptr[45]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->tabval[7])));; MELT_LOCATION ("warmelt-macro.melt:2971:/ cond"); -#line 2971 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ -#line 2971 /*^block */ -#line 2971 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2973:/ compute"); -#line 2973 "warmelt-macro.melt" /**::compute::**/ /*_.SUPERBIND__V9*/ meltfptr[8] = /*_.SETQ___V52*/ meltfptr[51] = /*_.SUPERB__V42*/ meltfptr[38];; MELT_LOCATION ("warmelt-macro.melt:2974:/ compute"); -#line 2974 "warmelt-macro.melt" /**::compute::**/ /*_.SUPERCLASS__V10*/ meltfptr[9] = /*_.SETQ___V53*/ meltfptr[52] = /*_.SUPERVAL__V50*/ meltfptr[45];; MELT_LOCATION ("warmelt-macro.melt:2972:/ quasiblock"); -#line 2972 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V54*/ meltfptr[53] = /*_.SETQ___V53*/ meltfptr[52];; /*^compute */ - /*_.IFELSE___V51*/ meltfptr[46] = /*_.PROGN___V54*/ meltfptr[53];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2971:/ clear"); -#line 2971 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V52*/ meltfptr[51] = 0; /*^clear */ -#line 2971 /*clear *//*_.SETQ___V53*/ meltfptr[52] = 0; /*^clear */ -#line 2971 /*clear *//*_.PROGN___V54*/ meltfptr[53] = 0; } ; } else { /*^cond.else */ -#line 2971 /*^block */ -#line 2971 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2977:/ getslot"); -#line 2977 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -16569,7 +13853,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2976:/ locexp"); -#line 2976 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -16582,7 +13865,6 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:2971:/ clear"); -#line 2971 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V55*/ meltfptr[51] = 0; } @@ -16593,48 +13875,38 @@ lab_endgetargs:; /*_.IFELSE___V51*/ meltfptr[46];; MELT_LOCATION ("warmelt-macro.melt:2970:/ clear"); -#line 2970 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SUPERVAL__V50*/ meltfptr[45] = 0; /*^clear */ -#line 2970 /*clear *//*_#IS_A__L15*/ meltfnum[14] = 0; /*^clear */ -#line 2970 /*clear *//*_.IFELSE___V51*/ meltfptr[46] = 0; /*_.IFELSE___V48*/ meltfptr[43] = /*_.LET___V49*/ meltfptr[44];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2969:/ clear"); -#line 2969 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V49*/ meltfptr[44] = 0; } ; } else { /*^cond.else */ -#line 2969 /*^block */ -#line 2969 /*anyblock */ { -#line 2980 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2980:/ cppif.then"); -#line 2980 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2980 /*anyblock */ { { /*^locexp */ -#line 2980 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -16643,11 +13915,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2980 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = -#line 2980 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -16656,18 +13926,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2980:/ cond"); -#line 2980 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ -#line 2980 /*^block */ -#line 2980 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = -#line 2980 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -16676,33 +13942,26 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:2980:/ checksignal"); -#line 2980 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2980 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2980 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16]; /*^apply.arg */ -#line 2980 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2980 argtab[2].meltbp_long = 2980; /*^apply.arg */ -#line 2980 argtab[3].meltbp_cstring = "scan_defclass superb"; /*^apply.arg */ -#line 2980 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERB__V42*/ meltfptr[38]; @@ -16727,11 +13986,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:2980:/ clear"); -#line 2980 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ -#line 2980 /*clear *//*_.MELT_DEBUG_FUN__V58*/ meltfptr[51] = 0; } @@ -16739,57 +13996,46 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2980 /*_.IF___V57*/ meltfptr[53] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2980:/ quasiblock"); -#line 2980 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V59*/ meltfptr[45] = /*_.IF___V57*/ meltfptr[53];; /*^compute */ - /*_.IFCPP___V56*/ meltfptr[52] = /*_.PROGN___V59*/ meltfptr[45];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2980:/ clear"); -#line 2980 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0; /*^clear */ -#line 2980 /*clear *//*_.IF___V57*/ meltfptr[53] = 0; /*^clear */ -#line 2980 /*clear *//*_.PROGN___V59*/ meltfptr[45] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2980 /*_.IFCPP___V56*/ meltfptr[52] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2981 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:2981:/ cppif.then"); -#line 2981 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 2981 /*anyblock */ { { /*^locexp */ -#line 2981 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -16798,11 +14044,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 2981 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = -#line 2981 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -16811,18 +14055,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:2981:/ cond"); -#line 2981 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then */ { /*^cond.then */ -#line 2981 /*^block */ -#line 2981 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[14] = -#line 2981 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -16831,33 +14071,26 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:2981:/ checksignal"); -#line 2981 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2981 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2981 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[14]; /*^apply.arg */ -#line 2981 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 2981 argtab[2].meltbp_long = 2981; /*^apply.arg */ -#line 2981 argtab[3].meltbp_cstring = "scan_defclass env"; /*^apply.arg */ -#line 2981 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; @@ -16882,11 +14115,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:2981:/ clear"); -#line 2981 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[14] = 0; /*^clear */ -#line 2981 /*clear *//*_.MELT_DEBUG_FUN__V62*/ meltfptr[51] = 0; } @@ -16894,44 +14125,36 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2981 /*_.IF___V61*/ meltfptr[44] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2981:/ quasiblock"); -#line 2981 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V63*/ meltfptr[53] = /*_.IF___V61*/ meltfptr[44];; /*^compute */ - /*_.IFCPP___V60*/ meltfptr[46] = /*_.PROGN___V63*/ meltfptr[53];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2981:/ clear"); -#line 2981 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0; /*^clear */ -#line 2981 /*clear *//*_.IF___V61*/ meltfptr[44] = 0; /*^clear */ -#line 2981 /*clear *//*_.PROGN___V63*/ meltfptr[53] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2981 /*_.IFCPP___V60*/ meltfptr[46] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:2983:/ getslot"); -#line 2983 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -16946,7 +14169,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2982:/ locexp"); -#line 2982 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("invalid super in defclass"), @@ -16955,19 +14177,15 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:2979:/ quasiblock"); -#line 2979 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2969:/ clear"); -#line 2969 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V56*/ meltfptr[52] = 0; /*^clear */ -#line 2969 /*clear *//*_.IFCPP___V60*/ meltfptr[46] = 0; /*^clear */ -#line 2969 /*clear *//*_.NAMED_NAME__V64*/ meltfptr[45] = 0; } ; @@ -16978,10 +14196,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2965:/ clear"); -#line 2965 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L14*/ meltfnum[10] = 0; /*^clear */ -#line 2965 /*clear *//*_.IFELSE___V48*/ meltfptr[43] = 0; } ; @@ -16990,93 +14206,70 @@ lab_endgetargs:; /*_.LET___V41*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[42];; MELT_LOCATION ("warmelt-macro.melt:2962:/ clear"); -#line 2962 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SUPERB__V42*/ meltfptr[38] = 0; /*^clear */ -#line 2962 /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ -#line 2962 /*clear *//*_.IFELSE___V43*/ meltfptr[42] = 0; MELT_LOCATION ("warmelt-macro.melt:2956:/ quasiblock"); -#line 2956 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V65*/ meltfptr[51] = /*_.LET___V41*/ meltfptr[37];; /*^compute */ - /*_.IFELSE___V35*/ meltfptr[34] = /*_.PROGN___V65*/ meltfptr[51];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2956:/ clear"); -#line 2956 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L9*/ meltfnum[8] = 0; /*^clear */ -#line 2956 /*clear *//*_#NOT__L10*/ meltfnum[9] = 0; /*^clear */ -#line 2956 /*clear *//*_.SETQ___V36*/ meltfptr[35] = 0; /*^clear */ -#line 2956 /*clear *//*_.IFCPP___V37*/ meltfptr[36] = 0; /*^clear */ -#line 2956 /*clear *//*_.LET___V41*/ meltfptr[37] = 0; /*^clear */ -#line 2956 /*clear *//*_.PROGN___V65*/ meltfptr[51] = 0; } ; } else { /*^cond.else */ -#line 2956 /*^block */ -#line 2956 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2987:/ checksignal"); -#line 2987 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L20*/ meltfnum[14] = -#line 2987 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURKW__V28*/ meltfptr[27]) == (( /*!konst_8_FIELDS */ meltfrout->tabval[8])));; MELT_LOCATION ("warmelt-macro.melt:2987:/ cond"); -#line 2987 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L20*/ meltfnum[14]) /*then */ { /*^cond.then */ -#line 2987 /*^block */ -#line 2987 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2988:/ checksignal"); -#line 2988 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2988 /*cond */ if ( /*_.FIELDNAMS__V11*/ meltfptr[10]) /*then */ { /*^cond.then */ -#line 2988 /*^block */ -#line 2988 /*anyblock */ { { /*^locexp */ -#line 2988 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -17090,39 +14283,30 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:2989:/ checksignal"); -#line 2989 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2989 /*cond */ if ( /*_.CURVAL__V32*/ meltfptr[31]) /*then */ { /*^cond.then */ -#line 2989 /*^block */ -#line 2989 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:2990:/ checksignal"); -#line 2990 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L21*/ meltfnum[16] = -#line 2990 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURVAL__V32*/ meltfptr[31]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[9])));; MELT_LOCATION ("warmelt-macro.melt:2990:/ cond"); -#line 2990 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L21*/ meltfnum[16]) /*then */ { /*^cond.then */ -#line 2990 /*^block */ -#line 2990 /*anyblock */ { @@ -17130,7 +14314,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:2991:/ locexp"); -#line 2991 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ @@ -17147,33 +14330,26 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2989:/ clear"); -#line 2989 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_NOT_A__L21*/ meltfnum[16] = 0; } ; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:2992:/ quasiblock"); -#line 2992 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 2992 MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2992 /*cond */ if ( /*_.CURVAL__V32*/ meltfptr[31]) /*then */ { /*^cond.then */ -#line 2992 /*^block */ -#line 2992 /*anyblock */ { /*^getslot */ -#line 2992 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -17189,35 +14365,28 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2992:/ clear"); -#line 2992 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SEXP_CONTENTS__V69*/ meltfptr[46] = 0; } ; } else { /*^cond.else */ -#line 2992 /*_.NAMLIST__V68*/ meltfptr[52] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:2993:/ checksignal"); -#line 2993 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2993 /*cond */ if ( /*_.CURVAL__V32*/ meltfptr[31]) /*then */ { /*^cond.then */ -#line 2993 /*^block */ -#line 2993 /*anyblock */ { /*^getslot */ -#line 2993 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -17233,99 +14402,75 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2993:/ clear"); -#line 2993 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LOCA_LOCATION__V71*/ meltfptr[43] = 0; } ; } else { /*^cond.else */ -#line 2993 /*_.NAMLOC__V70*/ meltfptr[45] = NULL;; } ; /*^compute */ - /*_#NBNAM__L22*/ meltfnum[10] = -#line 2994 "warmelt-macro.melt" /**::expr::**/ (melt_list_length ((melt_ptr_t) ( /*_.NAMLIST__V68*/ meltfptr[52])));; /*^compute */ - /*_#IX__L23*/ meltfnum[11] = 0;; /*^compute */ - /*_.NAMPAIR__V72*/ meltfptr[38] = -#line 2996 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.NAMLIST__V68*/ meltfptr[52])));; /*^compute */ - /*_.NAMTUPL__V73*/ meltfptr[42] = -#line 2997 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[10])), ( /*_#NBNAM__L22*/ meltfnum[10])));; MELT_LOCATION ("warmelt-macro.melt:2998:/ compute"); -#line 2998 "warmelt-macro.melt" /**::compute::**/ /*_.FIELDSLOC__V15*/ meltfptr[14] = /*_.SETQ___V74*/ meltfptr[35] = /*_.NAMLOC__V70*/ meltfptr[45];; MELT_LOCATION ("warmelt-macro.melt:2999:/ loop"); -#line 2999 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_NAMLOOP_1:; /*^loopbody */ -#line 2999 /*^block */ -#line 2999 /*anyblock */ { /*^checksignal */ -#line 2999 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3000:/ checksignal"); -#line 3000 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L24*/ meltfnum[8] = -#line 3000 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.NAMPAIR__V72*/ meltfptr[38])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L25*/ meltfnum[9] = -#line 3000 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L24*/ meltfnum[8]));; MELT_LOCATION ("warmelt-macro.melt:3000:/ cond"); -#line 3000 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L25*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3000 /*^block */ -#line 3000 /*anyblock */ { /*^quasiblock */ -#line 3000 /*^compute */ -#line 3000 /*_.NAMLOOP__V76*/ meltfptr[37] = NULL;; /*^exit */ -#line 3000 /*exit */ { goto labexit_NAMLOOP_1; @@ -17338,38 +14483,29 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3001:/ quasiblock"); -#line 3001 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURNAM__V77*/ meltfptr[51] = -#line 3001 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.NAMPAIR__V72*/ meltfptr[38])));; MELT_LOCATION ("warmelt-macro.melt:3002:/ checksignal"); -#line 3002 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L26*/ meltfnum[16] = -#line 3002 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CURNAM__V77*/ meltfptr[51]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[1])));; /*^compute */ - /*_#NOT__L27*/ meltfnum[26] = -#line 3002 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_A__L26*/ meltfnum[16]));; MELT_LOCATION ("warmelt-macro.melt:3002:/ cond"); -#line 3002 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L27*/ meltfnum[26]) /*then */ { /*^cond.then */ -#line 3002 /*^block */ -#line 3002 /*anyblock */ { @@ -17377,7 +14513,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3003:/ locexp"); -#line 3003 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.NAMLOC__V70*/ @@ -17394,7 +14529,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3004:/ locexp"); -#line 3004 "warmelt-macro.melt" /**::locexp::**/ meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.NAMTUPL__V73*/ meltfptr[42]), @@ -17405,56 +14539,42 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3001:/ clear"); -#line 3001 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURNAM__V77*/ meltfptr[51] = 0; /*^clear */ -#line 3001 /*clear *//*_#IS_A__L26*/ meltfnum[16] = 0; /*^clear */ -#line 3001 /*clear *//*_#NOT__L27*/ meltfnum[26] = 0; /*_.PAIR_TAIL__V78*/ meltfptr[46] = -#line 3006 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.NAMPAIR__V72*/ meltfptr[38])));; MELT_LOCATION ("warmelt-macro.melt:3006:/ compute"); -#line 3006 "warmelt-macro.melt" /**::compute::**/ /*_.NAMPAIR__V72*/ meltfptr[38] = /*_.SETQ___V79*/ meltfptr[43] = /*_.PAIR_TAIL__V78*/ meltfptr[46];; /*_#I__L28*/ meltfnum[16] = -#line 3007 "warmelt-macro.melt" /**::expr::**/ (( /*_#IX__L23*/ meltfnum[11]) + (1));; MELT_LOCATION ("warmelt-macro.melt:3007:/ compute"); -#line 3007 "warmelt-macro.melt" /**::compute::**/ /*_#IX__L23*/ meltfnum[11] = /*_#SETQ___L29*/ meltfnum[26] = /*_#I__L28*/ meltfnum[16];; MELT_LOCATION ("warmelt-macro.melt:2999:/ checksignal"); -#line 2999 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 2999 /*clear *//*_#IS_PAIR__L24*/ meltfnum[8] = 0; /*^clear */ -#line 2999 /*clear *//*_#NOT__L25*/ meltfnum[9] = 0; /*^clear */ -#line 2999 /*clear *//*_.PAIR_TAIL__V78*/ meltfptr[46] = 0; /*^clear */ -#line 2999 /*clear *//*_.SETQ___V79*/ meltfptr[43] = 0; /*^clear */ -#line 2999 /*clear *//*_#I__L28*/ meltfnum[16] = 0; /*^clear */ -#line 2999 /*clear *//*_#SETQ___L29*/ meltfnum[26] = 0; } ; @@ -17462,14 +14582,12 @@ lab_endgetargs:; goto labloop_NAMLOOP_1; labexit_NAMLOOP_1:; /*^loopepilog */ -#line 2999 /*loopepilog */ /*_.FOREVER___V75*/ meltfptr[36] = /*_.NAMLOOP__V76*/ meltfptr[37];; } ; MELT_LOCATION ("warmelt-macro.melt:3009:/ compute"); -#line 3009 "warmelt-macro.melt" /**::compute::**/ /*_.FIELDNAMS__V11*/ meltfptr[10] = /*_.SETQ___V80*/ meltfptr[51] = /*_.NAMTUPL__V73*/ meltfptr[42];; @@ -17477,101 +14595,76 @@ lab_endgetargs:; /*_.SETQ___V80*/ meltfptr[51];; MELT_LOCATION ("warmelt-macro.melt:2992:/ clear"); -#line 2992 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMLIST__V68*/ meltfptr[52] = 0; /*^clear */ -#line 2992 /*clear *//*_.NAMLOC__V70*/ meltfptr[45] = 0; /*^clear */ -#line 2992 /*clear *//*_#NBNAM__L22*/ meltfnum[10] = 0; /*^clear */ -#line 2992 /*clear *//*_#IX__L23*/ meltfnum[11] = 0; /*^clear */ -#line 2992 /*clear *//*_.NAMPAIR__V72*/ meltfptr[38] = 0; /*^clear */ -#line 2992 /*clear *//*_.NAMTUPL__V73*/ meltfptr[42] = 0; /*^clear */ -#line 2992 /*clear *//*_.SETQ___V74*/ meltfptr[35] = 0; /*^clear */ -#line 2992 /*clear *//*_.FOREVER___V75*/ meltfptr[36] = 0; /*^clear */ -#line 2992 /*clear *//*_.SETQ___V80*/ meltfptr[51] = 0; MELT_LOCATION ("warmelt-macro.melt:2987:/ quasiblock"); -#line 2987 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V81*/ meltfptr[46] = /*_.LET___V67*/ meltfptr[53];; /*^compute */ - /*_.IFELSE___V66*/ meltfptr[44] = /*_.PROGN___V81*/ meltfptr[46];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2987:/ clear"); -#line 2987 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V67*/ meltfptr[53] = 0; /*^clear */ -#line 2987 /*clear *//*_.PROGN___V81*/ meltfptr[46] = 0; } ; } else { /*^cond.else */ -#line 2987 /*^block */ -#line 2987 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3011:/ checksignal"); -#line 3011 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L30*/ meltfnum[8] = -#line 3011 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURKW__V28*/ meltfptr[27]) == (( /*!konst_11_PREDEF */ meltfrout->tabval[11])));; MELT_LOCATION ("warmelt-macro.melt:3011:/ cond"); -#line 3011 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L30*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3011 /*^block */ -#line 3011 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3012:/ checksignal"); -#line 3012 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3012 /*cond */ if ( /*_.PREDEF__V7*/ meltfptr[6]) /*then */ { /*^cond.then */ -#line 3012 /*^block */ -#line 3012 /*anyblock */ { { /*^locexp */ -#line 3012 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ @@ -17587,26 +14680,21 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3013:/ checksignal"); -#line 3013 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3013 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3013 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3013 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3013 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V83*/ meltfptr[52] = @@ -17620,26 +14708,21 @@ lab_endgetargs:; } ; /*^compute */ -#line 3013 /*_.PREDEF__V7*/ meltfptr[6] = /*_.SETQ___V84*/ meltfptr[45] = /*_.MEXPANDER__V83*/ meltfptr[52];; MELT_LOCATION ("warmelt-macro.melt:3015:/ checksignal"); -#line 3015 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_INTEGERBOX__L31*/ meltfnum[9] = -#line 3015 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.PREDEF__V7*/ meltfptr[6])) == MELTOBMAG_INT);; MELT_LOCATION ("warmelt-macro.melt:3015:/ cond"); -#line 3015 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_INTEGERBOX__L31*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3015 /*_.IFELSE___V85*/ meltfptr[38] = ( /*nil */ NULL);; } @@ -17647,31 +14730,25 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3015:/ cond.else"); -#line 3015 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3015 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3018:/ checksignal"); -#line 3018 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L32*/ meltfnum[16] = -#line 3018 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PREDEF__V7*/ meltfptr[6]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3018:/ cond"); -#line 3018 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L32*/ meltfnum[16]) /*then */ { /*^cond.then */ -#line 3018 /*_.IFELSE___V86*/ meltfptr[42] = ( /*nil */ NULL);; } @@ -17679,10 +14756,8 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3018:/ cond.else"); -#line 3018 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3018 /*anyblock */ { @@ -17690,7 +14765,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3022:/ locexp"); -#line 3022 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ @@ -17701,7 +14775,6 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3021:/ quasiblock"); -#line 3021 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ @@ -17715,10 +14788,8 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3015:/ clear"); -#line 3015 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L32*/ meltfnum[16] = 0; /*^clear */ -#line 3015 /*clear *//*_.IFELSE___V86*/ meltfptr[42] = 0; } ; @@ -17726,84 +14797,65 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3011:/ quasiblock"); -#line 3011 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V87*/ meltfptr[35] = /*_.IFELSE___V85*/ meltfptr[38];; /*^compute */ - /*_.IFELSE___V82*/ meltfptr[43] = /*_.PROGN___V87*/ meltfptr[35];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3011:/ clear"); -#line 3011 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V83*/ meltfptr[52] = 0; /*^clear */ -#line 3011 /*clear *//*_.SETQ___V84*/ meltfptr[45] = 0; /*^clear */ -#line 3011 /*clear *//*_#IS_INTEGERBOX__L31*/ meltfnum[9] = 0; /*^clear */ -#line 3011 /*clear *//*_.IFELSE___V85*/ meltfptr[38] = 0; /*^clear */ -#line 3011 /*clear *//*_.PROGN___V87*/ meltfptr[35] = 0; } ; } else { /*^cond.else */ -#line 3011 /*^block */ -#line 3011 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3026:/ checksignal"); -#line 3026 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L33*/ meltfnum[26] = -#line 3026 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURKW__V28*/ meltfptr[27]) == (( /*!konst_12_DOC */ meltfrout->tabval[12])));; MELT_LOCATION ("warmelt-macro.melt:3026:/ cond"); -#line 3026 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L33*/ meltfnum[26]) /*then */ { /*^cond.then */ -#line 3026 /*^block */ -#line 3026 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3027:/ checksignal"); -#line 3027 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3027 /*cond */ if ( /*_.DOCV__V12*/ meltfptr[11]) /*then */ { /*^cond.then */ -#line 3027 /*^block */ -#line 3027 /*anyblock */ { { /*^locexp */ -#line 3027 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ @@ -17819,45 +14871,37 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3029:/ compute"); -#line 3029 "warmelt-macro.melt" /**::compute::**/ /*_.DOCV__V12*/ meltfptr[11] = /*_.SETQ___V89*/ meltfptr[51] = /*_.CURVAL__V32*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:3026:/ quasiblock"); -#line 3026 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V90*/ meltfptr[53] = /*_.SETQ___V89*/ meltfptr[51];; /*^compute */ - /*_.IFELSE___V88*/ meltfptr[36] = /*_.PROGN___V90*/ meltfptr[53];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3026:/ clear"); -#line 3026 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V89*/ meltfptr[51] = 0; /*^clear */ -#line 3026 /*clear *//*_.PROGN___V90*/ meltfptr[53] = 0; } ; } else { /*^cond.else */ -#line 3026 /*^block */ -#line 3026 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3033:/ getslot"); -#line 3033 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -17872,7 +14916,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3032:/ locexp"); -#line 3032 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -17882,14 +14925,12 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3031:/ quasiblock"); -#line 3031 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3026:/ clear"); -#line 3026 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V91*/ meltfptr[46] = 0; } @@ -17901,10 +14942,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3011:/ clear"); -#line 3011 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#__L33*/ meltfnum[26] = 0; /*^clear */ -#line 3011 /*clear *//*_.IFELSE___V88*/ meltfptr[36] = 0; } ; @@ -17915,10 +14954,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2987:/ clear"); -#line 2987 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#__L30*/ meltfnum[8] = 0; /*^clear */ -#line 2987 /*clear *//*_.IFELSE___V82*/ meltfptr[43] = 0; } ; @@ -17929,10 +14966,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:2956:/ clear"); -#line 2956 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#__L20*/ meltfnum[14] = 0; /*^clear */ -#line 2956 /*clear *//*_.IFELSE___V66*/ meltfptr[44] = 0; } ; @@ -17941,79 +14976,59 @@ lab_endgetargs:; /*_.LET___V31*/ meltfptr[30] = /*_.IFELSE___V35*/ meltfptr[34];; MELT_LOCATION ("warmelt-macro.melt:2953:/ clear"); -#line 2953 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURVAL__V32*/ meltfptr[31] = 0; /*^clear */ -#line 2953 /*clear *//*_.PAIR_TAIL__V33*/ meltfptr[32] = 0; /*^clear */ -#line 2953 /*clear *//*_.SETQ___V34*/ meltfptr[33] = 0; /*^clear */ -#line 2953 /*clear *//*_#__L8*/ meltfnum[7] = 0; /*^clear */ -#line 2953 /*clear *//*_.IFELSE___V35*/ meltfptr[34] = 0; /*_.LET___V27*/ meltfptr[26] = /*_.LET___V31*/ meltfptr[30];; MELT_LOCATION ("warmelt-macro.melt:2949:/ clear"); -#line 2949 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURKW__V28*/ meltfptr[27] = 0; /*^clear */ -#line 2949 /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; /*^clear */ -#line 2949 /*clear *//*_#NOT__L7*/ meltfnum[6] = 0; /*^clear */ -#line 2949 /*clear *//*_.PAIR_TAIL__V29*/ meltfptr[28] = 0; /*^clear */ -#line 2949 /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0; /*^clear */ -#line 2949 /*clear *//*_.LET___V31*/ meltfptr[30] = 0; MELT_LOCATION ("warmelt-macro.melt:2947:/ checksignal"); -#line 2947 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 2947 /*clear *//*_#IS_PAIR__L4*/ meltfnum[0] = 0; /*^clear */ -#line 2947 /*clear *//*_#NOT__L5*/ meltfnum[4] = 0; /*^clear */ -#line 2947 /*clear *//*_.LET___V27*/ meltfptr[26] = 0; } ; ; goto labloop_SCANLOOP_1; labexit_SCANLOOP_1:; /*^loopepilog */ -#line 2947 /*loopepilog */ /*_.FOREVER___V25*/ meltfptr[24] = /*_.SCANLOOP__V26*/ meltfptr[25];; } ; -#line 3036 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3036:/ cppif.then"); -#line 3036 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3036 /*anyblock */ { { /*^locexp */ -#line 3036 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -18022,11 +15037,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3036 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L34*/ meltfnum[10] = -#line 3036 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -18035,18 +15048,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3036:/ cond"); -#line 3036 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L34*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 3036 /*^block */ -#line 3036 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[11] = -#line 3036 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -18054,30 +15063,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3036:/ checksignal"); -#line 3036 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3036 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3036 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[11]; /*^apply.arg */ -#line 3036 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3036 argtab[2].meltbp_long = 3036; /*^apply.arg */ -#line 3036 argtab[3].meltbp_cstring = "scan_defclass returns symb"; /*^apply.arg */ -#line 3036 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SYMB__V18*/ meltfptr[17]; /*_.MELT_DEBUG_FUN__V94*/ meltfptr[45] = @@ -18095,62 +15097,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3036:/ clear"); -#line 3036 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L35*/ meltfnum[11] = 0; /*^clear */ -#line 3036 /*clear *//*_.MELT_DEBUG_FUN__V94*/ meltfptr[45] = 0; } ; } else { /*^cond.else */ -#line 3036 /*_.IF___V93*/ meltfptr[52] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3036:/ quasiblock"); -#line 3036 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V95*/ meltfptr[38] = /*_.IF___V93*/ meltfptr[52];; /*^compute */ - /*_.IFCPP___V92*/ meltfptr[42] = /*_.PROGN___V95*/ meltfptr[38];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3036:/ clear"); -#line 3036 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L34*/ meltfnum[10] = 0; /*^clear */ -#line 3036 /*clear *//*_.IF___V93*/ meltfptr[52] = 0; /*^clear */ -#line 3036 /*clear *//*_.PROGN___V95*/ meltfptr[38] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3036 /*_.IFCPP___V92*/ meltfptr[42] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3037 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3037:/ cppif.then"); -#line 3037 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3037 /*anyblock */ { { /*^locexp */ -#line 3037 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -18159,11 +15148,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3037 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L36*/ meltfnum[16] = -#line 3037 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -18172,18 +15159,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3037:/ cond"); -#line 3037 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[16]) /*then */ { /*^cond.then */ -#line 3037 /*^block */ -#line 3037 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[9] = -#line 3037 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -18191,30 +15174,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3037:/ checksignal"); -#line 3037 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3037 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3037 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[9]; /*^apply.arg */ -#line 3037 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3037 argtab[2].meltbp_long = 3037; /*^apply.arg */ -#line 3037 argtab[3].meltbp_cstring = "scan_defclass returns loc"; /*^apply.arg */ -#line 3037 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V14*/ meltfptr[13]; /*_.MELT_DEBUG_FUN__V98*/ meltfptr[53] = @@ -18232,62 +15208,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3037:/ clear"); -#line 3037 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum[9] = 0; /*^clear */ -#line 3037 /*clear *//*_.MELT_DEBUG_FUN__V98*/ meltfptr[53] = 0; } ; } else { /*^cond.else */ -#line 3037 /*_.IF___V97*/ meltfptr[51] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3037:/ quasiblock"); -#line 3037 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V99*/ meltfptr[46] = /*_.IF___V97*/ meltfptr[51];; /*^compute */ - /*_.IFCPP___V96*/ meltfptr[35] = /*_.PROGN___V99*/ meltfptr[46];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3037:/ clear"); -#line 3037 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum[16] = 0; /*^clear */ -#line 3037 /*clear *//*_.IF___V97*/ meltfptr[51] = 0; /*^clear */ -#line 3037 /*clear *//*_.PROGN___V99*/ meltfptr[46] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3037 /*_.IFCPP___V96*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3038 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3038:/ cppif.then"); -#line 3038 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3038 /*anyblock */ { { /*^locexp */ -#line 3038 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -18296,11 +15259,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3038 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L38*/ meltfnum[26] = -#line 3038 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -18309,18 +15270,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3038:/ cond"); -#line 3038 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L38*/ meltfnum[26]) /*then */ { /*^cond.then */ -#line 3038 /*^block */ -#line 3038 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[8] = -#line 3038 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -18328,30 +15285,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3038:/ checksignal"); -#line 3038 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3038 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3038 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[8]; /*^apply.arg */ -#line 3038 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3038 argtab[2].meltbp_long = 3038; /*^apply.arg */ -#line 3038 argtab[3].meltbp_cstring = "scan_defclass returns supernam"; /*^apply.arg */ -#line 3038 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERNAM__V8*/ meltfptr[7]; /*_.MELT_DEBUG_FUN__V102*/ meltfptr[44] = @@ -18369,62 +15319,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3038:/ clear"); -#line 3038 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L39*/ meltfnum[8] = 0; /*^clear */ -#line 3038 /*clear *//*_.MELT_DEBUG_FUN__V102*/ meltfptr[44] = 0; } ; } else { /*^cond.else */ -#line 3038 /*_.IF___V101*/ meltfptr[43] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3038:/ quasiblock"); -#line 3038 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V103*/ meltfptr[31] = /*_.IF___V101*/ meltfptr[43];; /*^compute */ - /*_.IFCPP___V100*/ meltfptr[36] = /*_.PROGN___V103*/ meltfptr[31];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3038:/ clear"); -#line 3038 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L38*/ meltfnum[26] = 0; /*^clear */ -#line 3038 /*clear *//*_.IF___V101*/ meltfptr[43] = 0; /*^clear */ -#line 3038 /*clear *//*_.PROGN___V103*/ meltfptr[31] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3038 /*_.IFCPP___V100*/ meltfptr[36] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3039 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3039:/ cppif.then"); -#line 3039 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3039 /*anyblock */ { { /*^locexp */ -#line 3039 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -18433,11 +15370,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3039 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L40*/ meltfnum[14] = -#line 3039 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -18446,18 +15381,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3039:/ cond"); -#line 3039 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L40*/ meltfnum[14]) /*then */ { /*^cond.then */ -#line 3039 /*^block */ -#line 3039 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L41*/ meltfnum[7] = -#line 3039 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -18465,30 +15396,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3039:/ checksignal"); -#line 3039 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3039 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3039 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L41*/ meltfnum[7]; /*^apply.arg */ -#line 3039 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3039 argtab[2].meltbp_long = 3039; /*^apply.arg */ -#line 3039 argtab[3].meltbp_cstring = "scan_defclass returns superbinds"; /*^apply.arg */ -#line 3039 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERBIND__V9*/ meltfptr[8]; /*_.MELT_DEBUG_FUN__V106*/ meltfptr[34] = @@ -18506,62 +15430,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3039:/ clear"); -#line 3039 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L41*/ meltfnum[7] = 0; /*^clear */ -#line 3039 /*clear *//*_.MELT_DEBUG_FUN__V106*/ meltfptr[34] = 0; } ; } else { /*^cond.else */ -#line 3039 /*_.IF___V105*/ meltfptr[33] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3039:/ quasiblock"); -#line 3039 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V107*/ meltfptr[27] = /*_.IF___V105*/ meltfptr[33];; /*^compute */ - /*_.IFCPP___V104*/ meltfptr[32] = /*_.PROGN___V107*/ meltfptr[27];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3039:/ clear"); -#line 3039 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L40*/ meltfnum[14] = 0; /*^clear */ -#line 3039 /*clear *//*_.IF___V105*/ meltfptr[33] = 0; /*^clear */ -#line 3039 /*clear *//*_.PROGN___V107*/ meltfptr[27] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3039 /*_.IFCPP___V104*/ meltfptr[32] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3040 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3040:/ cppif.then"); -#line 3040 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3040 /*anyblock */ { { /*^locexp */ -#line 3040 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -18570,11 +15481,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3040 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L42*/ meltfnum[5] = -#line 3040 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -18583,18 +15492,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3040:/ cond"); -#line 3040 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L42*/ meltfnum[5]) /*then */ { /*^cond.then */ -#line 3040 /*^block */ -#line 3040 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[6] = -#line 3040 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -18602,30 +15507,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3040:/ checksignal"); -#line 3040 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3040 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3040 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[6]; /*^apply.arg */ -#line 3040 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3040 argtab[2].meltbp_long = 3040; /*^apply.arg */ -#line 3040 argtab[3].meltbp_cstring = "scan_defclass returns superclass"; /*^apply.arg */ -#line 3040 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERCLASS__V10*/ meltfptr[9]; /*_.MELT_DEBUG_FUN__V110*/ meltfptr[30] = @@ -18643,62 +15541,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3040:/ clear"); -#line 3040 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L43*/ meltfnum[6] = 0; /*^clear */ -#line 3040 /*clear *//*_.MELT_DEBUG_FUN__V110*/ meltfptr[30] = 0; } ; } else { /*^cond.else */ -#line 3040 /*_.IF___V109*/ meltfptr[29] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3040:/ quasiblock"); -#line 3040 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V111*/ meltfptr[26] = /*_.IF___V109*/ meltfptr[29];; /*^compute */ - /*_.IFCPP___V108*/ meltfptr[28] = /*_.PROGN___V111*/ meltfptr[26];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3040:/ clear"); -#line 3040 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L42*/ meltfnum[5] = 0; /*^clear */ -#line 3040 /*clear *//*_.IF___V109*/ meltfptr[29] = 0; /*^clear */ -#line 3040 /*clear *//*_.PROGN___V111*/ meltfptr[26] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3040 /*_.IFCPP___V108*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3041 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3041:/ cppif.then"); -#line 3041 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3041 /*anyblock */ { { /*^locexp */ -#line 3041 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -18707,11 +15592,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3041 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L44*/ meltfnum[0] = -#line 3041 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -18720,18 +15603,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3041:/ cond"); -#line 3041 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L44*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3041 /*^block */ -#line 3041 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L45*/ meltfnum[4] = -#line 3041 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -18739,30 +15618,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3041:/ checksignal"); -#line 3041 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3041 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3041 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L45*/ meltfnum[4]; /*^apply.arg */ -#line 3041 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3041 argtab[2].meltbp_long = 3041; /*^apply.arg */ -#line 3041 argtab[3].meltbp_cstring = "scan_defclass returns predef"; /*^apply.arg */ -#line 3041 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.PREDEF__V7*/ meltfptr[6]; /*_.MELT_DEBUG_FUN__V114*/ meltfptr[38] = @@ -18780,62 +15652,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3041:/ clear"); -#line 3041 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L45*/ meltfnum[4] = 0; /*^clear */ -#line 3041 /*clear *//*_.MELT_DEBUG_FUN__V114*/ meltfptr[38] = 0; } ; } else { /*^cond.else */ -#line 3041 /*_.IF___V113*/ meltfptr[52] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3041:/ quasiblock"); -#line 3041 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V115*/ meltfptr[53] = /*_.IF___V113*/ meltfptr[52];; /*^compute */ - /*_.IFCPP___V112*/ meltfptr[45] = /*_.PROGN___V115*/ meltfptr[53];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3041:/ clear"); -#line 3041 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L44*/ meltfnum[0] = 0; /*^clear */ -#line 3041 /*clear *//*_.IF___V113*/ meltfptr[52] = 0; /*^clear */ -#line 3041 /*clear *//*_.PROGN___V115*/ meltfptr[53] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3041 /*_.IFCPP___V112*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3042 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3042:/ cppif.then"); -#line 3042 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3042 /*anyblock */ { { /*^locexp */ -#line 3042 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -18844,11 +15703,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3042 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L46*/ meltfnum[11] = -#line 3042 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -18857,18 +15714,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3042:/ cond"); -#line 3042 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L46*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 3042 /*^block */ -#line 3042 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[10] = -#line 3042 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -18876,30 +15729,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3042:/ checksignal"); -#line 3042 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3042 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3042 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[10]; /*^apply.arg */ -#line 3042 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3042 argtab[2].meltbp_long = 3042; /*^apply.arg */ -#line 3042 argtab[3].meltbp_cstring = "scan_defclass returns fieldnams"; /*^apply.arg */ -#line 3042 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FIELDNAMS__V11*/ meltfptr[10]; /*_.MELT_DEBUG_FUN__V118*/ meltfptr[44] = @@ -18917,62 +15763,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3042:/ clear"); -#line 3042 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L47*/ meltfnum[10] = 0; /*^clear */ -#line 3042 /*clear *//*_.MELT_DEBUG_FUN__V118*/ meltfptr[44] = 0; } ; } else { /*^cond.else */ -#line 3042 /*_.IF___V117*/ meltfptr[46] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3042:/ quasiblock"); -#line 3042 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V119*/ meltfptr[43] = /*_.IF___V117*/ meltfptr[46];; /*^compute */ - /*_.IFCPP___V116*/ meltfptr[51] = /*_.PROGN___V119*/ meltfptr[43];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3042:/ clear"); -#line 3042 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L46*/ meltfnum[11] = 0; /*^clear */ -#line 3042 /*clear *//*_.IF___V117*/ meltfptr[46] = 0; /*^clear */ -#line 3042 /*clear *//*_.PROGN___V119*/ meltfptr[43] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3042 /*_.IFCPP___V116*/ meltfptr[51] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3043 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3043:/ cppif.then"); -#line 3043 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3043 /*anyblock */ { { /*^locexp */ -#line 3043 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -18981,11 +15814,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3043 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L48*/ meltfnum[9] = -#line 3043 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -18994,18 +15825,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3043:/ cond"); -#line 3043 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L48*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3043 /*^block */ -#line 3043 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L49*/ meltfnum[16] = -#line 3043 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -19013,30 +15840,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3043:/ checksignal"); -#line 3043 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3043 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3043 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L49*/ meltfnum[16]; /*^apply.arg */ -#line 3043 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3043 argtab[2].meltbp_long = 3043; /*^apply.arg */ -#line 3043 argtab[3].meltbp_cstring = "scan_defclass returns fieldsloc"; /*^apply.arg */ -#line 3043 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FIELDSLOC__V15*/ meltfptr[14]; /*_.MELT_DEBUG_FUN__V122*/ meltfptr[33] = @@ -19054,62 +15874,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3043:/ clear"); -#line 3043 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L49*/ meltfnum[16] = 0; /*^clear */ -#line 3043 /*clear *//*_.MELT_DEBUG_FUN__V122*/ meltfptr[33] = 0; } ; } else { /*^cond.else */ -#line 3043 /*_.IF___V121*/ meltfptr[34] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3043:/ quasiblock"); -#line 3043 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V123*/ meltfptr[27] = /*_.IF___V121*/ meltfptr[34];; /*^compute */ - /*_.IFCPP___V120*/ meltfptr[31] = /*_.PROGN___V123*/ meltfptr[27];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3043:/ clear"); -#line 3043 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L48*/ meltfnum[9] = 0; /*^clear */ -#line 3043 /*clear *//*_.IF___V121*/ meltfptr[34] = 0; /*^clear */ -#line 3043 /*clear *//*_.PROGN___V123*/ meltfptr[27] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3043 /*_.IFCPP___V120*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3044 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3044:/ cppif.then"); -#line 3044 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3044 /*anyblock */ { { /*^locexp */ -#line 3044 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -19118,11 +15925,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3044 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L50*/ meltfnum[8] = -#line 3044 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -19131,18 +15936,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3044:/ cond"); -#line 3044 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L50*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3044 /*^block */ -#line 3044 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[26] = -#line 3044 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -19150,30 +15951,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3044:/ checksignal"); -#line 3044 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3044 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3044 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[26]; /*^apply.arg */ -#line 3044 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3044 argtab[2].meltbp_long = 3044; /*^apply.arg */ -#line 3044 argtab[3].meltbp_cstring = "scan_defclass returns docv"; /*^apply.arg */ -#line 3044 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.DOCV__V12*/ meltfptr[11]; /*_.MELT_DEBUG_FUN__V126*/ meltfptr[26] = @@ -19191,63 +15985,50 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3044:/ clear"); -#line 3044 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L51*/ meltfnum[26] = 0; /*^clear */ -#line 3044 /*clear *//*_.MELT_DEBUG_FUN__V126*/ meltfptr[26] = 0; } ; } else { /*^cond.else */ -#line 3044 /*_.IF___V125*/ meltfptr[29] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3044:/ quasiblock"); -#line 3044 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V127*/ meltfptr[38] = /*_.IF___V125*/ meltfptr[29];; /*^compute */ - /*_.IFCPP___V124*/ meltfptr[30] = /*_.PROGN___V127*/ meltfptr[38];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3044:/ clear"); -#line 3044 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L50*/ meltfnum[8] = 0; /*^clear */ -#line 3044 /*clear *//*_.IF___V125*/ meltfptr[29] = 0; /*^clear */ -#line 3044 /*clear *//*_.PROGN___V127*/ meltfptr[38] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3044 /*_.IFCPP___V124*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3045:/ checksignal"); -#line 3045 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3045 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3045 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3045 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V14*/ meltfptr[13]; /*_.WARN_IF_REDEFINED__V128*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t) @@ -19258,16 +16039,13 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3046:/ checksignal"); -#line 3046 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3046 /*_.RETVAL___V1*/ meltfptr[0] = /*_.SYMB__V18*/ meltfptr[17];; MELT_LOCATION ("warmelt-macro.melt:3046:/ putxtraresult"); -#line 3046 "warmelt-macro.melt" /**::putxtraresult::**/ if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -19277,7 +16055,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]); ; /*^putxtraresult */ -#line 3046 if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[1] != MELTBPAR_PTR) @@ -19287,7 +16064,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.SUPERNAM__V8*/ meltfptr[7]); ; /*^putxtraresult */ -#line 3046 if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[2] != MELTBPAR_PTR) @@ -19297,7 +16073,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.SUPERBIND__V9*/ meltfptr[8]); ; /*^putxtraresult */ -#line 3046 if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[3] != MELTBPAR_PTR) @@ -19307,7 +16082,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.SUPERCLASS__V10*/ meltfptr[9]); ; /*^putxtraresult */ -#line 3046 if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[4] != MELTBPAR_PTR) @@ -19317,7 +16091,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.PREDEF__V7*/ meltfptr[6]); ; /*^putxtraresult */ -#line 3046 if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[5] != MELTBPAR_PTR) @@ -19327,7 +16100,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FIELDNAMS__V11*/ meltfptr[10]); ; /*^putxtraresult */ -#line 3046 if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[6] != MELTBPAR_PTR) @@ -19337,7 +16109,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FIELDSLOC__V15*/ meltfptr[14]); ; /*^putxtraresult */ -#line 3046 if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[7] != MELTBPAR_PTR) @@ -19347,104 +16118,73 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.DOCV__V12*/ meltfptr[11]); ; /*^finalreturn */ -#line 3046 ; /*finalret */ goto labend_rout; /*_.LET___V6*/ meltfptr[5] = /*_.RETURN___V129*/ meltfptr[53];; MELT_LOCATION ("warmelt-macro.melt:2931:/ clear"); -#line 2931 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PREDEF__V7*/ meltfptr[6] = 0; /*^clear */ -#line 2931 /*clear *//*_.SUPERNAM__V8*/ meltfptr[7] = 0; /*^clear */ -#line 2931 /*clear *//*_.SUPERBIND__V9*/ meltfptr[8] = 0; /*^clear */ -#line 2931 /*clear *//*_.SUPERCLASS__V10*/ meltfptr[9] = 0; /*^clear */ -#line 2931 /*clear *//*_.FIELDNAMS__V11*/ meltfptr[10] = 0; /*^clear */ -#line 2931 /*clear *//*_.DOCV__V12*/ meltfptr[11] = 0; /*^clear */ -#line 2931 /*clear *//*_.CONT__V13*/ meltfptr[12] = 0; /*^clear */ -#line 2931 /*clear *//*_.LOC__V14*/ meltfptr[13] = 0; /*^clear */ -#line 2931 /*clear *//*_.FIELDSLOC__V15*/ meltfptr[14] = 0; /*^clear */ -#line 2931 /*clear *//*_.LIST_FIRST__V16*/ meltfptr[15] = 0; /*^clear */ -#line 2931 /*clear *//*_.CURPAIR__V17*/ meltfptr[16] = 0; /*^clear */ -#line 2931 /*clear *//*_.SYMB__V18*/ meltfptr[17] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V19*/ meltfptr[18] = 0; /*^clear */ -#line 2931 /*clear *//*_#IS_NOT_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 2931 /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[19] = 0; /*^clear */ -#line 2931 /*clear *//*_.SETQ___V24*/ meltfptr[20] = 0; /*^clear */ -#line 2931 /*clear *//*_.FOREVER___V25*/ meltfptr[24] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V92*/ meltfptr[42] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V96*/ meltfptr[35] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V100*/ meltfptr[36] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V104*/ meltfptr[32] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V108*/ meltfptr[28] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V112*/ meltfptr[45] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V116*/ meltfptr[51] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V120*/ meltfptr[31] = 0; /*^clear */ -#line 2931 /*clear *//*_.IFCPP___V124*/ meltfptr[30] = 0; /*^clear */ -#line 2931 /*clear *//*_.WARN_IF_REDEFINED__V128*/ meltfptr[52] = 0; /*^clear */ -#line 2931 /*clear *//*_.RETURN___V129*/ meltfptr[53] = 0; MELT_LOCATION ("warmelt-macro.melt:2930:/ quasiblock"); -#line 2930 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[5];; { MELT_LOCATION ("warmelt-macro.melt:2930:/ locexp"); -#line 2930 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19455,13 +16195,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2930 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2930 /*clear *//*_.LET___V6*/ meltfptr[5] = 0; } @@ -19480,7 +16218,6 @@ labend_rout: } /*end meltrout_44_warmelt_macro_SCAN_DEFCLASS */ -#line 3050 "warmelt-macro.melt" /**::proc::**/ @@ -19557,12 +16294,10 @@ meltrout_45_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3050:/ getarg"); -#line 3050 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3050 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -19572,7 +16307,6 @@ meltrout_45_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3050 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -19583,7 +16317,6 @@ meltrout_45_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 3050 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -19596,44 +16329,34 @@ meltrout_45_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3050 /*anyblock*/ { -#line 3051 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3051:/ cppif.then"); -#line 3051 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3051 /*anyblock */ { /*^checksignal */ -#line 3051 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3051 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3051:/ cond"); -#line 3051 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3051 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3051:/ cond.else"); -#line 3051 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3051 /*anyblock */ { @@ -19642,7 +16365,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3051 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -19657,58 +16379,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3051:/ clear"); -#line 3051 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3051 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3051 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3052 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3052:/ cppif.then"); -#line 3052 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3052 /*anyblock */ { /*^checksignal */ -#line 3052 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3052 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3052:/ cond"); -#line 3052 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3052 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3052:/ cond.else"); -#line 3052 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3052 /*anyblock */ { @@ -19717,7 +16426,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3052 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -19732,38 +16440,30 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3052:/ clear"); -#line 3052 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3052 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3052 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3053 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3053:/ cppif.then"); -#line 3053 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3053 /*anyblock */ { { /*^locexp */ -#line 3053 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -19772,11 +16472,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3053 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = -#line 3053 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -19785,18 +16483,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3053:/ cond"); -#line 3053 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3053 /*^block */ -#line 3053 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = -#line 3053 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -19804,29 +16498,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3053:/ checksignal"); -#line 3053 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3053 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3053 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg */ -#line 3053 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3053 argtab[2].meltbp_long = 3053; /*^apply.arg */ -#line 3053 argtab[3].meltbp_cstring = "mexp.defclass sexpr"; /*^apply.arg */ -#line 3053 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = @@ -19844,58 +16531,46 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3053:/ clear"); -#line 3053 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ -#line 3053 /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; } ; } else { /*^cond.else */ -#line 3053 /*_.IF___V11*/ meltfptr[10] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3053:/ quasiblock"); -#line 3053 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3053:/ clear"); -#line 3053 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ -#line 3053 /*clear *//*_.IF___V11*/ meltfptr[10] = 0; /*^clear */ -#line 3053 /*clear *//*_.PROGN___V13*/ meltfptr[11] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3053 /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3056:/ checksignal"); -#line 3056 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3054:/ quasiblock"); -#line 3054 "warmelt-macro.melt" /**::quasiblock::**/ /*^multiapply */ -#line 3054 /*multiapply 4args, 8x.res */ { union meltparam_un argtab[3]; @@ -19904,43 +16579,31 @@ lab_endgetargs:; memset (&restab, 0, sizeof (restab)); memset (&argtab, 0, sizeof (argtab)); /*^multiapply.arg */ -#line 3054 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^multiapply.arg */ -#line 3054 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^multiapply.arg */ -#line 3054 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*^multiapply.xres */ -#line 3054 restab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V16*/ meltfptr[15]; /*^multiapply.xres */ -#line 3054 restab[1].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERNAM__V17*/ meltfptr[16]; /*^multiapply.xres */ -#line 3054 restab[2].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERBIND__V18*/ meltfptr[17]; /*^multiapply.xres */ -#line 3054 restab[3].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERCLASS__V19*/ meltfptr[18]; /*^multiapply.xres */ -#line 3054 restab[4].meltbp_aptr = (melt_ptr_t *) & /*_.PREDEF__V20*/ meltfptr[19]; /*^multiapply.xres */ -#line 3054 restab[5].meltbp_aptr = (melt_ptr_t *) & /*_.FIELDNAMS__V21*/ meltfptr[20]; /*^multiapply.xres */ -#line 3054 restab[6].meltbp_aptr = (melt_ptr_t *) & /*_.FIELDSLOC__V22*/ meltfptr[21]; /*^multiapply.xres */ -#line 3054 restab[7].meltbp_aptr = (melt_ptr_t *) & /*_.DOCV__V23*/ meltfptr[22]; /*^multiapply.appl */ -#line 3054 /*_.SYMB__V15*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t) (( /*!SCAN_DEFCLASS */ meltfrout->tabval[3])), @@ -19953,23 +16616,18 @@ lab_endgetargs:; } ; /*^quasiblock */ -#line 3054 -#line 3057 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3057:/ cppif.then"); -#line 3057 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3057 /*anyblock */ { { /*^locexp */ -#line 3057 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -19978,11 +16636,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3057 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[3] = -#line 3057 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -19991,18 +16647,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3057:/ cond"); -#line 3057 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3057 /*^block */ -#line 3057 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = -#line 3057 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -20010,29 +16662,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3057:/ checksignal"); -#line 3057 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3057 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3057 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg */ -#line 3057 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3057 argtab[2].meltbp_long = 3057; /*^apply.arg */ -#line 3057 argtab[3].meltbp_cstring = "mexp.defclass scanned symb"; /*^apply.arg */ -#line 3057 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SYMB__V15*/ meltfptr[11]; /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = @@ -20050,62 +16695,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3057:/ clear"); -#line 3057 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; /*^clear */ -#line 3057 /*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0; } ; } else { /*^cond.else */ -#line 3057 /*_.IF___V25*/ meltfptr[24] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3057:/ quasiblock"); -#line 3057 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[24];; /*^compute */ - /*_.IFCPP___V24*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[25];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3057:/ clear"); -#line 3057 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0; /*^clear */ -#line 3057 /*clear *//*_.IF___V25*/ meltfptr[24] = 0; /*^clear */ -#line 3057 /*clear *//*_.PROGN___V27*/ meltfptr[25] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3057 /*_.IFCPP___V24*/ meltfptr[23] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3058 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3058:/ cppif.then"); -#line 3058 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3058 /*anyblock */ { { /*^locexp */ -#line 3058 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -20114,11 +16746,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3058 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = -#line 3058 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -20127,18 +16757,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3058:/ cond"); -#line 3058 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3058 /*^block */ -#line 3058 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[3] = -#line 3058 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -20146,29 +16772,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3058:/ checksignal"); -#line 3058 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3058 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3058 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[3]; /*^apply.arg */ -#line 3058 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3058 argtab[2].meltbp_long = 3058; /*^apply.arg */ -#line 3058 argtab[3].meltbp_cstring = "mexp.defclass scanned loc"; /*^apply.arg */ -#line 3058 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V16*/ meltfptr[15]; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = @@ -20186,62 +16805,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3058:/ clear"); -#line 3058 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[3] = 0; /*^clear */ -#line 3058 /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; } ; } else { /*^cond.else */ -#line 3058 /*_.IF___V29*/ meltfptr[25] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3058:/ quasiblock"); -#line 3058 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[25];; /*^compute */ - /*_.IFCPP___V28*/ meltfptr[24] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3058:/ clear"); -#line 3058 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ -#line 3058 /*clear *//*_.IF___V29*/ meltfptr[25] = 0; /*^clear */ -#line 3058 /*clear *//*_.PROGN___V31*/ meltfptr[29] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3058 /*_.IFCPP___V28*/ meltfptr[24] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3059 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3059:/ cppif.then"); -#line 3059 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3059 /*anyblock */ { { /*^locexp */ -#line 3059 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -20250,11 +16856,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3059 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L9*/ meltfnum[3] = -#line 3059 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -20263,18 +16867,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3059:/ cond"); -#line 3059 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3059 /*^block */ -#line 3059 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = -#line 3059 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -20282,30 +16882,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3059:/ checksignal"); -#line 3059 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3059 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3059 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0]; /*^apply.arg */ -#line 3059 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3059 argtab[2].meltbp_long = 3059; /*^apply.arg */ -#line 3059 argtab[3].meltbp_cstring = "mexp.defclass scanned supernam"; /*^apply.arg */ -#line 3059 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERNAM__V17*/ meltfptr[16]; /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = @@ -20323,62 +16916,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3059:/ clear"); -#line 3059 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0; /*^clear */ -#line 3059 /*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0; } ; } else { /*^cond.else */ -#line 3059 /*_.IF___V33*/ meltfptr[29] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3059:/ quasiblock"); -#line 3059 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V35*/ meltfptr[33] = /*_.IF___V33*/ meltfptr[29];; /*^compute */ - /*_.IFCPP___V32*/ meltfptr[25] = /*_.PROGN___V35*/ meltfptr[33];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3059:/ clear"); -#line 3059 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[3] = 0; /*^clear */ -#line 3059 /*clear *//*_.IF___V33*/ meltfptr[29] = 0; /*^clear */ -#line 3059 /*clear *//*_.PROGN___V35*/ meltfptr[33] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3059 /*_.IFCPP___V32*/ meltfptr[25] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3060 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3060:/ cppif.then"); -#line 3060 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3060 /*anyblock */ { { /*^locexp */ -#line 3060 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -20387,11 +16967,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3060 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[0] = -#line 3060 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -20400,18 +16978,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3060:/ cond"); -#line 3060 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3060 /*^block */ -#line 3060 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[3] = -#line 3060 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -20419,30 +16993,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3060:/ checksignal"); -#line 3060 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3060 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3060 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[3]; /*^apply.arg */ -#line 3060 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3060 argtab[2].meltbp_long = 3060; /*^apply.arg */ -#line 3060 argtab[3].meltbp_cstring = "mexp.defclass scanned superbind"; /*^apply.arg */ -#line 3060 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERBIND__V18*/ meltfptr[17]; /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = @@ -20460,62 +17027,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3060:/ clear"); -#line 3060 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[3] = 0; /*^clear */ -#line 3060 /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0; } ; } else { /*^cond.else */ -#line 3060 /*_.IF___V37*/ meltfptr[33] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3060:/ quasiblock"); -#line 3060 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[33];; /*^compute */ - /*_.IFCPP___V36*/ meltfptr[29] = /*_.PROGN___V39*/ meltfptr[37];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3060:/ clear"); -#line 3060 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0; /*^clear */ -#line 3060 /*clear *//*_.IF___V37*/ meltfptr[33] = 0; /*^clear */ -#line 3060 /*clear *//*_.PROGN___V39*/ meltfptr[37] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3060 /*_.IFCPP___V36*/ meltfptr[29] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3061 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3061:/ cppif.then"); -#line 3061 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3061 /*anyblock */ { { /*^locexp */ -#line 3061 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -20524,11 +17078,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3061 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L13*/ meltfnum[3] = -#line 3061 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -20537,18 +17089,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3061:/ cond"); -#line 3061 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3061 /*^block */ -#line 3061 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0] = -#line 3061 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -20556,30 +17104,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3061:/ checksignal"); -#line 3061 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3061 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3061 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0]; /*^apply.arg */ -#line 3061 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3061 argtab[2].meltbp_long = 3061; /*^apply.arg */ -#line 3061 argtab[3].meltbp_cstring = "mexp.defclass scanned superclass"; /*^apply.arg */ -#line 3061 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERCLASS__V19*/ meltfptr[18]; /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = @@ -20597,62 +17138,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3061:/ clear"); -#line 3061 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0] = 0; /*^clear */ -#line 3061 /*clear *//*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0; } ; } else { /*^cond.else */ -#line 3061 /*_.IF___V41*/ meltfptr[37] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3061:/ quasiblock"); -#line 3061 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V43*/ meltfptr[41] = /*_.IF___V41*/ meltfptr[37];; /*^compute */ - /*_.IFCPP___V40*/ meltfptr[33] = /*_.PROGN___V43*/ meltfptr[41];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3061:/ clear"); -#line 3061 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[3] = 0; /*^clear */ -#line 3061 /*clear *//*_.IF___V41*/ meltfptr[37] = 0; /*^clear */ -#line 3061 /*clear *//*_.PROGN___V43*/ meltfptr[41] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3061 /*_.IFCPP___V40*/ meltfptr[33] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3062 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3062:/ cppif.then"); -#line 3062 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3062 /*anyblock */ { { /*^locexp */ -#line 3062 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -20661,11 +17189,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3062 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L15*/ meltfnum[0] = -#line 3062 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -20674,18 +17200,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3062:/ cond"); -#line 3062 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3062 /*^block */ -#line 3062 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[3] = -#line 3062 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -20693,30 +17215,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3062:/ checksignal"); -#line 3062 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3062 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3062 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[3]; /*^apply.arg */ -#line 3062 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3062 argtab[2].meltbp_long = 3062; /*^apply.arg */ -#line 3062 argtab[3].meltbp_cstring = "mexp.defclass scanned predef"; /*^apply.arg */ -#line 3062 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.PREDEF__V20*/ meltfptr[19]; /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = @@ -20734,62 +17249,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3062:/ clear"); -#line 3062 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[3] = 0; /*^clear */ -#line 3062 /*clear *//*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0; } ; } else { /*^cond.else */ -#line 3062 /*_.IF___V45*/ meltfptr[41] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3062:/ quasiblock"); -#line 3062 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V47*/ meltfptr[45] = /*_.IF___V45*/ meltfptr[41];; /*^compute */ - /*_.IFCPP___V44*/ meltfptr[37] = /*_.PROGN___V47*/ meltfptr[45];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3062:/ clear"); -#line 3062 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[0] = 0; /*^clear */ -#line 3062 /*clear *//*_.IF___V45*/ meltfptr[41] = 0; /*^clear */ -#line 3062 /*clear *//*_.PROGN___V47*/ meltfptr[45] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3062 /*_.IFCPP___V44*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3063 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3063:/ cppif.then"); -#line 3063 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3063 /*anyblock */ { { /*^locexp */ -#line 3063 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -20798,11 +17300,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3063 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L17*/ meltfnum[3] = -#line 3063 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -20811,18 +17311,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3063:/ cond"); -#line 3063 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3063 /*^block */ -#line 3063 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[0] = -#line 3063 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -20830,30 +17326,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3063:/ checksignal"); -#line 3063 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3063 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3063 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[0]; /*^apply.arg */ -#line 3063 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3063 argtab[2].meltbp_long = 3063; /*^apply.arg */ -#line 3063 argtab[3].meltbp_cstring = "mexp.defclass scanned fieldnams"; /*^apply.arg */ -#line 3063 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FIELDNAMS__V21*/ meltfptr[20]; /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = @@ -20871,62 +17360,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3063:/ clear"); -#line 3063 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[0] = 0; /*^clear */ -#line 3063 /*clear *//*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0; } ; } else { /*^cond.else */ -#line 3063 /*_.IF___V49*/ meltfptr[45] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3063:/ quasiblock"); -#line 3063 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V51*/ meltfptr[49] = /*_.IF___V49*/ meltfptr[45];; /*^compute */ - /*_.IFCPP___V48*/ meltfptr[41] = /*_.PROGN___V51*/ meltfptr[49];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3063:/ clear"); -#line 3063 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[3] = 0; /*^clear */ -#line 3063 /*clear *//*_.IF___V49*/ meltfptr[45] = 0; /*^clear */ -#line 3063 /*clear *//*_.PROGN___V51*/ meltfptr[49] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3063 /*_.IFCPP___V48*/ meltfptr[41] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3064 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3064:/ cppif.then"); -#line 3064 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3064 /*anyblock */ { { /*^locexp */ -#line 3064 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -20935,11 +17411,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3064 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L19*/ meltfnum[0] = -#line 3064 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -20948,18 +17422,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3064:/ cond"); -#line 3064 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3064 /*^block */ -#line 3064 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[3] = -#line 3064 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -20967,30 +17437,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3064:/ checksignal"); -#line 3064 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3064 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3064 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[3]; /*^apply.arg */ -#line 3064 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3064 argtab[2].meltbp_long = 3064; /*^apply.arg */ -#line 3064 argtab[3].meltbp_cstring = "mexp.defclass scanned fieldsloc"; /*^apply.arg */ -#line 3064 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FIELDSLOC__V22*/ meltfptr[21]; /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = @@ -21008,62 +17471,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3064:/ clear"); -#line 3064 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[3] = 0; /*^clear */ -#line 3064 /*clear *//*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 0; } ; } else { /*^cond.else */ -#line 3064 /*_.IF___V53*/ meltfptr[49] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3064:/ quasiblock"); -#line 3064 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V55*/ meltfptr[53] = /*_.IF___V53*/ meltfptr[49];; /*^compute */ - /*_.IFCPP___V52*/ meltfptr[45] = /*_.PROGN___V55*/ meltfptr[53];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3064:/ clear"); -#line 3064 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[0] = 0; /*^clear */ -#line 3064 /*clear *//*_.IF___V53*/ meltfptr[49] = 0; /*^clear */ -#line 3064 /*clear *//*_.PROGN___V55*/ meltfptr[53] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3064 /*_.IFCPP___V52*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3065 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3065:/ cppif.then"); -#line 3065 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3065 /*anyblock */ { { /*^locexp */ -#line 3065 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -21072,11 +17522,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3065 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[3] = -#line 3065 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -21085,18 +17533,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3065:/ cond"); -#line 3065 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3065 /*^block */ -#line 3065 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[0] = -#line 3065 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -21104,30 +17548,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3065:/ checksignal"); -#line 3065 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3065 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3065 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[0]; /*^apply.arg */ -#line 3065 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3065 argtab[2].meltbp_long = 3065; /*^apply.arg */ -#line 3065 argtab[3].meltbp_cstring = "mexp.defclass scanned docv"; /*^apply.arg */ -#line 3065 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.DOCV__V23*/ meltfptr[22]; /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = @@ -21145,82 +17582,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3065:/ clear"); -#line 3065 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[0] = 0; /*^clear */ -#line 3065 /*clear *//*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = 0; } ; } else { /*^cond.else */ -#line 3065 /*_.IF___V57*/ meltfptr[53] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3065:/ quasiblock"); -#line 3065 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V59*/ meltfptr[57] = /*_.IF___V57*/ meltfptr[53];; /*^compute */ - /*_.IFCPP___V56*/ meltfptr[49] = /*_.PROGN___V59*/ meltfptr[57];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3065:/ clear"); -#line 3065 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[3] = 0; /*^clear */ -#line 3065 /*clear *//*_.IF___V57*/ meltfptr[53] = 0; /*^clear */ -#line 3065 /*clear *//*_.PROGN___V59*/ meltfptr[57] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3065 /*_.IFCPP___V56*/ meltfptr[49] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3066 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3066:/ cppif.then"); -#line 3066 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3066 /*anyblock */ { /*^checksignal */ -#line 3066 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L23*/ meltfnum[0] = -#line 3066 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V15*/ meltfptr[11]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:3066:/ cond"); -#line 3066 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L23*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3066 /*_.IFELSE___V61*/ meltfptr[57] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3066:/ cond.else"); -#line 3066 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3066 /*anyblock */ { @@ -21229,7 +17648,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3066 melt_assert_failed (("check symb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -21244,62 +17662,47 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V60*/ meltfptr[53] = /*_.IFELSE___V61*/ meltfptr[57];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3066:/ clear"); -#line 3066 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L23*/ meltfnum[0] = 0; /*^clear */ -#line 3066 /*clear *//*_.IFELSE___V61*/ meltfptr[57] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3066 /*_.IFCPP___V60*/ meltfptr[53] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3067:/ checksignal"); -#line 3067 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L24*/ meltfnum[3] = -#line 3067 "warmelt-macro.melt" /**::expr::**/ (( /*_.PREDEF__V20*/ meltfptr[19]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3067:/ cond"); -#line 3067 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L24*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3067 /*^block */ -#line 3067 /*anyblock */ { /*^checksignal */ -#line 3067 MELT_CHECK_SIGNAL (); ; /*_#NULL__L25*/ meltfnum[0] = -#line 3068 "warmelt-macro.melt" /**::expr::**/ (( /*_.SUPERCLASS__V19*/ meltfptr[18]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3067:/ cond"); -#line 3067 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L25*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3067 /*^block */ -#line 3067 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3071:/ getslot"); -#line 3071 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -21311,7 +17714,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3069:/ locexp"); -#line 3069 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("DEFCLASS of a non-predefined class without superclass"), (melt_ptr_t) ( /*_.NAMED_NAME__V62*/ @@ -21321,7 +17723,6 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3067:/ clear"); -#line 3067 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V62*/ meltfptr[57] = 0; } ; @@ -21330,41 +17731,32 @@ lab_endgetargs:; /*epilog */ /*^clear */ -#line 3067 /*clear *//*_#NULL__L25*/ meltfnum[0] = 0; } ; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3073:/ quasiblock"); -#line 3073 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3074:/ checksignal"); -#line 3074 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L26*/ meltfnum[0] = -#line 3074 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.SUPERCLASS__V19*/ meltfptr[18])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:3074:/ cond"); -#line 3074 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L26*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3074 /*^block */ -#line 3074 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3075:/ quasiblock"); -#line 3075 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 3075 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -21374,60 +17766,45 @@ lab_endgetargs:; }; ; /*_#NBSUPERANC__L27*/ meltfnum[26] = -#line 3076 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_length ((melt_ptr_t) ( /*_.SUPERANCESTORS__V66*/ meltfptr[65])));; /*^compute */ - /*_#I__L28*/ meltfnum[27] = -#line 3077 "warmelt-macro.melt" /**::expr::**/ ((1) + ( /*_#NBSUPERANC__L27*/ meltfnum[26]));; /*^compute */ - /*_.ANCTUPLE__V67*/ meltfptr[66] = -#line 3077 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_CLASS_SEQUENCE */ meltfrout->tabval[5])), ( /*_#I__L28*/ meltfnum[27])));; /*^compute */ - /*_#IX__L29*/ meltfnum[28] = 0;; -#line 3080 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3080:/ cppif.then"); -#line 3080 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3080 /*anyblock */ { /*^checksignal */ -#line 3080 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L30*/ meltfnum[29] = -#line 3080 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SUPERCLASS__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->tabval[6])));; MELT_LOCATION ("warmelt-macro.melt:3080:/ cond"); -#line 3080 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L30*/ meltfnum[29]) /*then */ { /*^cond.then */ -#line 3080 /*_.IFELSE___V69*/ meltfptr[68] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3080:/ cond.else"); -#line 3080 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3080 /*anyblock */ { @@ -21436,7 +17813,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3080 melt_assert_failed (("check superclass"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -21452,58 +17828,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V68*/ meltfptr[67] = /*_.IFELSE___V69*/ meltfptr[68];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3080:/ clear"); -#line 3080 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L30*/ meltfnum[29] = 0; /*^clear */ -#line 3080 /*clear *//*_.IFELSE___V69*/ meltfptr[68] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3080 /*_.IFCPP___V68*/ meltfptr[67] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3081 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3081:/ cppif.then"); -#line 3081 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3081 /*anyblock */ { /*^checksignal */ -#line 3081 MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L31*/ meltfnum[29] = -#line 3081 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.SUPERANCESTORS__V66*/ meltfptr[65])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION ("warmelt-macro.melt:3081:/ cond"); -#line 3081 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_MULTIPLE__L31*/ meltfnum[29]) /*then */ { /*^cond.then */ -#line 3081 /*_.IFELSE___V71*/ meltfptr[70] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3081:/ cond.else"); -#line 3081 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3081 /*anyblock */ { @@ -21512,7 +17875,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3081 melt_assert_failed (("check superancestors"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -21528,69 +17890,53 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V70*/ meltfptr[68] = /*_.IFELSE___V71*/ meltfptr[70];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3081:/ clear"); -#line 3081 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_MULTIPLE__L31*/ meltfnum[29] = 0; /*^clear */ -#line 3081 /*clear *//*_.IFELSE___V71*/ meltfptr[70] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3081 /*_.IFCPP___V70*/ meltfptr[68] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3082:/ loop"); -#line 3082 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_ANCLOOP_1:; /*^loopbody */ -#line 3082 /*^block */ -#line 3082 /*anyblock */ { /*^checksignal */ -#line 3082 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3083:/ checksignal"); -#line 3083 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#I__L32*/ meltfnum[29] = -#line 3083 "warmelt-macro.melt" /**::expr::**/ (( /*_#IX__L29*/ meltfnum[28]) >= ( /*_#NBSUPERANC__L27*/ meltfnum[26]));; MELT_LOCATION ("warmelt-macro.melt:3083:/ cond"); -#line 3083 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#I__L32*/ meltfnum[29]) /*then */ { /*^cond.then */ -#line 3083 /*^block */ -#line 3083 /*anyblock */ { /*^quasiblock */ -#line 3083 /*^compute */ -#line 3083 /*_.ANCLOOP__V73*/ meltfptr[72] = NULL;; /*^exit */ -#line 3083 /*exit */ { goto labexit_ANCLOOP_1; @@ -21602,14 +17948,12 @@ lab_endgetargs:; } /*noelse */ ; /*_.MULTIPLE_NTH__V74*/ meltfptr[73] = -#line 3084 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_nth ((melt_ptr_t) ( /*_.SUPERANCESTORS__V66*/ meltfptr[65]), ( /*_#IX__L29*/ meltfnum[28])));; { MELT_LOCATION ("warmelt-macro.melt:3084:/ locexp"); -#line 3084 "warmelt-macro.melt" /**::locexp::**/ meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.ANCTUPLE__V67*/ meltfptr[66]), ( /*_#IX__L29*/ meltfnum[28]), @@ -21617,36 +17961,28 @@ lab_endgetargs:; } ; /*_#I__L33*/ meltfnum[32] = -#line 3085 "warmelt-macro.melt" /**::expr::**/ (( /*_#IX__L29*/ meltfnum[28]) + (1));; MELT_LOCATION ("warmelt-macro.melt:3085:/ compute"); -#line 3085 "warmelt-macro.melt" /**::compute::**/ /*_#IX__L29*/ meltfnum[28] = /*_#SETQ___L34*/ meltfnum[33] = /*_#I__L33*/ meltfnum[32];; MELT_LOCATION ("warmelt-macro.melt:3082:/ checksignal"); -#line 3082 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 3082 /*clear *//*_#I__L32*/ meltfnum[29] = 0; /*^clear */ -#line 3082 /*clear *//*_.MULTIPLE_NTH__V74*/ meltfptr[73] = 0; /*^clear */ -#line 3082 /*clear *//*_#I__L33*/ meltfnum[32] = 0; /*^clear */ -#line 3082 /*clear *//*_#SETQ___L34*/ meltfnum[33] = 0; } ; ; goto labloop_ANCLOOP_1; labexit_ANCLOOP_1:; /*^loopepilog */ -#line 3082 /*loopepilog */ /*_.FOREVER___V72*/ meltfptr[70] = /*_.ANCLOOP__V73*/ meltfptr[72];; @@ -21655,7 +17991,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3087:/ locexp"); -#line 3087 "warmelt-macro.melt" /**::locexp::**/ meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.ANCTUPLE__V67*/ meltfptr[66]), ( /*_#NBSUPERANC__L27*/ meltfnum[26]), @@ -21666,86 +18001,66 @@ lab_endgetargs:; /*_.LET___V65*/ meltfptr[64] = /*_.ANCTUPLE__V67*/ meltfptr[66];; MELT_LOCATION ("warmelt-macro.melt:3075:/ clear"); -#line 3075 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SUPERANCESTORS__V66*/ meltfptr[65] = 0; /*^clear */ -#line 3075 /*clear *//*_#NBSUPERANC__L27*/ meltfnum[26] = 0; /*^clear */ -#line 3075 /*clear *//*_#I__L28*/ meltfnum[27] = 0; /*^clear */ -#line 3075 /*clear *//*_.ANCTUPLE__V67*/ meltfptr[66] = 0; /*^clear */ -#line 3075 /*clear *//*_#IX__L29*/ meltfnum[28] = 0; /*^clear */ -#line 3075 /*clear *//*_.IFCPP___V68*/ meltfptr[67] = 0; /*^clear */ -#line 3075 /*clear *//*_.IFCPP___V70*/ meltfptr[68] = 0; /*^clear */ -#line 3075 /*clear *//*_.FOREVER___V72*/ meltfptr[70] = 0; /*_.ANCESTORS__V64*/ meltfptr[63] = /*_.LET___V65*/ meltfptr[64];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3074:/ clear"); -#line 3074 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V65*/ meltfptr[64] = 0; } ; } else { /*^cond.else */ -#line 3074 /*^block */ -#line 3074 /*anyblock */ { /*_.MAKE_MULTIPLE__V75*/ meltfptr[73] = -#line 3090 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_CLASS_SEQUENCE */ meltfrout->tabval[5])), (0)));; /*^compute */ - /*_.ANCESTORS__V64*/ meltfptr[63] = /*_.MAKE_MULTIPLE__V75*/ meltfptr[73];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3074:/ clear"); -#line 3074 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MAKE_MULTIPLE__V75*/ meltfptr[73] = 0; } ; } ; MELT_LOCATION ("warmelt-macro.melt:3091:/ checksignal"); -#line 3091 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L35*/ meltfnum[29] = -#line 3091 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.SUPERCLASS__V19*/ meltfptr[18])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:3091:/ cond"); -#line 3091 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L35*/ meltfnum[29]) /*then */ { /*^cond.then */ -#line 3091 /*^block */ -#line 3091 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3092:/ getslot"); -#line 3092 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -21759,87 +18074,63 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3091:/ clear"); -#line 3091 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CLASS_FIELDS__V77*/ meltfptr[66] = 0; } ; } else { /*^cond.else */ -#line 3091 /*_.SUPERFIELDS__V76*/ meltfptr[65] = NULL;; } ; /*^compute */ - /*_#NBSUPERFIELDS__L36*/ meltfnum[32] = -#line 3093 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_length ((melt_ptr_t) ( /*_.SUPERFIELDS__V76*/ meltfptr[65])));; /*^compute */ - /*_#NBFIELDNAMES__L37*/ meltfnum[33] = -#line 3094 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_length ((melt_ptr_t) ( /*_.FIELDNAMS__V21*/ meltfptr[20])));; /*^compute */ - /*_.BOXNBSUPERFIELDS__V78*/ meltfptr[67] = -#line 3095 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[7])), ( /*_#NBSUPERFIELDS__L36*/ meltfnum[32])));; /*^compute */ - /*_#I__L38*/ meltfnum[26] = -#line 3096 "warmelt-macro.melt" /**::expr::**/ (( /*_#NBSUPERFIELDS__L36*/ meltfnum[32]) + ( /*_#NBFIELDNAMES__L37*/ meltfnum[33]));; /*^compute */ - /*_#I__L39*/ meltfnum[27] = -#line 3096 "warmelt-macro.melt" /**::expr::**/ ((2) * ( /*_#I__L38*/ meltfnum[26]));; /*^compute */ - /*_#I__L40*/ meltfnum[28] = -#line 3096 "warmelt-macro.melt" /**::expr::**/ ((3) + ( /*_#I__L39*/ meltfnum[27]));; /*^compute */ - /*_.FIELDSTRMAP__V79*/ meltfptr[68] = -#line 3096 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_mapstrings ((meltobject_ptr_t) (( /*!DISCR_MAP_STRINGS */ meltfrout->tabval[8])), ( /*_#I__L40*/ meltfnum[28])));; /*^compute */ - /*_#I__L41*/ meltfnum[40] = -#line 3097 "warmelt-macro.melt" /**::expr::**/ (( /*_#NBSUPERFIELDS__L36*/ meltfnum[32]) + ( /*_#NBFIELDNAMES__L37*/ meltfnum[33]));; /*^compute */ - /*_.FIELDTUP__V80*/ meltfptr[70] = -#line 3097 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_FIELD_SEQUENCE */ meltfrout->tabval[9])), ( /*_#I__L41*/ meltfnum[40])));; /*^compute */ - /*_.OWNFIELDBINDINGS__V81*/ meltfptr[64] = -#line 3098 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[10])), ( /*_#NBFIELDNAMES__L37*/ meltfnum[33])));; MELT_LOCATION ("warmelt-macro.melt:3099:/ checksignal"); -#line 3099 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3100:/ getslot"); -#line 3100 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V15*/ meltfptr[11]) /*=obj*/ ; @@ -21848,11 +18139,9 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3099:/ quasiblock"); -#line 3099 "warmelt-macro.melt" /**::quasiblock::**/ /*^rawallocobj */ -#line 3099 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -21864,7 +18153,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3099 /*putslot */ melt_assertmsg ("putslot checkobj @NAMED_NAME", melt_magic_discr ((melt_ptr_t) @@ -21875,7 +18163,6 @@ lab_endgetargs:; "NAMED_NAME"); ; /*^putslot */ -#line 3099 /*putslot */ melt_assertmsg ("putslot checkobj @CLASS_ANCESTORS", melt_magic_discr ((melt_ptr_t) @@ -21887,15 +18174,12 @@ lab_endgetargs:; ; /*_.NEWCLASS__V83*/ meltfptr[66] = /*_.INST__V84*/ meltfptr[83];; MELT_LOCATION ("warmelt-macro.melt:3104:/ checksignal"); -#line 3104 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3104 /*^rawallocobj */ -#line 3104 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -21908,7 +18192,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3104 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -21918,7 +18201,6 @@ lab_endgetargs:; ( /*_.SYMB__V15*/ meltfptr[11]), "BINDER"); ; /*^putslot */ -#line 3104 /*putslot */ melt_assertmsg ("putslot checkobj @CBIND_CLASS", melt_magic_discr ((melt_ptr_t) @@ -21929,17 +18211,14 @@ lab_endgetargs:; ; /*_.CLABIND__V85*/ meltfptr[84] = /*_.INST__V86*/ meltfptr[85];; MELT_LOCATION ("warmelt-macro.melt:3108:/ checksignal"); -#line 3108 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3108 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3108 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CLABIND__V85*/ meltfptr[84]; /*_.PUT_ENV__V87*/ meltfptr[86] = @@ -21951,19 +18230,15 @@ lab_endgetargs:; } ; -#line 3109 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3109:/ cppif.then"); -#line 3109 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3109 /*anyblock */ { { /*^locexp */ -#line 3109 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -21972,11 +18247,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3109 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L42*/ meltfnum[41] = -#line 3109 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -21985,18 +18258,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3109:/ cond"); -#line 3109 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L42*/ meltfnum[41]) /*then */ { /*^cond.then */ -#line 3109 /*^block */ -#line 3109 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[42] = -#line 3109 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -22004,30 +18273,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3109:/ checksignal"); -#line 3109 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3109 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3109 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[42]; /*^apply.arg */ -#line 3109 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3109 argtab[2].meltbp_long = 3109; /*^apply.arg */ -#line 3109 argtab[3].meltbp_cstring = "expdefclas superfields"; /*^apply.arg */ -#line 3109 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SUPERFIELDS__V76*/ meltfptr[65]; /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = @@ -22045,54 +18307,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3109:/ clear"); -#line 3109 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L43*/ meltfnum[42] = 0; /*^clear */ -#line 3109 /*clear *//*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = 0; } ; } else { /*^cond.else */ -#line 3109 /*_.IF___V89*/ meltfptr[88] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3109:/ quasiblock"); -#line 3109 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V91*/ meltfptr[89] = /*_.IF___V89*/ meltfptr[88];; /*^compute */ - /*_.IFCPP___V88*/ meltfptr[87] = /*_.PROGN___V91*/ meltfptr[89];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3109:/ clear"); -#line 3109 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L42*/ meltfnum[41] = 0; /*^clear */ -#line 3109 /*clear *//*_.IF___V89*/ meltfptr[88] = 0; /*^clear */ -#line 3109 /*clear *//*_.PROGN___V91*/ meltfptr[89] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3109 /*_.IFCPP___V88*/ meltfptr[87] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3112:/ quasiblock"); -#line 3112 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3112 /*newclosure *//*_.LAMBDA___V93*/ meltfptr[89] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -22101,7 +18352,6 @@ lab_endgetargs:; tabval[15])), (2)); ; /*^putclosedv */ -#line 3112 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22115,7 +18365,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FIELDTUP__V80*/ meltfptr[70]); ; /*^putclosedv */ -#line 3112 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22130,17 +18379,14 @@ lab_endgetargs:; ; /*_.LAMBDA___V92*/ meltfptr[88] = /*_.LAMBDA___V93*/ meltfptr[89];; MELT_LOCATION ("warmelt-macro.melt:3110:/ checksignal"); -#line 3110 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3110 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3110 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V92*/ meltfptr[88]; /*_.MULTIPLE_EVERY__V94*/ meltfptr[93] = @@ -22152,11 +18398,9 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3121:/ quasiblock"); -#line 3121 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3121 /*newclosure *//*_.LAMBDA___V96*/ meltfptr[95] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -22165,7 +18409,6 @@ lab_endgetargs:; tabval[25])), (10)); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22179,7 +18422,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22193,7 +18435,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FIELDSTRMAP__V79*/ meltfptr[68]); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22207,7 +18448,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FIELDSLOC__V22*/ meltfptr[21]); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22221,7 +18461,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.SYMB__V15*/ meltfptr[11]); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22235,7 +18474,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXNBSUPERFIELDS__V78*/ meltfptr[67]); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22249,7 +18487,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.NEWCLASS__V83*/ meltfptr[66]); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22263,7 +18500,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FIELDTUP__V80*/ meltfptr[70]); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22277,7 +18513,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.CLABIND__V85*/ meltfptr[84]); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22291,7 +18526,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]); ; /*^putclosedv */ -#line 3121 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -22306,17 +18540,14 @@ lab_endgetargs:; ; /*_.LAMBDA___V95*/ meltfptr[94] = /*_.LAMBDA___V96*/ meltfptr[95];; MELT_LOCATION ("warmelt-macro.melt:3119:/ checksignal"); -#line 3119 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3119 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3119 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V95*/ meltfptr[94]; /*_.MULTIPLE_EVERY__V97*/ meltfptr[96] = @@ -22328,15 +18559,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3171:/ checksignal"); -#line 3171 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3171 /*^putslot */ -#line 3171 /*putslot */ melt_assertmsg ("putslot checkobj @CLASS_FIELDS", melt_magic_discr ((melt_ptr_t) @@ -22347,33 +18575,27 @@ lab_endgetargs:; "CLASS_FIELDS"); ; /*^touch */ -#line 3171 meltgc_touch ( /*_.NEWCLASS__V83*/ meltfptr[66]); ; { MELT_LOCATION ("warmelt-macro.melt:3175:/ locexp"); -#line 3176 "warmelt-macro.melt" /**::locexp::**/ ((meltobject_ptr_t) /*_.NEWCLASS__V83*/ meltfptr[66])->obj_num = MELTOBMAG_OBJECT; ; } ; -#line 3177 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3177:/ cppif.then"); -#line 3177 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3177 /*anyblock */ { { /*^locexp */ -#line 3177 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -22382,11 +18604,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3177 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L44*/ meltfnum[42] = -#line 3177 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -22395,18 +18615,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3177:/ cond"); -#line 3177 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L44*/ meltfnum[42]) /*then */ { /*^cond.then */ -#line 3177 /*^block */ -#line 3177 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L45*/ meltfnum[41] = -#line 3177 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -22414,30 +18630,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3177:/ checksignal"); -#line 3177 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3177 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3177 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L45*/ meltfnum[41]; /*^apply.arg */ -#line 3177 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3177 argtab[2].meltbp_long = 3177; /*^apply.arg */ -#line 3177 argtab[3].meltbp_cstring = "mexp.defclass newclass="; /*^apply.arg */ -#line 3177 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.NEWCLASS__V83*/ meltfptr[66]; /*_.MELT_DEBUG_FUN__V100*/ meltfptr[99] = @@ -22455,58 +18664,46 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3177:/ clear"); -#line 3177 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L45*/ meltfnum[41] = 0; /*^clear */ -#line 3177 /*clear *//*_.MELT_DEBUG_FUN__V100*/ meltfptr[99] = 0; } ; } else { /*^cond.else */ -#line 3177 /*_.IF___V99*/ meltfptr[98] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3177:/ quasiblock"); -#line 3177 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V101*/ meltfptr[99] = /*_.IF___V99*/ meltfptr[98];; /*^compute */ - /*_.IFCPP___V98*/ meltfptr[97] = /*_.PROGN___V101*/ meltfptr[99];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3177:/ clear"); -#line 3177 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L44*/ meltfnum[42] = 0; /*^clear */ -#line 3177 /*clear *//*_.IF___V99*/ meltfptr[98] = 0; /*^clear */ -#line 3177 /*clear *//*_.PROGN___V101*/ meltfptr[99] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3177 /*_.IFCPP___V98*/ meltfptr[97] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3178:/ checksignal"); -#line 3178 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3178 /*^rawallocobj */ -#line 3178 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -22519,7 +18716,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3178 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -22529,7 +18725,6 @@ lab_endgetargs:; ( /*_.LOC__V16*/ meltfptr[15]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3178 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_NAME", melt_magic_discr ((melt_ptr_t) @@ -22539,7 +18734,6 @@ lab_endgetargs:; ( /*_.SYMB__V15*/ meltfptr[11]), "SDEF_NAME"); ; /*^putslot */ -#line 3178 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_DOC", melt_magic_discr ((melt_ptr_t) @@ -22549,7 +18743,6 @@ lab_endgetargs:; ( /*_.DOCV__V23*/ meltfptr[22]), "SDEF_DOC"); ; /*^putslot */ -#line 3178 /*putslot */ melt_assertmsg ("putslot checkobj @SOBJ_PREDEF", melt_magic_discr ((melt_ptr_t) @@ -22559,7 +18752,6 @@ lab_endgetargs:; ( /*_.PREDEF__V20*/ meltfptr[19]), "SOBJ_PREDEF"); ; /*^putslot */ -#line 3178 /*putslot */ melt_assertmsg ("putslot checkobj @SCLASS_CLABIND", melt_magic_discr ((melt_ptr_t) @@ -22570,7 +18762,6 @@ lab_endgetargs:; "SCLASS_CLABIND"); ; /*^putslot */ -#line 3178 /*putslot */ melt_assertmsg ("putslot checkobj @SCLASS_SUPERBIND", melt_magic_discr ((melt_ptr_t) @@ -22581,7 +18772,6 @@ lab_endgetargs:; "SCLASS_SUPERBIND"); ; /*^putslot */ -#line 3178 /*putslot */ melt_assertmsg ("putslot checkobj @SCLASS_FLDBINDS", melt_magic_discr ((melt_ptr_t) @@ -22593,164 +18783,114 @@ lab_endgetargs:; ; /*_.INST___V102*/ meltfptr[98] = /*_.INST__V103*/ meltfptr[99];; /*^compute */ - /*_.LET___V63*/ meltfptr[57] = /*_.INST___V102*/ meltfptr[98];; MELT_LOCATION ("warmelt-macro.melt:3073:/ clear"); -#line 3073 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L26*/ meltfnum[0] = 0; /*^clear */ -#line 3073 /*clear *//*_.ANCESTORS__V64*/ meltfptr[63] = 0; /*^clear */ -#line 3073 /*clear *//*_#IS_OBJECT__L35*/ meltfnum[29] = 0; /*^clear */ -#line 3073 /*clear *//*_.SUPERFIELDS__V76*/ meltfptr[65] = 0; /*^clear */ -#line 3073 /*clear *//*_#NBSUPERFIELDS__L36*/ meltfnum[32] = 0; /*^clear */ -#line 3073 /*clear *//*_#NBFIELDNAMES__L37*/ meltfnum[33] = 0; /*^clear */ -#line 3073 /*clear *//*_.BOXNBSUPERFIELDS__V78*/ meltfptr[67] = 0; /*^clear */ -#line 3073 /*clear *//*_#I__L38*/ meltfnum[26] = 0; /*^clear */ -#line 3073 /*clear *//*_#I__L39*/ meltfnum[27] = 0; /*^clear */ -#line 3073 /*clear *//*_#I__L40*/ meltfnum[28] = 0; /*^clear */ -#line 3073 /*clear *//*_.FIELDSTRMAP__V79*/ meltfptr[68] = 0; /*^clear */ -#line 3073 /*clear *//*_#I__L41*/ meltfnum[40] = 0; /*^clear */ -#line 3073 /*clear *//*_.FIELDTUP__V80*/ meltfptr[70] = 0; /*^clear */ -#line 3073 /*clear *//*_.OWNFIELDBINDINGS__V81*/ meltfptr[64] = 0; /*^clear */ -#line 3073 /*clear *//*_.NAMED_NAME__V82*/ meltfptr[73] = 0; /*^clear */ -#line 3073 /*clear *//*_.NEWCLASS__V83*/ meltfptr[66] = 0; /*^clear */ -#line 3073 /*clear *//*_.CLABIND__V85*/ meltfptr[84] = 0; /*^clear */ -#line 3073 /*clear *//*_.PUT_ENV__V87*/ meltfptr[86] = 0; /*^clear */ -#line 3073 /*clear *//*_.IFCPP___V88*/ meltfptr[87] = 0; /*^clear */ -#line 3073 /*clear *//*_.LAMBDA___V92*/ meltfptr[88] = 0; /*^clear */ -#line 3073 /*clear *//*_.MULTIPLE_EVERY__V94*/ meltfptr[93] = 0; /*^clear */ -#line 3073 /*clear *//*_.LAMBDA___V95*/ meltfptr[94] = 0; /*^clear */ -#line 3073 /*clear *//*_.MULTIPLE_EVERY__V97*/ meltfptr[96] = 0; /*^clear */ -#line 3073 /*clear *//*_.IFCPP___V98*/ meltfptr[97] = 0; /*^clear */ -#line 3073 /*clear *//*_.INST___V102*/ meltfptr[98] = 0; MELT_LOCATION ("warmelt-macro.melt:3054:/ checksignal"); -#line 3054 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.MULTI___V14*/ meltfptr[10] = /*_.LET___V63*/ meltfptr[57];; MELT_LOCATION ("warmelt-macro.melt:3054:/ clear"); -#line 3054 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V24*/ meltfptr[23] = 0; /*^clear */ -#line 3054 /*clear *//*_.IFCPP___V28*/ meltfptr[24] = 0; /*^clear */ -#line 3054 /*clear *//*_.IFCPP___V32*/ meltfptr[25] = 0; /*^clear */ -#line 3054 /*clear *//*_.IFCPP___V36*/ meltfptr[29] = 0; /*^clear */ -#line 3054 /*clear *//*_.IFCPP___V40*/ meltfptr[33] = 0; /*^clear */ -#line 3054 /*clear *//*_.IFCPP___V44*/ meltfptr[37] = 0; /*^clear */ -#line 3054 /*clear *//*_.IFCPP___V48*/ meltfptr[41] = 0; /*^clear */ -#line 3054 /*clear *//*_.IFCPP___V52*/ meltfptr[45] = 0; /*^clear */ -#line 3054 /*clear *//*_.IFCPP___V56*/ meltfptr[49] = 0; /*^clear */ -#line 3054 /*clear *//*_.IFCPP___V60*/ meltfptr[53] = 0; /*^clear */ -#line 3054 /*clear *//*_#NULL__L24*/ meltfnum[3] = 0; /*^clear */ -#line 3054 /*clear *//*_.LET___V63*/ meltfptr[57] = 0; /*^clear */ -#line 3054 /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; /*^clear */ -#line 3054 /*clear *//*_.SUPERNAM__V17*/ meltfptr[16] = 0; /*^clear */ -#line 3054 /*clear *//*_.SUPERBIND__V18*/ meltfptr[17] = 0; /*^clear */ -#line 3054 /*clear *//*_.SUPERCLASS__V19*/ meltfptr[18] = 0; /*^clear */ -#line 3054 /*clear *//*_.PREDEF__V20*/ meltfptr[19] = 0; /*^clear */ -#line 3054 /*clear *//*_.FIELDNAMS__V21*/ meltfptr[20] = 0; /*^clear */ -#line 3054 /*clear *//*_.FIELDSLOC__V22*/ meltfptr[21] = 0; /*^clear */ -#line 3054 /*clear *//*_.DOCV__V23*/ meltfptr[22] = 0; MELT_LOCATION ("warmelt-macro.melt:3050:/ checksignal"); -#line 3050 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3050 /*_.RETVAL___V1*/ meltfptr[0] = /*_.MULTI___V14*/ meltfptr[10];; { MELT_LOCATION ("warmelt-macro.melt:3050:/ locexp"); -#line 3050 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22761,22 +18901,17 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3050 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3050 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 3050 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 3050 /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; /*^clear */ -#line 3050 /*clear *//*_.MULTI___V14*/ meltfptr[10] = 0; } @@ -22795,7 +18930,6 @@ labend_rout: } /*end meltrout_45_warmelt_macro_MEXPAND_DEFCLASS */ -#line 3112 "warmelt-macro.melt" /**::proc::**/ @@ -22871,12 +19005,10 @@ meltrout_46_warmelt_macro_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3112:/ getarg"); -#line 3112 "warmelt-macro.melt" /**::getarg::**/ /*_.SFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3112 if (meltxargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; @@ -22885,44 +19017,34 @@ meltrout_46_warmelt_macro_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3112 /*anyblock*/ { -#line 3115 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3115:/ cppif.then"); -#line 3115 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3115 /*anyblock */ { /*^checksignal */ -#line 3115 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[1] = -#line 3115 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SFLD__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3115:/ cond"); -#line 3115 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3115 /*_.IFELSE___V4*/ meltfptr[3] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3115:/ cond.else"); -#line 3115 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3115 /*anyblock */ { @@ -22931,7 +19053,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3115 melt_assert_failed (("check superfield"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -22946,28 +19067,23 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3115:/ clear"); -#line 3115 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ -#line 3115 /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3115 /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-macro.melt:3116:/ locexp"); -#line 3116 "warmelt-macro.melt" /**::locexp::**/ meltgc_multiple_put_nth ((melt_ptr_t) (( /*~FIELDTUP */ meltfclos->tabval[0])), ( /*_#IX__L1*/ meltfnum[0]), @@ -22975,7 +19091,6 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3117:/ getslot"); -#line 3117 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SFLD__V2*/ meltfptr[1]) /*=obj*/ ; @@ -22986,7 +19101,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3117 meltgc_put_mapstrings ((struct meltmapstrings_st *) (( /*~FIELDSTRMAP */ meltfclos->tabval[1])), melt_string_str ((melt_ptr_t) @@ -22996,16 +19110,13 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3112:/ checksignal"); -#line 3112 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 3112 /*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0; /*^clear */ -#line 3112 /*clear *//*_.NAMED_NAME__V5*/ meltfptr[3] = 0; } @@ -23024,7 +19135,6 @@ labend_rout: } /*end meltrout_46_warmelt_macro_LAMBDA___11__ */ -#line 3121 "warmelt-macro.melt" /**::proc::**/ @@ -23100,12 +19210,10 @@ meltrout_47_warmelt_macro_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3121:/ getarg"); -#line 3121 "warmelt-macro.melt" /**::getarg::**/ /*_.FLDNAM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3121 if (meltxargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; @@ -23114,44 +19222,34 @@ meltrout_47_warmelt_macro_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3121 /*anyblock*/ { -#line 3123 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3123:/ cppif.then"); -#line 3123 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3123 /*anyblock */ { /*^checksignal */ -#line 3123 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[1] = -#line 3123 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDNAM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3123:/ cond"); -#line 3123 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3123 /*_.IFELSE___V4*/ meltfptr[3] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3123:/ cond.else"); -#line 3123 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3123 /*anyblock */ { @@ -23160,7 +19258,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3123 melt_assert_failed (("check fldnam"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -23175,30 +19272,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3123:/ clear"); -#line 3123 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ -#line 3123 /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3123 /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3124:/ quasiblock"); -#line 3124 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 3124 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FLDNAM__V2*/ meltfptr[1]) /*=obj*/ ; @@ -23207,17 +19298,14 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3125:/ checksignal"); -#line 3125 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3125 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3125 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.FLDNAM__V2*/ meltfptr[1]; /*_.FLDPREVBIND__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t) @@ -23228,30 +19316,24 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3127:/ checksignal"); -#line 3127 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.MAPSTRING_GETSTR__V7*/ meltfptr[6] = -#line 3127 "warmelt-macro.melt" /**::expr::**/ (melt_get_mapstrings ((struct meltmapstrings_st *) (( /*~FIELDSTRMAP */ meltfclos->tabval[1])), melt_string_str ((melt_ptr_t) ( /*_.FLDSTR__V5*/ meltfptr[3]))));; MELT_LOCATION ("warmelt-macro.melt:3127:/ cond"); -#line 3127 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_.MAPSTRING_GETSTR__V7*/ meltfptr[6]) /*then */ { /*^cond.then */ -#line 3127 /*^block */ -#line 3127 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3128:/ locexp"); -#line 3128 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) (( /*~FIELDSLOC */ meltfclos->tabval[2])), ("duplicate field in DEFLCLASS"), @@ -23264,27 +19346,21 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3130:/ checksignal"); -#line 3130 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[1] = -#line 3130 "warmelt-macro.melt" /**::expr::**/ (( /*_.FLDPREVBIND__V6*/ meltfptr[5]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3130:/ cond"); -#line 3130 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3130 /*^block */ -#line 3130 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3131:/ locexp"); -#line 3131 "warmelt-macro.melt" /**::locexp::**/ /*void */ (void) 0; } ; @@ -23295,48 +19371,37 @@ lab_endgetargs:; else { MELT_LOCATION ("warmelt-macro.melt:3130:/ cond.else"); -#line 3130 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3130 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3133:/ checksignal"); -#line 3133 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = -#line 3133 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDPREVBIND__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_FIELD_BINDING */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:3133:/ cond"); -#line 3133 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3133 /*^block */ -#line 3133 /*anyblock */ { -#line 3134 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3134:/ cppif.then"); -#line 3134 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3134 /*anyblock */ { { /*^locexp */ -#line 3134 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -23345,11 +19410,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3134 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = -#line 3134 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -23358,18 +19421,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3134:/ cond"); -#line 3134 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3134 /*^block */ -#line 3134 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = -#line 3134 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -23378,31 +19437,24 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3134:/ checksignal"); -#line 3134 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3134 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3134 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg */ -#line 3134 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3134 argtab[2].meltbp_long = 3134; /*^apply.arg */ -#line 3134 argtab[3].meltbp_cstring = "mexpand_defclass fldprevbind !field"; /*^apply.arg */ -#line 3134 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLDPREVBIND__V6*/ meltfptr[5]; @@ -23422,53 +19474,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3134:/ clear"); -#line 3134 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ -#line 3134 /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ -#line 3134 /*_.IF___V9*/ meltfptr[8] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3134:/ quasiblock"); -#line 3134 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3134:/ clear"); -#line 3134 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0; /*^clear */ -#line 3134 /*clear *//*_.IF___V9*/ meltfptr[8] = 0; /*^clear */ -#line 3134 /*clear *//*_.PROGN___V11*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3134 /*_.IFCPP___V8*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-macro.melt:3135:/ locexp"); -#line 3135 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) (( /*~FIELDSLOC */ meltfclos->tabval[2])), ("field name already defined in DEFCLASS"), @@ -23477,60 +19519,47 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3133:/ quasiblock"); -#line 3133 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ /*^clear */ -#line 3133 /*clear *//*_.IFCPP___V8*/ meltfptr[7] = 0; } ; } else { /*^cond.else */ -#line 3133 /*^block */ -#line 3133 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3137:/ checksignal"); -#line 3137 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[5] = -#line 3137 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDPREVBIND__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:3137:/ cond"); -#line 3137 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ -#line 3137 /*^block */ -#line 3137 /*anyblock */ { -#line 3138 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3138:/ cppif.then"); -#line 3138 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3138 /*anyblock */ { { /*^locexp */ -#line 3138 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -23539,11 +19568,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3138 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L8*/ meltfnum[4] = -#line 3138 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -23552,18 +19579,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3138:/ cond"); -#line 3138 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3138 /*^block */ -#line 3138 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = -#line 3138 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -23572,32 +19595,25 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3138:/ checksignal"); -#line 3138 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3138 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3138 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8]; /*^apply.arg */ -#line 3138 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3138 argtab[2].meltbp_long = 3138; /*^apply.arg */ -#line 3138 argtab[3].meltbp_cstring = "mexpand_defclass fldprevbind !value"; /*^apply.arg */ -#line 3138 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLDPREVBIND__V6*/ meltfptr[5]; @@ -23620,11 +19636,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3138:/ clear"); -#line 3138 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ -#line 3138 /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[7] = 0; } @@ -23632,55 +19646,44 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3138 /*_.IF___V13*/ meltfptr[9] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3138:/ quasiblock"); -#line 3138 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V15*/ meltfptr[7] = /*_.IF___V13*/ meltfptr[9];; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[8] = /*_.PROGN___V15*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3138:/ clear"); -#line 3138 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[4] = 0; /*^clear */ -#line 3138 /*clear *//*_.IF___V13*/ meltfptr[9] = 0; /*^clear */ -#line 3138 /*clear *//*_.PROGN___V15*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3138 /*_.IFCPP___V12*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3139 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3139:/ cppif.then"); -#line 3139 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3139 /*anyblock */ { { /*^locexp */ -#line 3139 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -23689,11 +19692,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3139 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = -#line 3139 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -23702,18 +19703,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3139:/ cond"); -#line 3139 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3139 /*^block */ -#line 3139 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[4] = -#line 3139 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -23722,32 +19719,25 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3139:/ checksignal"); -#line 3139 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3139 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3139 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[4]; /*^apply.arg */ -#line 3139 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3139 argtab[2].meltbp_long = 3139; /*^apply.arg */ -#line 3139 argtab[3].meltbp_cstring = "mexpand_defclass symb !value"; /*^apply.arg */ -#line 3139 argtab[4].meltbp_aptr = (melt_ptr_t *) & ( /*~SYMB */ meltfclos-> tabval[3]); @@ -23770,11 +19760,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3139:/ clear"); -#line 3139 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[4] = 0; /*^clear */ -#line 3139 /*clear *//*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0; } @@ -23782,49 +19770,39 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3139 /*_.IF___V17*/ meltfptr[7] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3139:/ quasiblock"); -#line 3139 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V19*/ meltfptr[17] = /*_.IF___V17*/ meltfptr[7];; /*^compute */ - /*_.IFCPP___V16*/ meltfptr[9] = /*_.PROGN___V19*/ meltfptr[17];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3139:/ clear"); -#line 3139 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0; /*^clear */ -#line 3139 /*clear *//*_.IF___V17*/ meltfptr[7] = 0; /*^clear */ -#line 3139 /*clear *//*_.PROGN___V19*/ meltfptr[17] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3139 /*_.IFCPP___V16*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3140:/ quasiblock"); -#line 3140 "warmelt-macro.melt" /**::quasiblock::**/ /*^cond */ -#line 3140 /*cond */ if ( -#line 3140 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDPREVBIND__V6*/ meltfptr[5]), @@ -23832,9 +19810,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3140 /*^getslot */ -#line 3140 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -23848,27 +19824,22 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3140 /*_.PREVALUE__V20*/ meltfptr[7] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3144:/ checksignal"); -#line 3144 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L12*/ meltfnum[4] = -#line 3144 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.PREVALUE__V20*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->tabval[5])));; MELT_LOCATION ("warmelt-macro.melt:3144:/ cond"); -#line 3144 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L12*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3144 /*_#OR___L13*/ meltfnum[8] = /*_#IS_NOT_A__L12*/ meltfnum[4];; } @@ -23876,17 +19847,13 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3144:/ cond.else"); -#line 3144 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3144 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3145:/ cond"); -#line 3145 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 3145 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.PREVALUE__V20*/ meltfptr[7]), @@ -23894,9 +19861,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3145 /*^getslot */ -#line 3145 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -23910,15 +19875,12 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3145 /*_.FLD_OWNCLASS__V21*/ meltfptr[17] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3145:/ cond"); -#line 3145 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 3145 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.FLD_OWNCLASS__V21*/ meltfptr[17]), @@ -23926,9 +19888,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3145 /*^getslot */ -#line 3145 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -23942,15 +19902,12 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3145 /*_.NAMED_NAME__V22*/ meltfptr[21] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3146:/ cond"); -#line 3146 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 3146 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*~SYMB */ @@ -23960,9 +19917,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3146 /*^getslot */ -#line 3146 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -23976,50 +19931,39 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3146 /*_.NAMED_NAME__V23*/ meltfptr[22] = NULL;; } ; /*^compute */ - /*_#S__L14*/ meltfnum[13] = -#line 3145 "warmelt-macro.melt" /**::expr::**/ !melt_string_same ((melt_ptr_t) ( /*_.NAMED_NAME__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.NAMED_NAME__V23*/ meltfptr[22]));; /*^compute */ - /*_#OR___L13*/ meltfnum[8] = /*_#S__L14*/ meltfnum[13];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3144:/ clear"); -#line 3144 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLD_OWNCLASS__V21*/ meltfptr[17] = 0; /*^clear */ -#line 3144 /*clear *//*_.NAMED_NAME__V22*/ meltfptr[21] = 0; /*^clear */ -#line 3144 /*clear *//*_.NAMED_NAME__V23*/ meltfptr[22] = 0; /*^clear */ -#line 3144 /*clear *//*_#S__L14*/ meltfnum[13] = 0; } ; } ; /*^cond */ -#line 3144 /*cond */ if ( /*_#OR___L13*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3144 /*^block */ -#line 3144 /*anyblock */ { @@ -24027,7 +19971,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3147:/ locexp"); -#line 3147 "warmelt-macro.melt" /**::locexp::**/ melt_warning_str (0, (melt_ptr_t) (( /*~FIELDSLOC */ meltfclos->tabval[2])), ("field name already bound to a value in DEFCLASS"), (melt_ptr_t) ( /*_.FLDSTR__V5*/ meltfptr[3])); } @@ -24039,52 +19982,40 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3140:/ clear"); -#line 3140 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PREVALUE__V20*/ meltfptr[7] = 0; /*^clear */ -#line 3140 /*clear *//*_#IS_NOT_A__L12*/ meltfnum[4] = 0; /*^clear */ -#line 3140 /*clear *//*_#OR___L13*/ meltfnum[8] = 0; MELT_LOCATION ("warmelt-macro.melt:3137:/ quasiblock"); -#line 3137 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ /*^clear */ -#line 3137 /*clear *//*_.IFCPP___V12*/ meltfptr[8] = 0; /*^clear */ -#line 3137 /*clear *//*_.IFCPP___V16*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ -#line 3137 /*^block */ -#line 3137 /*anyblock */ { -#line 3150 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3150:/ cppif.then"); -#line 3150 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3150 /*anyblock */ { { /*^locexp */ -#line 3150 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -24093,11 +20024,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3150 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L15*/ meltfnum[13] = -#line 3150 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -24106,18 +20035,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3150:/ cond"); -#line 3150 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 3150 /*^block */ -#line 3150 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[4] = -#line 3150 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -24126,32 +20051,25 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3150:/ checksignal"); -#line 3150 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3150 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3150 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[4]; /*^apply.arg */ -#line 3150 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3150 argtab[2].meltbp_long = 3150; /*^apply.arg */ -#line 3150 argtab[3].meltbp_cstring = "mexpand_defclass fldprevbind !other"; /*^apply.arg */ -#line 3150 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLDPREVBIND__V6*/ meltfptr[5]; @@ -24174,11 +20092,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3150:/ clear"); -#line 3150 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[4] = 0; /*^clear */ -#line 3150 /*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[22] = 0; } @@ -24186,45 +20102,37 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3150 /*_.IF___V25*/ meltfptr[21] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3150:/ quasiblock"); -#line 3150 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V27*/ meltfptr[7] = /*_.IF___V25*/ meltfptr[21];; /*^compute */ - /*_.IFCPP___V24*/ meltfptr[17] = /*_.PROGN___V27*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3150:/ clear"); -#line 3150 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0; /*^clear */ -#line 3150 /*clear *//*_.IF___V25*/ meltfptr[21] = 0; /*^clear */ -#line 3150 /*clear *//*_.PROGN___V27*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3150 /*_.IFCPP___V24*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-macro.melt:3151:/ locexp"); -#line 3151 "warmelt-macro.melt" /**::locexp::**/ melt_warning_str (0, (melt_ptr_t) (( /*~FIELDSLOC */ meltfclos-> @@ -24235,13 +20143,11 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3149:/ quasiblock"); -#line 3149 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3137:/ clear"); -#line 3137 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V24*/ meltfptr[17] = 0; } ; @@ -24250,7 +20156,6 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3133:/ clear"); -#line 3133 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L7*/ meltfnum[5] = 0; } ; @@ -24259,35 +20164,27 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3130:/ clear"); -#line 3130 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; } ; } ; MELT_LOCATION ("warmelt-macro.melt:3153:/ quasiblock"); -#line 3153 "warmelt-macro.melt" /**::quasiblock::**/ /*_#GET_INT__L17*/ meltfnum[8] = -#line 3153 "warmelt-macro.melt" /**::expr::**/ (melt_get_int ((melt_ptr_t) (( /*~BOXNBSUPERFIELDS */ meltfclos->tabval[4]))));; /*^compute */ - /*_#FLDOFF__L18*/ meltfnum[4] = -#line 3153 "warmelt-macro.melt" /**::expr::**/ (( /*_#IX__L1*/ meltfnum[0]) + ( /*_#GET_INT__L17*/ meltfnum[8]));; MELT_LOCATION ("warmelt-macro.melt:3154:/ checksignal"); -#line 3154 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3154 /*^rawallocobj */ -#line 3154 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -24299,7 +20196,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3154 /*putslot */ melt_assertmsg ("putslot checkobj @NAMED_NAME", melt_magic_discr ((melt_ptr_t) @@ -24309,7 +20205,6 @@ lab_endgetargs:; ( /*_.FLDSTR__V5*/ meltfptr[3]), "NAMED_NAME"); ; /*^putslot */ -#line 3154 /*putslot */ melt_assertmsg ("putslot checkobj @FLD_OWNCLASS", melt_magic_discr ((melt_ptr_t) @@ -24323,7 +20218,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3158:/ locexp"); -#line 3158 "warmelt-macro.melt" /**::locexp::**/ melt_put_int ((melt_ptr_t) ( /*_.NEWFLD__V28*/ meltfptr[8]), ( /*_#FLDOFF__L18*/ meltfnum[4])); } @@ -24331,7 +20225,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3160:/ locexp"); -#line 3160 "warmelt-macro.melt" /**::locexp::**/ meltgc_multiple_put_nth ((melt_ptr_t) (( /*~FIELDTUP */ meltfclos->tabval[6])), ( /*_#FLDOFF__L18*/ meltfnum[4]), @@ -24341,7 +20234,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3161:/ locexp"); -#line 3161 "warmelt-macro.melt" /**::locexp::**/ meltgc_put_mapstrings ((struct meltmapstrings_st *) (( /*~FIELDSTRMAP */ meltfclos->tabval[1])), melt_string_str ((melt_ptr_t) @@ -24351,19 +20243,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3162:/ quasiblock"); -#line 3162 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3162 MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3162 /*^rawallocobj */ -#line 3162 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -24376,7 +20264,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3162 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -24386,7 +20273,6 @@ lab_endgetargs:; ( /*_.FLDNAM__V2*/ meltfptr[1]), "BINDER"); ; /*^putslot */ -#line 3162 /*putslot */ melt_assertmsg ("putslot checkobj @FLBIND_CLABIND", melt_magic_discr ((melt_ptr_t) @@ -24397,7 +20283,6 @@ lab_endgetargs:; "FLBIND_CLABIND"); ; /*^putslot */ -#line 3162 /*putslot */ melt_assertmsg ("putslot checkobj @FLBIND_FIELD", melt_magic_discr ((melt_ptr_t) @@ -24408,21 +20293,17 @@ lab_endgetargs:; ; /*_.NEWFLDBIND__V30*/ meltfptr[22] = /*_.INST__V31*/ meltfptr[21];; MELT_LOCATION ("warmelt-macro.melt:3166:/ checksignal"); -#line 3166 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3166 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3166 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*~ENV */ meltfclos->tabval[0]); /*^apply.arg */ -#line 3166 argtab[1].meltbp_aptr = (melt_ptr_t *) & ( /*~LOC */ meltfclos->tabval[8]); /*_.WARN_IF_REDEFINED__V32*/ meltfptr[7] = @@ -24434,17 +20315,14 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3167:/ checksignal"); -#line 3167 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3167 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3167 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NEWFLDBIND__V30*/ meltfptr[22]; /*_.PUT_ENV__V33*/ meltfptr[17] = @@ -24458,7 +20336,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3168:/ locexp"); -#line 3168 "warmelt-macro.melt" /**::locexp::**/ meltgc_multiple_put_nth ((melt_ptr_t) (( /*~OWNFIELDBINDINGS */ meltfclos-> tabval[9])), ( /*_#IX__L1*/ meltfnum[0]), @@ -24468,45 +20345,33 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3162:/ clear"); -#line 3162 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NEWFLDBIND__V30*/ meltfptr[22] = 0; /*^clear */ -#line 3162 /*clear *//*_.WARN_IF_REDEFINED__V32*/ meltfptr[7] = 0; /*^clear */ -#line 3162 /*clear *//*_.PUT_ENV__V33*/ meltfptr[17] = 0; MELT_LOCATION ("warmelt-macro.melt:3153:/ clear"); -#line 3153 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#GET_INT__L17*/ meltfnum[8] = 0; /*^clear */ -#line 3153 /*clear *//*_#FLDOFF__L18*/ meltfnum[4] = 0; /*^clear */ -#line 3153 /*clear *//*_.NEWFLD__V28*/ meltfptr[8] = 0; MELT_LOCATION ("warmelt-macro.melt:3124:/ clear"); -#line 3124 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDSTR__V5*/ meltfptr[3] = 0; /*^clear */ -#line 3124 /*clear *//*_.FLDPREVBIND__V6*/ meltfptr[5] = 0; /*^clear */ -#line 3124 /*clear *//*_.MAPSTRING_GETSTR__V7*/ meltfptr[6] = 0; /*^clear */ -#line 3124 /*clear *//*_#NULL__L3*/ meltfnum[1] = 0; MELT_LOCATION ("warmelt-macro.melt:3121:/ checksignal"); -#line 3121 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 3121 /*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0; } @@ -24525,7 +20390,6 @@ labend_rout: } /*end meltrout_47_warmelt_macro_LAMBDA___12__ */ -#line 3199 "warmelt-macro.melt" /**::proc::**/ @@ -24605,12 +20469,10 @@ meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3199:/ getarg"); -#line 3199 "warmelt-macro.melt" /**::getarg::**/ /*_.CLA__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3199 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.LOC__V3*/ meltfptr[2] = @@ -24620,7 +20482,6 @@ meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t /*getarg#2 */ /*^getarg */ -#line 3199 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.FLDKW__V4*/ meltfptr[3] = @@ -24631,7 +20492,6 @@ meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t /*getarg#3 */ /*^getarg */ -#line 3199 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.EXPR__V5*/ meltfptr[4] = @@ -24642,7 +20502,6 @@ meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t /*getarg#4 */ /*^getarg */ -#line 3199 if (meltxargdescr_[3] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V6*/ meltfptr[5] = @@ -24652,7 +20511,6 @@ meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t /*getarg#5 */ /*^getarg */ -#line 3199 if (meltxargdescr_[4] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V7*/ meltfptr[6] = @@ -24663,7 +20521,6 @@ meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t /*getarg#6 */ /*^getarg */ -#line 3199 if (meltxargdescr_[5] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V8*/ meltfptr[7] = @@ -24676,24 +20533,19 @@ meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t lab_endgetargs:; /*body*/ /*^block*/ -#line 3199 /*anyblock*/ { -#line 3200 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3200:/ cppif.then"); -#line 3200 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3200 /*anyblock */ { { /*^locexp */ -#line 3200 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -24702,11 +20554,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3200 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 3200 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -24715,18 +20565,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3200:/ cond"); -#line 3200 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3200 /*^block */ -#line 3200 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = -#line 3200 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -24734,29 +20580,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3200:/ checksignal"); -#line 3200 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3200 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3200 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ -#line 3200 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3200 argtab[2].meltbp_long = 3200; /*^apply.arg */ -#line 3200 argtab[3].meltbp_cstring = "start parse_field_assignment cla"; /*^apply.arg */ -#line 3200 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CLA__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = @@ -24774,62 +20613,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3200:/ clear"); -#line 3200 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ -#line 3200 /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0; } ; } else { /*^cond.else */ -#line 3200 /*_.IF___V10*/ meltfptr[9] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3200:/ quasiblock"); -#line 3200 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[9];; /*^compute */ - /*_.IFCPP___V9*/ meltfptr[8] = /*_.PROGN___V12*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3200:/ clear"); -#line 3200 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3200 /*clear *//*_.IF___V10*/ meltfptr[9] = 0; /*^clear */ -#line 3200 /*clear *//*_.PROGN___V12*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3200 /*_.IFCPP___V9*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3201 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3201:/ cppif.then"); -#line 3201 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3201 /*anyblock */ { { /*^locexp */ -#line 3201 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -24838,11 +20664,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3201 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = -#line 3201 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -24851,18 +20675,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3201:/ cond"); -#line 3201 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3201 /*^block */ -#line 3201 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = -#line 3201 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -24870,29 +20690,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3201:/ checksignal"); -#line 3201 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3201 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3201 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg */ -#line 3201 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3201 argtab[2].meltbp_long = 3201; /*^apply.arg */ -#line 3201 argtab[3].meltbp_cstring = "start parse_field_assignment loc"; /*^apply.arg */ -#line 3201 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = @@ -24910,62 +20723,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3201:/ clear"); -#line 3201 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0; /*^clear */ -#line 3201 /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0; } ; } else { /*^cond.else */ -#line 3201 /*_.IF___V14*/ meltfptr[10] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3201:/ quasiblock"); -#line 3201 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[10];; /*^compute */ - /*_.IFCPP___V13*/ meltfptr[9] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3201:/ clear"); -#line 3201 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0; /*^clear */ -#line 3201 /*clear *//*_.IF___V14*/ meltfptr[10] = 0; /*^clear */ -#line 3201 /*clear *//*_.PROGN___V16*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3201 /*_.IFCPP___V13*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3202 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3202:/ cppif.then"); -#line 3202 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3202 /*anyblock */ { { /*^locexp */ -#line 3202 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -24974,11 +20774,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3202 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[0] = -#line 3202 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -24987,18 +20785,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3202:/ cond"); -#line 3202 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3202 /*^block */ -#line 3202 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[1] = -#line 3202 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -25006,29 +20800,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3202:/ checksignal"); -#line 3202 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3202 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3202 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[1]; /*^apply.arg */ -#line 3202 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3202 argtab[2].meltbp_long = 3202; /*^apply.arg */ -#line 3202 argtab[3].meltbp_cstring = "start parse_field_assignment fldkw"; /*^apply.arg */ -#line 3202 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLDKW__V4*/ meltfptr[3]; /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = @@ -25046,91 +20833,72 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3202:/ clear"); -#line 3202 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[1] = 0; /*^clear */ -#line 3202 /*clear *//*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0; } ; } else { /*^cond.else */ -#line 3202 /*_.IF___V18*/ meltfptr[14] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3202:/ quasiblock"); -#line 3202 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V20*/ meltfptr[18] = /*_.IF___V18*/ meltfptr[14];; /*^compute */ - /*_.IFCPP___V17*/ meltfptr[10] = /*_.PROGN___V20*/ meltfptr[18];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3202:/ clear"); -#line 3202 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[0] = 0; /*^clear */ -#line 3202 /*clear *//*_.IF___V18*/ meltfptr[14] = 0; /*^clear */ -#line 3202 /*clear *//*_.PROGN___V20*/ meltfptr[18] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3202 /*_.IFCPP___V17*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3203:/ checksignal"); -#line 3203 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[1] = -#line 3203 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDKW__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[1])));; /*^compute */ - /*_#NOT__L8*/ meltfnum[0] = -#line 3203 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_A__L7*/ meltfnum[1]));; MELT_LOCATION ("warmelt-macro.melt:3203:/ cond"); -#line 3203 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3203 /*^block */ -#line 3203 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3205:/ locexp"); -#line 3205 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("expecting :fieldname"), (melt_ptr_t) 0); } ; MELT_LOCATION ("warmelt-macro.melt:3206:/ quasiblock"); -#line 3206 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:3206:/ locexp"); -#line 3206 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -25141,69 +20909,54 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3206 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3204:/ quasiblock"); -#line 3204 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V23*/ meltfptr[22] = /*_.RETURN___V22*/ meltfptr[18];; /*^compute */ - /*_.IF___V21*/ meltfptr[14] = /*_.PROGN___V23*/ meltfptr[22];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3203:/ clear"); -#line 3203 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V22*/ meltfptr[18] = 0; /*^clear */ -#line 3203 /*clear *//*_.PROGN___V23*/ meltfptr[22] = 0; } ; } else { /*^cond.else */ -#line 3203 /*_.IF___V21*/ meltfptr[14] = NULL;; } ; -#line 3208 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3208:/ cppif.then"); -#line 3208 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3208 /*anyblock */ { /*^checksignal */ -#line 3208 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L9*/ meltfnum[8] = -#line 3208 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDKW__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3208:/ cond"); -#line 3208 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3208 /*_.IFELSE___V25*/ meltfptr[22] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3208:/ cond.else"); -#line 3208 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3208 /*anyblock */ { @@ -25212,7 +20965,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3208 melt_assert_failed (("check fldkw"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -25227,58 +20979,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V24*/ meltfptr[18] = /*_.IFELSE___V25*/ meltfptr[22];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3208:/ clear"); -#line 3208 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L9*/ meltfnum[8] = 0; /*^clear */ -#line 3208 /*clear *//*_.IFELSE___V25*/ meltfptr[22] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3208 /*_.IFCPP___V24*/ meltfptr[18] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3209 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3209:/ cppif.then"); -#line 3209 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3209 /*anyblock */ { /*^checksignal */ -#line 3209 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[8] = -#line 3209 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:3209:/ cond"); -#line 3209 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3209 /*_.IFELSE___V27*/ meltfptr[26] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3209:/ cond.else"); -#line 3209 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3209 /*anyblock */ { @@ -25287,7 +21026,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3209 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -25302,57 +21040,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V26*/ meltfptr[22] = /*_.IFELSE___V27*/ meltfptr[26];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3209:/ clear"); -#line 3209 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L10*/ meltfnum[8] = 0; /*^clear */ -#line 3209 /*clear *//*_.IFELSE___V27*/ meltfptr[26] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3209 /*_.IFCPP___V26*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3210 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3210:/ cppif.then"); -#line 3210 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3210 /*anyblock */ { /*^checksignal */ -#line 3210 MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L11*/ meltfnum[8] = -#line 3210 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V7*/ meltfptr[6])) == MELTOBMAG_CLOSURE);; MELT_LOCATION ("warmelt-macro.melt:3210:/ cond"); -#line 3210 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L11*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3210 /*_.IFELSE___V29*/ meltfptr[28] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3210:/ cond.else"); -#line 3210 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3210 /*anyblock */ { @@ -25361,7 +21086,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3210 melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -25376,57 +21100,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V28*/ meltfptr[26] = /*_.IFELSE___V29*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3210:/ clear"); -#line 3210 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L11*/ meltfnum[8] = 0; /*^clear */ -#line 3210 /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3210 /*_.IFCPP___V28*/ meltfptr[26] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3211 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3211:/ cppif.then"); -#line 3211 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3211 /*anyblock */ { /*^checksignal */ -#line 3211 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L12*/ meltfnum[8] = -#line 3211 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V8*/ meltfptr[7])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:3211:/ cond"); -#line 3211 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3211 /*_.IFELSE___V31*/ meltfptr[30] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3211:/ cond.else"); -#line 3211 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3211 /*anyblock */ { @@ -25435,7 +21146,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3211 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -25450,55 +21160,43 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V30*/ meltfptr[28] = /*_.IFELSE___V31*/ meltfptr[30];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3211:/ clear"); -#line 3211 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L12*/ meltfnum[8] = 0; /*^clear */ -#line 3211 /*clear *//*_.IFELSE___V31*/ meltfptr[30] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3211 /*_.IFCPP___V30*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3213:/ quasiblock"); -#line 3213 "warmelt-macro.melt" /**::quasiblock::**/ /*_.FLD__V33*/ meltfptr[32] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3215:/ checksignal"); -#line 3215 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[8] = -#line 3215 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:3215:/ cond"); -#line 3215 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3215 /*^block */ -#line 3215 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3216:/ quasiblock"); -#line 3216 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 3216 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CLA__V2*/ meltfptr[1]) /*=obj*/ ; @@ -25507,19 +21205,15 @@ lab_endgetargs:; }; ; -#line 3218 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3218:/ cppif.then"); -#line 3218 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3218 /*anyblock */ { { /*^locexp */ -#line 3218 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -25528,11 +21222,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3218 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = -#line 3218 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -25541,18 +21233,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3218:/ cond"); -#line 3218 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 3218 /*^block */ -#line 3218 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = -#line 3218 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -25560,31 +21248,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3218:/ checksignal"); -#line 3218 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3218 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3218 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14]; /*^apply.arg */ -#line 3218 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3218 argtab[2].meltbp_long = 3218; /*^apply.arg */ -#line 3218 argtab[3].meltbp_cstring = "parse_field_assignment clafields"; /*^apply.arg */ -#line 3218 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CLAFIELDS__V36*/ meltfptr[35]; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = @@ -25603,54 +21284,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3218:/ clear"); -#line 3218 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ -#line 3218 /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0; } ; } else { /*^cond.else */ -#line 3218 /*_.IF___V38*/ meltfptr[37] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3218:/ quasiblock"); -#line 3218 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[37];; /*^compute */ - /*_.IFCPP___V37*/ meltfptr[36] = /*_.PROGN___V40*/ meltfptr[38];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3218:/ clear"); -#line 3218 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0; /*^clear */ -#line 3218 /*clear *//*_.IF___V38*/ meltfptr[37] = 0; /*^clear */ -#line 3218 /*clear *//*_.PROGN___V40*/ meltfptr[38] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3218 /*_.IFCPP___V37*/ meltfptr[36] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3223:/ quasiblock"); -#line 3223 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3223 /*newclosure *//*_.LAMBDA___V42*/ meltfptr[38] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -25661,7 +21331,6 @@ lab_endgetargs:; (1)); ; /*^putclosedv */ -#line 3223 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -25678,15 +21347,12 @@ lab_endgetargs:; ; /*_.LAMBDA___V41*/ meltfptr[37] = /*_.LAMBDA___V42*/ meltfptr[38];; MELT_LOCATION ("warmelt-macro.melt:3221:/ checksignal"); -#line 3221 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3219:/ quasiblock"); -#line 3219 "warmelt-macro.melt" /**::quasiblock::**/ /*^multiapply */ -#line 3219 /*multiapply 2args, 2x.res */ { union meltparam_un argtab[1]; @@ -25695,18 +21361,14 @@ lab_endgetargs:; memset (&restab, 0, sizeof (restab)); memset (&argtab, 0, sizeof (argtab)); /*^multiapply.arg */ -#line 3219 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V41*/ meltfptr[37]; /*^multiapply.xres */ -#line 3219 restab[0].meltbp_longptr = & /*_#IX__L16*/ meltfnum[14]; /*^multiapply.xres */ -#line 3219 restab[1].meltbp_aptr = (melt_ptr_t *) & /*_.FOUNDNAME__V45*/ meltfptr[44]; /*^multiapply.appl */ -#line 3219 /*_.FOUNDFLD__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t) (( /*!MULTIPLE_ITERATE_TEST */ meltfrout-> @@ -25717,38 +21379,29 @@ lab_endgetargs:; } ; /*^quasiblock */ -#line 3219 MELT_LOCATION ("warmelt-macro.melt:3236:/ checksignal"); -#line 3236 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3236 /*cond */ if ( /*_.FOUNDFLD__V44*/ meltfptr[43]) /*then */ { /*^cond.then */ -#line 3236 /*^block */ -#line 3236 /*anyblock */ { -#line 3238 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3238:/ cppif.then"); -#line 3238 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3238 /*anyblock */ { { /*^locexp */ -#line 3238 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -25757,11 +21410,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3238 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L17*/ meltfnum[13] = -#line 3238 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -25770,18 +21421,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3238:/ cond"); -#line 3238 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 3238 /*^block */ -#line 3238 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = -#line 3238 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -25790,31 +21437,24 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3238:/ checksignal"); -#line 3238 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3238 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3238 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17]; /*^apply.arg */ -#line 3238 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3238 argtab[2].meltbp_long = 3238; /*^apply.arg */ -#line 3238 argtab[3].meltbp_cstring = "parse_field_assignment return foundfld"; /*^apply.arg */ -#line 3238 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FOUNDFLD__V44*/ meltfptr[43]; /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48] = @@ -25833,143 +21473,113 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3238:/ clear"); -#line 3238 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; /*^clear */ -#line 3238 /*clear *//*_.MELT_DEBUG_FUN__V49*/ meltfptr[48] = 0; } ; } else { /*^cond.else */ -#line 3238 /*_.IF___V48*/ meltfptr[47] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3238:/ quasiblock"); -#line 3238 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V50*/ meltfptr[48] = /*_.IF___V48*/ meltfptr[47];; /*^compute */ - /*_.IFCPP___V47*/ meltfptr[46] = /*_.PROGN___V50*/ meltfptr[48];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3238:/ clear"); -#line 3238 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[13] = 0; /*^clear */ -#line 3238 /*clear *//*_.IF___V48*/ meltfptr[47] = 0; /*^clear */ -#line 3238 /*clear *//*_.PROGN___V50*/ meltfptr[48] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3238 /*_.IFCPP___V47*/ meltfptr[46] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3239:/ compute"); -#line 3239 "warmelt-macro.melt" /**::compute::**/ /*_.FLD__V33*/ meltfptr[32] = /*_.SETQ___V51*/ meltfptr[47] = /*_.FOUNDFLD__V44*/ meltfptr[43];; MELT_LOCATION ("warmelt-macro.melt:3237:/ quasiblock"); -#line 3237 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V52*/ meltfptr[48] = /*_.SETQ___V51*/ meltfptr[47];; /*^compute */ - /*_.IF___V46*/ meltfptr[45] = /*_.PROGN___V52*/ meltfptr[48];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3236:/ clear"); -#line 3236 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V47*/ meltfptr[46] = 0; /*^clear */ -#line 3236 /*clear *//*_.SETQ___V51*/ meltfptr[47] = 0; /*^clear */ -#line 3236 /*clear *//*_.PROGN___V52*/ meltfptr[48] = 0; } ; } else { /*^cond.else */ -#line 3236 /*_.IF___V46*/ meltfptr[45] = NULL;; } ; /*^compute */ - /*_.MULTI___V43*/ meltfptr[42] = /*_.IF___V46*/ meltfptr[45];; MELT_LOCATION ("warmelt-macro.melt:3219:/ clear"); -#line 3219 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IF___V46*/ meltfptr[45] = 0; /*^clear */ -#line 3219 /*clear *//*_#IX__L16*/ meltfnum[14] = 0; /*^clear */ -#line 3219 /*clear *//*_.FOUNDNAME__V45*/ meltfptr[44] = 0; /*_.LET___V35*/ meltfptr[34] = /*_.MULTI___V43*/ meltfptr[42];; MELT_LOCATION ("warmelt-macro.melt:3216:/ clear"); -#line 3216 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CLAFIELDS__V36*/ meltfptr[35] = 0; /*^clear */ -#line 3216 /*clear *//*_.IFCPP___V37*/ meltfptr[36] = 0; /*^clear */ -#line 3216 /*clear *//*_.LAMBDA___V41*/ meltfptr[37] = 0; /*^clear */ -#line 3216 /*clear *//*_.MULTI___V43*/ meltfptr[42] = 0; /*_.IF___V34*/ meltfptr[33] = /*_.LET___V35*/ meltfptr[34];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3215:/ clear"); -#line 3215 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V35*/ meltfptr[34] = 0; } ; } else { /*^cond.else */ -#line 3215 /*_.IF___V34*/ meltfptr[33] = NULL;; } ; -#line 3240 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3240:/ cppif.then"); -#line 3240 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3240 /*anyblock */ { { /*^locexp */ -#line 3240 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -25978,11 +21588,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3240 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L19*/ meltfnum[17] = -#line 3240 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -25991,18 +21599,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3240:/ cond"); -#line 3240 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ -#line 3240 /*^block */ -#line 3240 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[13] = -#line 3240 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -26010,31 +21614,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3240:/ checksignal"); -#line 3240 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3240 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3240 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[13]; /*^apply.arg */ -#line 3240 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3240 argtab[2].meltbp_long = 3240; /*^apply.arg */ -#line 3240 argtab[3].meltbp_cstring = "parse_field_assignment after class scanning fld"; /*^apply.arg */ -#line 3240 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLD__V33*/ meltfptr[32]; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[48] = @@ -26052,72 +21649,56 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3240:/ clear"); -#line 3240 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[13] = 0; /*^clear */ -#line 3240 /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[48] = 0; } ; } else { /*^cond.else */ -#line 3240 /*_.IF___V54*/ meltfptr[47] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3240:/ quasiblock"); -#line 3240 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V56*/ meltfptr[45] = /*_.IF___V54*/ meltfptr[47];; /*^compute */ - /*_.IFCPP___V53*/ meltfptr[46] = /*_.PROGN___V56*/ meltfptr[45];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3240:/ clear"); -#line 3240 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0; /*^clear */ -#line 3240 /*clear *//*_.IF___V54*/ meltfptr[47] = 0; /*^clear */ -#line 3240 /*clear *//*_.PROGN___V56*/ meltfptr[45] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3240 /*_.IFCPP___V53*/ meltfptr[46] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3241:/ checksignal"); -#line 3241 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L21*/ meltfnum[14] = -#line 3241 "warmelt-macro.melt" /**::expr::**/ (( /*_.FLD__V33*/ meltfptr[32]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3241:/ cond"); -#line 3241 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L21*/ meltfnum[14]) /*then */ { /*^cond.then */ -#line 3241 /*^block */ -#line 3241 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3243:/ quasiblock"); -#line 3243 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 3243 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FLDKW__V4*/ meltfptr[3]) /*=obj*/ ; @@ -26126,25 +21707,20 @@ lab_endgetargs:; }; ; /*_.FLDNAM__V60*/ meltfptr[36] = -#line 3244 "warmelt-macro.melt" /**::expr::**/ meltgc_named_symbol (melt_string_str ((melt_ptr_t) ( /*_.FLDKWNAM__V59*/ meltfptr[35])), MELT_CREATE);; -#line 3246 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3246:/ cppif.then"); -#line 3246 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3246 /*anyblock */ { { /*^locexp */ -#line 3246 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -26153,11 +21729,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3246 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L22*/ meltfnum[13] = -#line 3246 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -26166,18 +21740,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3246:/ cond"); -#line 3246 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 3246 /*^block */ -#line 3246 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[17] = -#line 3246 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -26185,31 +21755,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3246:/ checksignal"); -#line 3246 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3246 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3246 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[17]; /*^apply.arg */ -#line 3246 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3246 argtab[2].meltbp_long = 3246; /*^apply.arg */ -#line 3246 argtab[3].meltbp_cstring = "parse_field_assignment fldnam"; /*^apply.arg */ -#line 3246 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLDNAM__V60*/ meltfptr[36]; /*_.MELT_DEBUG_FUN__V63*/ meltfptr[34] = @@ -26228,83 +21791,65 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3246:/ clear"); -#line 3246 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[17] = 0; /*^clear */ -#line 3246 /*clear *//*_.MELT_DEBUG_FUN__V63*/ meltfptr[34] = 0; } ; } else { /*^cond.else */ -#line 3246 /*_.IF___V62*/ meltfptr[42] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3246:/ quasiblock"); -#line 3246 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V64*/ meltfptr[48] = /*_.IF___V62*/ meltfptr[42];; /*^compute */ - /*_.IFCPP___V61*/ meltfptr[37] = /*_.PROGN___V64*/ meltfptr[48];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3246:/ clear"); -#line 3246 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[13] = 0; /*^clear */ -#line 3246 /*clear *//*_.IF___V62*/ meltfptr[42] = 0; /*^clear */ -#line 3246 /*clear *//*_.PROGN___V64*/ meltfptr[48] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3246 /*_.IFCPP___V61*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3247 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3247:/ cppif.then"); -#line 3247 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3247 /*anyblock */ { /*^checksignal */ -#line 3247 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L24*/ meltfnum[17] = -#line 3247 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDNAM__V60*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[8])));; MELT_LOCATION ("warmelt-macro.melt:3247:/ cond"); -#line 3247 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L24*/ meltfnum[17]) /*then */ { /*^cond.then */ -#line 3247 /*_.IFELSE___V66*/ meltfptr[45] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3247:/ cond.else"); -#line 3247 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3247 /*anyblock */ { @@ -26313,7 +21858,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3247 melt_assert_failed (("check fldnam symb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -26329,40 +21873,32 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V65*/ meltfptr[47] = /*_.IFELSE___V66*/ meltfptr[45];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3247:/ clear"); -#line 3247 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L24*/ meltfnum[17] = 0; /*^clear */ -#line 3247 /*clear *//*_.IFELSE___V66*/ meltfptr[45] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3247 /*_.IFCPP___V65*/ meltfptr[47] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3248:/ quasiblock"); -#line 3248 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3248 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3248 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3248 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.FLDNAM__V60*/ meltfptr[36]; /*_.FLDBIND__V68*/ meltfptr[42] = @@ -26374,19 +21910,15 @@ lab_endgetargs:; } ; -#line 3249 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3249:/ cppif.then"); -#line 3249 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3249 /*anyblock */ { { /*^locexp */ -#line 3249 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -26395,11 +21927,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3249 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L25*/ meltfnum[13] = -#line 3249 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -26408,18 +21938,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3249:/ cond"); -#line 3249 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L25*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 3249 /*^block */ -#line 3249 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[17] = -#line 3249 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -26427,31 +21953,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3249:/ checksignal"); -#line 3249 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3249 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3249 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[17]; /*^apply.arg */ -#line 3249 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3249 argtab[2].meltbp_long = 3249; /*^apply.arg */ -#line 3249 argtab[3].meltbp_cstring = "parse_field_assignment fldbind"; /*^apply.arg */ -#line 3249 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLDBIND__V68*/ meltfptr[42]; /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = @@ -26470,70 +21989,55 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3249:/ clear"); -#line 3249 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L26*/ meltfnum[17] = 0; /*^clear */ -#line 3249 /*clear *//*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = 0; } ; } else { /*^cond.else */ -#line 3249 /*_.IF___V70*/ meltfptr[45] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3249:/ quasiblock"); -#line 3249 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V72*/ meltfptr[70] = /*_.IF___V70*/ meltfptr[45];; /*^compute */ - /*_.IFCPP___V69*/ meltfptr[48] = /*_.PROGN___V72*/ meltfptr[70];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3249:/ clear"); -#line 3249 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L25*/ meltfnum[13] = 0; /*^clear */ -#line 3249 /*clear *//*_.IF___V70*/ meltfptr[45] = 0; /*^clear */ -#line 3249 /*clear *//*_.PROGN___V72*/ meltfptr[70] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3249 /*_.IFCPP___V69*/ meltfptr[48] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3251:/ checksignal"); -#line 3251 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L27*/ meltfnum[17] = -#line 3251 "warmelt-macro.melt" /**::expr::**/ (( /*_.FLDBIND__V68*/ meltfptr[42]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3251:/ cond"); -#line 3251 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L27*/ meltfnum[17]) /*then */ { /*^cond.then */ -#line 3251 /*^block */ -#line 3251 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3252:/ locexp"); -#line 3252 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("unknown field name in field assignment"), (melt_ptr_t) ( /*_.FLDKWNAM__V59*/ @@ -26541,14 +22045,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3254:/ quasiblock"); -#line 3254 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:3254:/ locexp"); -#line 3254 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26559,61 +22061,48 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3254 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3251:/ quasiblock"); -#line 3251 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V75*/ meltfptr[74] = /*_.RETURN___V74*/ meltfptr[70];; /*^compute */ - /*_.IFELSE___V73*/ meltfptr[45] = /*_.PROGN___V75*/ meltfptr[74];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3251:/ clear"); -#line 3251 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V74*/ meltfptr[70] = 0; /*^clear */ -#line 3251 /*clear *//*_.PROGN___V75*/ meltfptr[74] = 0; } ; } else { /*^cond.else */ -#line 3251 /*^block */ -#line 3251 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3256:/ checksignal"); -#line 3256 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L28*/ meltfnum[13] = -#line 3256 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDBIND__V68*/ meltfptr[42]), (melt_ptr_t) (( /*!CLASS_FIELD_BINDING */ meltfrout->tabval[10])));; MELT_LOCATION ("warmelt-macro.melt:3256:/ cond"); -#line 3256 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L28*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 3256 /*^block */ -#line 3256 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3257:/ getslot"); -#line 3257 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -26624,24 +22113,19 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3257 /*_.FLD__V33*/ meltfptr[32] = /*_.SETQ___V78*/ meltfptr[77] = /*_.FLBIND_FIELD__V77*/ meltfptr[74];; -#line 3258 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3258:/ cppif.then"); -#line 3258 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3258 /*anyblock */ { { /*^locexp */ -#line 3258 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -26650,11 +22134,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3258 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L29*/ meltfnum[28] = -#line 3258 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -26663,18 +22145,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3258:/ cond"); -#line 3258 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L29*/ meltfnum[28]) /*then */ { /*^cond.then */ -#line 3258 /*^block */ -#line 3258 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29] = -#line 3258 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -26683,32 +22161,25 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3258:/ checksignal"); -#line 3258 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3258 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3258 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29]; /*^apply.arg */ -#line 3258 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3258 argtab[2].meltbp_long = 3258; /*^apply.arg */ -#line 3258 argtab[3].meltbp_cstring = "parse_field_assignment found fld in field binding"; /*^apply.arg */ -#line 3258 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLD__V33*/ meltfptr[32]; @@ -26731,11 +22202,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3258:/ clear"); -#line 3258 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29] = 0; /*^clear */ -#line 3258 /*clear *//*_.MELT_DEBUG_FUN__V81*/ meltfptr[80] = 0; } @@ -26743,105 +22212,83 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3258 /*_.IF___V80*/ meltfptr[79] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3258:/ quasiblock"); -#line 3258 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V82*/ meltfptr[80] = /*_.IF___V80*/ meltfptr[79];; /*^compute */ - /*_.IFCPP___V79*/ meltfptr[78] = /*_.PROGN___V82*/ meltfptr[80];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3258:/ clear"); -#line 3258 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L29*/ meltfnum[28] = 0; /*^clear */ -#line 3258 /*clear *//*_.IF___V80*/ meltfptr[79] = 0; /*^clear */ -#line 3258 /*clear *//*_.PROGN___V82*/ meltfptr[80] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3258 /*_.IFCPP___V79*/ meltfptr[78] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3256:/ quasiblock"); -#line 3256 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V83*/ meltfptr[79] = /*_.IFCPP___V79*/ meltfptr[78];; /*^compute */ - /*_.IFELSE___V76*/ meltfptr[70] = /*_.PROGN___V83*/ meltfptr[79];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3256:/ clear"); -#line 3256 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLBIND_FIELD__V77*/ meltfptr[74] = 0; /*^clear */ -#line 3256 /*clear *//*_.SETQ___V78*/ meltfptr[77] = 0; /*^clear */ -#line 3256 /*clear *//*_.IFCPP___V79*/ meltfptr[78] = 0; /*^clear */ -#line 3256 /*clear *//*_.PROGN___V83*/ meltfptr[79] = 0; } ; } else { /*^cond.else */ -#line 3256 /*^block */ -#line 3256 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3260:/ checksignal"); -#line 3260 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L31*/ meltfnum[29] = -#line 3260 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDBIND__V68*/ meltfptr[42]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[11])));; MELT_LOCATION ("warmelt-macro.melt:3260:/ cond"); -#line 3260 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L31*/ meltfnum[29]) /*then */ { /*^cond.then */ -#line 3260 /*^block */ -#line 3260 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3261:/ quasiblock"); -#line 3261 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 3261 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -26853,20 +22300,16 @@ lab_endgetargs:; }; ; -#line 3262 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3262:/ cppif.then"); -#line 3262 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3262 /*anyblock */ { { /*^locexp */ -#line 3262 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -26875,11 +22318,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3262 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L32*/ meltfnum[28] = -#line 3262 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ @@ -26890,19 +22331,15 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3262:/ cond"); -#line 3262 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L32*/ meltfnum[28]) /*then */ { /*^cond.then */ -#line 3262 /*^block */ -#line 3262 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[32] = -#line 3262 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -26911,33 +22348,26 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3262:/ checksignal"); -#line 3262 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3262 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3262 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[32]; /*^apply.arg */ -#line 3262 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3262 argtab[2].meltbp_long = 3262; /*^apply.arg */ -#line 3262 argtab[3].meltbp_cstring = "parse_field_assignment has vfld"; /*^apply.arg */ -#line 3262 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.VFLD__V86*/ meltfptr[77]; @@ -26962,11 +22392,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3262:/ clear"); -#line 3262 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L33*/ meltfnum[32] = 0; /*^clear */ -#line 3262 /*clear *//*_.MELT_DEBUG_FUN__V89*/ meltfptr[88] = 0; } @@ -26974,72 +22402,58 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3262 /*_.IF___V88*/ meltfptr[79] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3262:/ quasiblock"); -#line 3262 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V90*/ meltfptr[88] = /*_.IF___V88*/ meltfptr[79];; /*^compute */ - /*_.IFCPP___V87*/ meltfptr[78] = /*_.PROGN___V90*/ meltfptr[88];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3262:/ clear"); -#line 3262 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L32*/ meltfnum[28] = 0; /*^clear */ -#line 3262 /*clear *//*_.IF___V88*/ meltfptr[79] = 0; /*^clear */ -#line 3262 /*clear *//*_.PROGN___V90*/ meltfptr[88] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3262 /*_.IFCPP___V87*/ meltfptr[78] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3263:/ checksignal"); -#line 3263 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L34*/ meltfnum[32] = -#line 3263 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VFLD__V86*/ meltfptr[77]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->tabval[12])));; MELT_LOCATION ("warmelt-macro.melt:3263:/ cond"); -#line 3263 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L34*/ meltfnum[32]) /*then */ { /*^cond.then */ -#line 3263 /*^block */ -#line 3263 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3264:/ quasiblock"); -#line 3264 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 3264 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -27052,7 +22466,6 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3265:/ getslot"); -#line 3265 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -27065,30 +22478,24 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3267:/ compute"); -#line 3267 "warmelt-macro.melt" /**::compute::**/ /*_.FLD__V33*/ meltfptr[32] = /*_.SETQ___V95*/ meltfptr[94] = /*_.VFLD__V86*/ meltfptr[77];; MELT_LOCATION ("warmelt-macro.melt:3268:/ checksignal"); -#line 3268 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#S__L35*/ meltfnum[28] = -#line 3268 "warmelt-macro.melt" /**::expr::**/ !melt_string_same ((melt_ptr_t) ( /*_.VFLDNAM__V93*/ meltfptr[92]), (melt_ptr_t) ( /*_.KWNAM__V94*/ meltfptr[93]));; MELT_LOCATION ("warmelt-macro.melt:3268:/ cond"); -#line 3268 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#S__L35*/ meltfnum[28]) /*then */ { /*^cond.then */ -#line 3268 /*^block */ -#line 3268 /*anyblock */ { @@ -27096,7 +22503,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3271:/ locexp"); -#line 3271 "warmelt-macro.melt" /**::locexp::**/ melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("obsolete use of synonym field"), (melt_ptr_t) ( /*_.KWNAM__V94*/ meltfptr[93])); } @@ -27105,7 +22511,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3272:/ locexp"); -#line 3272 "warmelt-macro.melt" /**::locexp::**/ melt_inform_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), @@ -27115,7 +22520,6 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3269:/ quasiblock"); -#line 3269 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ @@ -27124,20 +22528,16 @@ lab_endgetargs:; } /*noelse */ ; -#line 3273 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3273:/ cppif.then"); -#line 3273 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3273 /*anyblock */ { { /*^locexp */ -#line 3273 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -27146,11 +22546,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3273 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L36*/ meltfnum[35] = -#line 3273 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ @@ -27161,19 +22559,15 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3273:/ cond"); -#line 3273 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[35]) /*then */ { /*^cond.then */ -#line 3273 /*^block */ -#line 3273 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[36] = -#line 3273 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -27182,34 +22576,27 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3273:/ checksignal"); -#line 3273 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3273 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3273 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[36]; /*^apply.arg */ -#line 3273 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3273 argtab[2].meltbp_long = 3273; /*^apply.arg */ -#line 3273 argtab[3].meltbp_cstring = "parse_field_assignment gives vfld"; /*^apply.arg */ -#line 3273 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.VFLD__V86*/ meltfptr[77]; @@ -27226,11 +22613,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3273:/ clear"); -#line 3273 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum[36] = 0; /*^clear */ -#line 3273 /*clear *//*_.MELT_DEBUG_FUN__V98*/ meltfptr[97] = 0; } @@ -27238,66 +22623,53 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3273 /*_.IF___V97*/ meltfptr[96] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3273:/ quasiblock"); -#line 3273 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V99*/ meltfptr[97] = /*_.IF___V97*/ meltfptr[96];; /*^compute */ - /*_.IFCPP___V96*/ meltfptr[95] = /*_.PROGN___V99*/ meltfptr[97];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3273:/ clear"); -#line 3273 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum[35] = 0; /*^clear */ -#line 3273 /*clear *//*_.IF___V97*/ meltfptr[96] = 0; /*^clear */ -#line 3273 /*clear *//*_.PROGN___V99*/ meltfptr[97] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3273 /*_.IFCPP___V96*/ meltfptr[95] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.LET___V92*/ meltfptr[88] = /*_.VFLD__V86*/ meltfptr[77];; MELT_LOCATION ("warmelt-macro.melt:3264:/ clear"); -#line 3264 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.VFLDNAM__V93*/ meltfptr[92] = 0; /*^clear */ -#line 3264 /*clear *//*_.KWNAM__V94*/ meltfptr[93] = 0; /*^clear */ -#line 3264 /*clear *//*_.SETQ___V95*/ meltfptr[94] = 0; /*^clear */ -#line 3264 /*clear *//*_#S__L35*/ meltfnum[28] = 0; /*^clear */ -#line 3264 /*clear *//*_.IFCPP___V96*/ meltfptr[95] = 0; /*_.IF___V91*/ meltfptr[79] = @@ -27306,51 +22678,41 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3263:/ clear"); -#line 3263 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V92*/ meltfptr[88] = 0; } ; } else { /*^cond.else */ -#line 3263 /*_.IF___V91*/ meltfptr[79] = NULL;; } ; /*^compute */ - /*_.LET___V85*/ meltfptr[74] = /*_.IF___V91*/ meltfptr[79];; MELT_LOCATION ("warmelt-macro.melt:3261:/ clear"); -#line 3261 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.VFLD__V86*/ meltfptr[77] = 0; /*^clear */ -#line 3261 /*clear *//*_.IFCPP___V87*/ meltfptr[78] = 0; /*^clear */ -#line 3261 /*clear *//*_#IS_A__L34*/ meltfnum[32] = 0; /*^clear */ -#line 3261 /*clear *//*_.IF___V91*/ meltfptr[79] = 0; /*_.IFELSE___V84*/ meltfptr[80] = /*_.LET___V85*/ meltfptr[74];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3260:/ clear"); -#line 3260 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V85*/ meltfptr[74] = 0; } ; } else { /*^cond.else */ -#line 3260 /*^block */ -#line 3260 /*anyblock */ { @@ -27358,7 +22720,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3276:/ locexp"); -#line 3276 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("bad field name in field assignment"), @@ -27367,7 +22728,6 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3278:/ quasiblock"); -#line 3278 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; @@ -27375,7 +22735,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3278:/ locexp"); -#line 3278 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -27388,27 +22747,22 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3278 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3275:/ quasiblock"); -#line 3275 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V101*/ meltfptr[97] = /*_.RETURN___V100*/ meltfptr[96];; /*^compute */ - /*_.IFELSE___V84*/ meltfptr[80] = /*_.PROGN___V101*/ meltfptr[97];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3260:/ clear"); -#line 3260 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V100*/ meltfptr[96] = 0; /*^clear */ -#line 3260 /*clear *//*_.PROGN___V101*/ meltfptr[97] = 0; } ; @@ -27419,10 +22773,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3256:/ clear"); -#line 3256 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L31*/ meltfnum[29] = 0; /*^clear */ -#line 3256 /*clear *//*_.IFELSE___V84*/ meltfptr[80] = 0; } ; @@ -27433,29 +22785,23 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3251:/ clear"); -#line 3251 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L28*/ meltfnum[13] = 0; /*^clear */ -#line 3251 /*clear *//*_.IFELSE___V76*/ meltfptr[70] = 0; } ; } ; -#line 3280 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3280:/ cppif.then"); -#line 3280 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3280 /*anyblock */ { { /*^locexp */ -#line 3280 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -27464,11 +22810,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3280 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L38*/ meltfnum[36] = -#line 3280 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -27477,18 +22821,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3280:/ cond"); -#line 3280 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L38*/ meltfnum[36]) /*then */ { /*^cond.then */ -#line 3280 /*^block */ -#line 3280 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[35] = -#line 3280 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -27496,31 +22836,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3280:/ checksignal"); -#line 3280 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3280 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3280 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[35]; /*^apply.arg */ -#line 3280 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3280 argtab[2].meltbp_long = 3280; /*^apply.arg */ -#line 3280 argtab[3].meltbp_cstring = "parse_field_assignment fld from environment"; /*^apply.arg */ -#line 3280 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLD__V33*/ meltfptr[32]; /*_.MELT_DEBUG_FUN__V104*/ meltfptr[94] = @@ -27539,135 +22872,104 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3280:/ clear"); -#line 3280 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L39*/ meltfnum[35] = 0; /*^clear */ -#line 3280 /*clear *//*_.MELT_DEBUG_FUN__V104*/ meltfptr[94] = 0; } ; } else { /*^cond.else */ -#line 3280 /*_.IF___V103*/ meltfptr[93] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3280:/ quasiblock"); -#line 3280 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V105*/ meltfptr[95] = /*_.IF___V103*/ meltfptr[93];; /*^compute */ - /*_.IFCPP___V102*/ meltfptr[92] = /*_.PROGN___V105*/ meltfptr[95];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3280:/ clear"); -#line 3280 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L38*/ meltfnum[36] = 0; /*^clear */ -#line 3280 /*clear *//*_.IF___V103*/ meltfptr[93] = 0; /*^clear */ -#line 3280 /*clear *//*_.PROGN___V105*/ meltfptr[95] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3280 /*_.IFCPP___V102*/ meltfptr[92] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.LET___V67*/ meltfptr[34] = /*_.IFCPP___V102*/ meltfptr[92];; MELT_LOCATION ("warmelt-macro.melt:3248:/ clear"); -#line 3248 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDBIND__V68*/ meltfptr[42] = 0; /*^clear */ -#line 3248 /*clear *//*_.IFCPP___V69*/ meltfptr[48] = 0; /*^clear */ -#line 3248 /*clear *//*_#NULL__L27*/ meltfnum[17] = 0; /*^clear */ -#line 3248 /*clear *//*_.IFELSE___V73*/ meltfptr[45] = 0; /*^clear */ -#line 3248 /*clear *//*_.IFCPP___V102*/ meltfptr[92] = 0; /*_.LET___V58*/ meltfptr[44] = /*_.LET___V67*/ meltfptr[34];; MELT_LOCATION ("warmelt-macro.melt:3243:/ clear"); -#line 3243 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDKWNAM__V59*/ meltfptr[35] = 0; /*^clear */ -#line 3243 /*clear *//*_.FLDNAM__V60*/ meltfptr[36] = 0; /*^clear */ -#line 3243 /*clear *//*_.IFCPP___V61*/ meltfptr[37] = 0; /*^clear */ -#line 3243 /*clear *//*_.IFCPP___V65*/ meltfptr[47] = 0; /*^clear */ -#line 3243 /*clear *//*_.LET___V67*/ meltfptr[34] = 0; /*_.IF___V57*/ meltfptr[43] = /*_.LET___V58*/ meltfptr[44];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3241:/ clear"); -#line 3241 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V58*/ meltfptr[44] = 0; } ; } else { /*^cond.else */ -#line 3241 /*_.IF___V57*/ meltfptr[43] = NULL;; } ; -#line 3283 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3283:/ cppif.then"); -#line 3283 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3283 /*anyblock */ { /*^checksignal */ -#line 3283 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L40*/ meltfnum[28] = -#line 3283 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLD__V33*/ meltfptr[32]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[12])));; MELT_LOCATION ("warmelt-macro.melt:3283:/ cond"); -#line 3283 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L40*/ meltfnum[28]) /*then */ { /*^cond.then */ -#line 3283 /*_.IFELSE___V107*/ meltfptr[77] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3283:/ cond.else"); -#line 3283 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3283 /*anyblock */ { @@ -27676,7 +22978,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3283 melt_assert_failed (("check fld"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -27691,47 +22992,37 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V106*/ meltfptr[88] = /*_.IFELSE___V107*/ meltfptr[77];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3283:/ clear"); -#line 3283 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L40*/ meltfnum[28] = 0; /*^clear */ -#line 3283 /*clear *//*_.IFELSE___V107*/ meltfptr[77] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3283 /*_.IFCPP___V106*/ meltfptr[88] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3284:/ quasiblock"); -#line 3284 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3284 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3284 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3284 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V6*/ meltfptr[5]; /*^apply.arg */ -#line 3284 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V7*/ meltfptr[6]; /*^apply.arg */ -#line 3284 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V8*/ meltfptr[7]; /*_.XEX__V109*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V7*/ meltfptr[6]), @@ -27741,15 +23032,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3285:/ checksignal"); -#line 3285 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3285 /*^rawallocobj */ -#line 3285 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -27762,7 +23050,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3285 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -27772,7 +23059,6 @@ lab_endgetargs:; ( /*_.LOC__V3*/ meltfptr[2]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3285 /*putslot */ melt_assertmsg ("putslot checkobj @SFLA_FIELD", melt_magic_discr ((melt_ptr_t) @@ -27782,7 +23068,6 @@ lab_endgetargs:; ( /*_.FLD__V33*/ meltfptr[32]), "SFLA_FIELD"); ; /*^putslot */ -#line 3285 /*putslot */ melt_assertmsg ("putslot checkobj @SFLA_EXPR", melt_magic_discr ((melt_ptr_t) @@ -27793,19 +23078,15 @@ lab_endgetargs:; ; /*_.FA__V110*/ meltfptr[74] = /*_.INST__V111*/ meltfptr[96];; -#line 3291 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3291:/ cppif.then"); -#line 3291 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3291 /*anyblock */ { { /*^locexp */ -#line 3291 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -27814,11 +23095,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3291 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L41*/ meltfnum[32] = -#line 3291 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -27827,18 +23106,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3291:/ cond"); -#line 3291 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L41*/ meltfnum[32]) /*then */ { /*^cond.then */ -#line 3291 /*^block */ -#line 3291 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L42*/ meltfnum[29] = -#line 3291 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -27846,30 +23121,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3291:/ checksignal"); -#line 3291 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3291 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3291 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L42*/ meltfnum[29]; /*^apply.arg */ -#line 3291 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3291 argtab[2].meltbp_long = 3291; /*^apply.arg */ -#line 3291 argtab[3].meltbp_cstring = "parse_field_assignment return fa"; /*^apply.arg */ -#line 3291 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FA__V110*/ meltfptr[74]; /*_.MELT_DEBUG_FUN__V114*/ meltfptr[70] = @@ -27887,61 +23155,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3291:/ clear"); -#line 3291 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L42*/ meltfnum[29] = 0; /*^clear */ -#line 3291 /*clear *//*_.MELT_DEBUG_FUN__V114*/ meltfptr[70] = 0; } ; } else { /*^cond.else */ -#line 3291 /*_.IF___V113*/ meltfptr[80] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3291:/ quasiblock"); -#line 3291 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V115*/ meltfptr[94] = /*_.IF___V113*/ meltfptr[80];; /*^compute */ - /*_.IFCPP___V112*/ meltfptr[97] = /*_.PROGN___V115*/ meltfptr[94];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3291:/ clear"); -#line 3291 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L41*/ meltfnum[32] = 0; /*^clear */ -#line 3291 /*clear *//*_.IF___V113*/ meltfptr[80] = 0; /*^clear */ -#line 3291 /*clear *//*_.PROGN___V115*/ meltfptr[94] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3291 /*_.IFCPP___V112*/ meltfptr[97] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3292:/ checksignal"); -#line 3292 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3292 /*_.RETVAL___V1*/ meltfptr[0] = /*_.FA__V110*/ meltfptr[74];; { MELT_LOCATION ("warmelt-macro.melt:3292:/ locexp"); -#line 3292 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -27952,62 +23208,46 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3292 ; /*finalret */ goto labend_rout; /*_.LET___V108*/ meltfptr[78] = /*_.RETURN___V116*/ meltfptr[93];; MELT_LOCATION ("warmelt-macro.melt:3284:/ clear"); -#line 3284 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.XEX__V109*/ meltfptr[79] = 0; /*^clear */ -#line 3284 /*clear *//*_.FA__V110*/ meltfptr[74] = 0; /*^clear */ -#line 3284 /*clear *//*_.IFCPP___V112*/ meltfptr[97] = 0; /*^clear */ -#line 3284 /*clear *//*_.RETURN___V116*/ meltfptr[93] = 0; /*_.LET___V32*/ meltfptr[30] = /*_.LET___V108*/ meltfptr[78];; MELT_LOCATION ("warmelt-macro.melt:3213:/ clear"); -#line 3213 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLD__V33*/ meltfptr[32] = 0; /*^clear */ -#line 3213 /*clear *//*_#IS_A__L13*/ meltfnum[8] = 0; /*^clear */ -#line 3213 /*clear *//*_.IF___V34*/ meltfptr[33] = 0; /*^clear */ -#line 3213 /*clear *//*_.IFCPP___V53*/ meltfptr[46] = 0; /*^clear */ -#line 3213 /*clear *//*_#NULL__L21*/ meltfnum[14] = 0; /*^clear */ -#line 3213 /*clear *//*_.IF___V57*/ meltfptr[43] = 0; /*^clear */ -#line 3213 /*clear *//*_.IFCPP___V106*/ meltfptr[88] = 0; /*^clear */ -#line 3213 /*clear *//*_.LET___V108*/ meltfptr[78] = 0; MELT_LOCATION ("warmelt-macro.melt:3199:/ checksignal"); -#line 3199 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3199 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V32*/ meltfptr[30];; { MELT_LOCATION ("warmelt-macro.melt:3199:/ locexp"); -#line 3199 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28018,43 +23258,31 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3199 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3199 /*clear *//*_.IFCPP___V9*/ meltfptr[8] = 0; /*^clear */ -#line 3199 /*clear *//*_.IFCPP___V13*/ meltfptr[9] = 0; /*^clear */ -#line 3199 /*clear *//*_.IFCPP___V17*/ meltfptr[10] = 0; /*^clear */ -#line 3199 /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0; /*^clear */ -#line 3199 /*clear *//*_#NOT__L8*/ meltfnum[0] = 0; /*^clear */ -#line 3199 /*clear *//*_.IF___V21*/ meltfptr[14] = 0; /*^clear */ -#line 3199 /*clear *//*_.IFCPP___V24*/ meltfptr[18] = 0; /*^clear */ -#line 3199 /*clear *//*_.IFCPP___V26*/ meltfptr[22] = 0; /*^clear */ -#line 3199 /*clear *//*_.IFCPP___V28*/ meltfptr[26] = 0; /*^clear */ -#line 3199 /*clear *//*_.IFCPP___V30*/ meltfptr[28] = 0; /*^clear */ -#line 3199 /*clear *//*_.LET___V32*/ meltfptr[30] = 0; } @@ -28073,7 +23301,6 @@ labend_rout: } /*end meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT */ -#line 3223 "warmelt-macro.melt" /**::proc::**/ @@ -28149,12 +23376,10 @@ meltrout_49_warmelt_macro_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3223:/ getarg"); -#line 3223 "warmelt-macro.melt" /**::getarg::**/ /*_.CURFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3223 if (meltxargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; @@ -28163,44 +23388,34 @@ meltrout_49_warmelt_macro_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3223 /*anyblock*/ { -#line 3224 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3224:/ cppif.then"); -#line 3224 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3224 /*anyblock */ { /*^checksignal */ -#line 3224 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[1] = -#line 3224 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CURFLD__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3224:/ cond"); -#line 3224 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3224 /*_.IFELSE___V4*/ meltfptr[3] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3224:/ cond.else"); -#line 3224 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3224 /*anyblock */ { @@ -28209,7 +23424,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3224 melt_assert_failed (("check fld"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -28224,30 +23438,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3224:/ clear"); -#line 3224 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ -#line 3224 /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3224 /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3225:/ quasiblock"); -#line 3225 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 3225 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURFLD__V2*/ meltfptr[1]) /*=obj*/ ; @@ -28256,11 +23464,9 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3228:/ checksignal"); -#line 3228 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3229:/ getslot"); -#line 3229 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~FLDKW */ meltfclos->tabval[0])) /*=obj*/ ; @@ -28269,34 +23475,26 @@ lab_endgetargs:; }; ; /*_#S__L3*/ meltfnum[1] = -#line 3228 "warmelt-macro.melt" /**::expr::**/ melt_string_same ((melt_ptr_t) ( /*_.CURFLDNAM__V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.NAMED_NAME__V7*/ meltfptr[6]));; MELT_LOCATION ("warmelt-macro.melt:3228:/ cond"); -#line 3228 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#S__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3228 /*^block */ -#line 3228 /*anyblock */ { -#line 3230 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3230:/ cppif.then"); -#line 3230 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3230 /*anyblock */ { { /*^locexp */ -#line 3230 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -28305,11 +23503,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3230 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = -#line 3230 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -28318,18 +23514,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3230:/ cond"); -#line 3230 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3230 /*^block */ -#line 3230 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = -#line 3230 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -28337,31 +23529,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3230:/ checksignal"); -#line 3230 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3230 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3230 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4]; /*^apply.arg */ -#line 3230 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3230 argtab[2].meltbp_long = 3230; /*^apply.arg */ -#line 3230 argtab[3].meltbp_cstring = "parse_field_assignment found curfld"; /*^apply.arg */ -#line 3230 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CURFLD__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = @@ -28380,62 +23565,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3230:/ clear"); -#line 3230 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ -#line 3230 /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0; } ; } else { /*^cond.else */ -#line 3230 /*_.IF___V10*/ meltfptr[9] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3230:/ quasiblock"); -#line 3230 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[9];; /*^compute */ - /*_.IFCPP___V9*/ meltfptr[8] = /*_.PROGN___V12*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3230:/ clear"); -#line 3230 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0; /*^clear */ -#line 3230 /*clear *//*_.IF___V10*/ meltfptr[9] = 0; /*^clear */ -#line 3230 /*clear *//*_.PROGN___V12*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3230 /*_.IFCPP___V9*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3231 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3231:/ cppif.then"); -#line 3231 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3231 /*anyblock */ { { /*^locexp */ -#line 3231 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -28444,11 +23616,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3231 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L6*/ meltfnum[4] = -#line 3231 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -28457,18 +23627,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3231:/ cond"); -#line 3231 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3231 /*^block */ -#line 3231 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[3] = -#line 3231 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -28476,31 +23642,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3231:/ checksignal"); -#line 3231 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3231 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3231 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[3]; /*^apply.arg */ -#line 3231 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3231 argtab[2].meltbp_long = 3231; /*^apply.arg */ -#line 3231 argtab[3].meltbp_cstring = "parse_field_assignment found curfldnam"; /*^apply.arg */ -#line 3231 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CURFLDNAM__V6*/ meltfptr[5]; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = @@ -28519,59 +23678,47 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3231:/ clear"); -#line 3231 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[3] = 0; /*^clear */ -#line 3231 /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0; } ; } else { /*^cond.else */ -#line 3231 /*_.IF___V14*/ meltfptr[10] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3231:/ quasiblock"); -#line 3231 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[10];; /*^compute */ - /*_.IFCPP___V13*/ meltfptr[9] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3231:/ clear"); -#line 3231 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0; /*^clear */ -#line 3231 /*clear *//*_.IF___V14*/ meltfptr[10] = 0; /*^clear */ -#line 3231 /*clear *//*_.PROGN___V16*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3231 /*_.IFCPP___V13*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3232:/ checksignal"); -#line 3232 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3232 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3232:/ putxtraresult"); -#line 3232 "warmelt-macro.melt" /**::putxtraresult::**/ if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -28581,55 +23728,43 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.CURFLDNAM__V6*/ meltfptr[5]); ; /*^finalreturn */ -#line 3232 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3228:/ quasiblock"); -#line 3228 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V18*/ meltfptr[14] = /*_.RETURN___V17*/ meltfptr[10];; /*^compute */ - /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V18*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3228:/ clear"); -#line 3228 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V9*/ meltfptr[8] = 0; /*^clear */ -#line 3228 /*clear *//*_.IFCPP___V13*/ meltfptr[9] = 0; /*^clear */ -#line 3228 /*clear *//*_.RETURN___V17*/ meltfptr[10] = 0; /*^clear */ -#line 3228 /*clear *//*_.PROGN___V18*/ meltfptr[14] = 0; } ; } else { /*^cond.else */ -#line 3228 /*^block */ -#line 3228 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3235:/ checksignal"); -#line 3235 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3235 /*_.RETVAL___V1*/ meltfptr[0] = ( /*!konst_2_TRUE */ meltfrout->tabval[2]);; MELT_LOCATION ("warmelt-macro.melt:3235:/ putxtraresult"); -#line 3235 "warmelt-macro.melt" /**::putxtraresult::**/ if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -28638,24 +23773,19 @@ lab_endgetargs:; *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (( /*nil */ NULL)); ; /*^finalreturn */ -#line 3235 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3233:/ quasiblock"); -#line 3233 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V20*/ meltfptr[9] = /*_.RETURN___V19*/ meltfptr[8];; /*^compute */ - /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V20*/ meltfptr[9];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3228:/ clear"); -#line 3228 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V19*/ meltfptr[8] = 0; /*^clear */ -#line 3228 /*clear *//*_.PROGN___V20*/ meltfptr[9] = 0; } ; @@ -28664,30 +23794,23 @@ lab_endgetargs:; /*_.LET___V5*/ meltfptr[3] = /*_.IFELSE___V8*/ meltfptr[7];; MELT_LOCATION ("warmelt-macro.melt:3225:/ clear"); -#line 3225 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURFLDNAM__V6*/ meltfptr[5] = 0; /*^clear */ -#line 3225 /*clear *//*_.NAMED_NAME__V7*/ meltfptr[6] = 0; /*^clear */ -#line 3225 /*clear *//*_#S__L3*/ meltfnum[1] = 0; /*^clear */ -#line 3225 /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; MELT_LOCATION ("warmelt-macro.melt:3223:/ checksignal"); -#line 3223 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3223 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; { MELT_LOCATION ("warmelt-macro.melt:3223:/ locexp"); -#line 3223 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28698,16 +23821,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3223 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3223 /*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0; /*^clear */ -#line 3223 /*clear *//*_.LET___V5*/ meltfptr[3] = 0; } @@ -28726,7 +23846,6 @@ labend_rout: } /*end meltrout_49_warmelt_macro_LAMBDA___13__ */ -#line 3296 "warmelt-macro.melt" /**::proc::**/ @@ -28805,12 +23924,10 @@ meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3296:/ getarg"); -#line 3296 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3296 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -28820,7 +23937,6 @@ meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3296 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -28831,7 +23947,6 @@ meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 3296 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -28844,44 +23959,34 @@ meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3296 /*anyblock*/ { -#line 3297 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3297:/ cppif.then"); -#line 3297 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3297 /*anyblock */ { /*^checksignal */ -#line 3297 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3297 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3297:/ cond"); -#line 3297 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3297 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3297:/ cond.else"); -#line 3297 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3297 /*anyblock */ { @@ -28890,7 +23995,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3297 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -28905,58 +24009,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3297:/ clear"); -#line 3297 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3297 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3297 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3298 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3298:/ cppif.then"); -#line 3298 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3298 /*anyblock */ { /*^checksignal */ -#line 3298 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3298 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3298:/ cond"); -#line 3298 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3298 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3298:/ cond.else"); -#line 3298 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3298 /*anyblock */ { @@ -28965,7 +24056,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3298 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -28980,38 +24070,30 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3298:/ clear"); -#line 3298 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3298 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3298 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3299 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3299:/ cppif.then"); -#line 3299 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3299 /*anyblock */ { { /*^locexp */ -#line 3299 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -29020,11 +24102,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3299 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = -#line 3299 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -29033,18 +24113,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3299:/ cond"); -#line 3299 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3299 /*^block */ -#line 3299 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = -#line 3299 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -29052,29 +24128,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3299:/ checksignal"); -#line 3299 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3299 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3299 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg */ -#line 3299 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3299 argtab[2].meltbp_long = 3299; /*^apply.arg */ -#line 3299 argtab[3].meltbp_cstring = "mexp.definstance sexpr"; /*^apply.arg */ -#line 3299 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = @@ -29092,64 +24161,50 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3299:/ clear"); -#line 3299 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ -#line 3299 /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; } ; } else { /*^cond.else */ -#line 3299 /*_.IF___V11*/ meltfptr[10] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3299:/ quasiblock"); -#line 3299 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3299:/ clear"); -#line 3299 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ -#line 3299 /*clear *//*_.IF___V11*/ meltfptr[10] = 0; /*^clear */ -#line 3299 /*clear *//*_.PROGN___V13*/ meltfptr[11] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3299 /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3300:/ quasiblock"); -#line 3300 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PREDEF__V15*/ meltfptr[11] = ( /*nil */ NULL);; /*^compute */ - /*_.OBJNUM__V16*/ meltfptr[15] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDS__V17*/ meltfptr[16] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDNAMS__V18*/ meltfptr[17] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3304:/ getslot"); -#line 3304 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -29158,7 +24213,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3305:/ getslot"); -#line 3305 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -29167,54 +24221,39 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V21*/ meltfptr[20] = -#line 3306 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));; /*^compute */ - /*_.CURPAIR__V22*/ meltfptr[21] = -#line 3306 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; /*^compute */ - /*_.SYMB__V23*/ meltfptr[22] = -#line 3307 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; /*^compute */ - /*_.CLANAME__V24*/ meltfptr[23] = ( /*nil */ NULL);; /*^compute */ - /*_.CLA__V25*/ meltfptr[24] = ( /*nil */ NULL);; /*^compute */ - /*_.CLABIND__V26*/ meltfptr[25] = ( /*nil */ NULL);; /*^compute */ - /*_.DOCV__V27*/ meltfptr[26] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3313:/ checksignal"); -#line 3313 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L5*/ meltfnum[3] = -#line 3313 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:3313:/ cond"); -#line 3313 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3313 /*^block */ -#line 3313 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3314:/ locexp"); -#line 3314 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing symbol for DEFINSTANCE"), @@ -29227,29 +24266,22 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V28*/ meltfptr[27] = -#line 3315 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3315:/ compute"); -#line 3315 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; MELT_LOCATION ("warmelt-macro.melt:3316:/ quasiblock"); -#line 3316 "warmelt-macro.melt" /**::quasiblock::**/ /*_.NAM__V31*/ meltfptr[30] = -#line 3317 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3319:/ checksignal"); -#line 3319 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3319 /*^rawallocobj */ -#line 3319 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -29262,7 +24294,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3319 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -29272,7 +24303,6 @@ lab_endgetargs:; ( /*_.SYMB__V23*/ meltfptr[22]), "BINDER"); ; /*^putslot */ -#line 3319 /*putslot */ melt_assertmsg ("putslot checkobj @IBIND_ICLASS", melt_magic_discr ((melt_ptr_t) @@ -29283,20 +24313,16 @@ lab_endgetargs:; ; /*_.IBIND__V32*/ meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; MELT_LOCATION ("warmelt-macro.melt:3324:/ checksignal"); -#line 3324 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3324 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3324 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3324 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V20*/ meltfptr[19]; /*_.WARN_IF_REDEFINED__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t) @@ -29307,17 +24333,14 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3325:/ checksignal"); -#line 3325 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3325 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3325 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.IBIND__V32*/ meltfptr[31]; /*_.PUT_ENV__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t) @@ -29328,29 +24351,23 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3326:/ checksignal"); -#line 3326 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[0] = -#line 3326 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.NAM__V31*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:3326:/ cond"); -#line 3326 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3326 /*^block */ -#line 3326 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3327:/ locexp"); -#line 3327 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing class name for DEFINSTANCE"), @@ -29363,21 +24380,17 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3328:/ quasiblock"); -#line 3328 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3328 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3328 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3328 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NAM__V31*/ meltfptr[30]; /*_.BND__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t) @@ -29388,35 +24401,27 @@ lab_endgetargs:; } ; /*_.FLDLIST__V38*/ meltfptr[37] = -#line 3329 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[8]))));; MELT_LOCATION ("warmelt-macro.melt:3332:/ checksignal"); -#line 3332 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[6] = -#line 3332 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[9])));; MELT_LOCATION ("warmelt-macro.melt:3332:/ cond"); -#line 3332 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ -#line 3332 /*^block */ -#line 3332 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3333:/ compute"); -#line 3333 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V26*/ meltfptr[25] = /*_.SETQ___V40*/ meltfptr[39] = /*_.BND__V37*/ meltfptr[36];; MELT_LOCATION ("warmelt-macro.melt:3334:/ getslot"); -#line 3334 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]) /*=obj*/ ; @@ -29425,69 +24430,53 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3334 /*_.CLA__V25*/ meltfptr[24] = /*_.SETQ___V42*/ meltfptr[41] = /*_.CBIND_CLASS__V41*/ meltfptr[40];; MELT_LOCATION ("warmelt-macro.melt:3332:/ quasiblock"); -#line 3332 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V43*/ meltfptr[42] = /*_.SETQ___V42*/ meltfptr[41];; /*^compute */ - /*_.IFELSE___V39*/ meltfptr[38] = /*_.PROGN___V43*/ meltfptr[42];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3332:/ clear"); -#line 3332 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V40*/ meltfptr[39] = 0; /*^clear */ -#line 3332 /*clear *//*_.CBIND_CLASS__V41*/ meltfptr[40] = 0; /*^clear */ -#line 3332 /*clear *//*_.SETQ___V42*/ meltfptr[41] = 0; /*^clear */ -#line 3332 /*clear *//*_.PROGN___V43*/ meltfptr[42] = 0; } ; } else { /*^cond.else */ -#line 3332 /*^block */ -#line 3332 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3335:/ checksignal"); -#line 3335 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 3335 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = -#line 3335 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[10])));; MELT_LOCATION ("warmelt-macro.melt:3335:/ cond"); -#line 3335 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 3335 /*^block */ -#line 3335 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3336:/ getslot"); -#line 3336 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]) /*=obj*/ ; @@ -29496,51 +24485,41 @@ lab_endgetargs:; }; ; /*_#IS_A__L10*/ meltfnum[9] = -#line 3336 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VBIND_VALUE__V44*/ meltfptr[39]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[11])));; /*^compute */ - /*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3335:/ clear"); -#line 3335 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.VBIND_VALUE__V44*/ meltfptr[39] = 0; /*^clear */ -#line 3335 /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; } ; } else { /*^cond.else */ -#line 3335 /*_#IF___L9*/ meltfnum[8] = 0;; } ; MELT_LOCATION ("warmelt-macro.melt:3335:/ cond"); -#line 3335 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3335 /*^block */ -#line 3335 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3337:/ compute"); -#line 3337 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V26*/ meltfptr[25] = /*_.SETQ___V46*/ meltfptr[41] = /*_.BND__V37*/ meltfptr[36];; MELT_LOCATION ("warmelt-macro.melt:3338:/ getslot"); -#line 3338 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]) /*=obj*/ ; @@ -29549,47 +24528,37 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3338 /*_.CLA__V25*/ meltfptr[24] = /*_.SETQ___V48*/ meltfptr[39] = /*_.VBIND_VALUE__V47*/ meltfptr[42];; MELT_LOCATION ("warmelt-macro.melt:3335:/ quasiblock"); -#line 3335 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V49*/ meltfptr[48] = /*_.SETQ___V48*/ meltfptr[39];; /*^compute */ - /*_.IFELSE___V45*/ meltfptr[40] = /*_.PROGN___V49*/ meltfptr[48];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3335:/ clear"); -#line 3335 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V46*/ meltfptr[41] = 0; /*^clear */ -#line 3335 /*clear *//*_.VBIND_VALUE__V47*/ meltfptr[42] = 0; /*^clear */ -#line 3335 /*clear *//*_.SETQ___V48*/ meltfptr[39] = 0; /*^clear */ -#line 3335 /*clear *//*_.PROGN___V49*/ meltfptr[48] = 0; } ; } else { /*^cond.else */ -#line 3335 /*^block */ -#line 3335 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3341:/ getslot"); -#line 3341 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NAM__V31*/ meltfptr[30]) /*=obj*/ ; @@ -29600,7 +24569,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3340:/ locexp"); -#line 3340 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("invalid class name for DEFINSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V50*/ @@ -29608,18 +24576,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3342:/ checksignal"); -#line 3342 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3342 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { MELT_LOCATION ("warmelt-macro.melt:3342:/ locexp"); -#line 3342 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29630,29 +24595,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3342 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3339:/ quasiblock"); -#line 3339 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V52*/ meltfptr[39] = /*_.RETURN___V51*/ meltfptr[42];; /*^compute */ - /*_.IFELSE___V45*/ meltfptr[40] = /*_.PROGN___V52*/ meltfptr[39];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3335:/ clear"); -#line 3335 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V50*/ meltfptr[41] = 0; /*^clear */ -#line 3335 /*clear *//*_.RETURN___V51*/ meltfptr[42] = 0; /*^clear */ -#line 3335 /*clear *//*_.PROGN___V52*/ meltfptr[39] = 0; } ; @@ -29662,56 +24621,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3332:/ clear"); -#line 3332 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ -#line 3332 /*clear *//*_#IF___L9*/ meltfnum[8] = 0; /*^clear */ -#line 3332 /*clear *//*_.IFELSE___V45*/ meltfptr[40] = 0; } ; } ; MELT_LOCATION ("warmelt-macro.melt:3344:/ compute"); -#line 3344 "warmelt-macro.melt" /**::compute::**/ /*_.CLANAME__V24*/ meltfptr[23] = /*_.SETQ___V53*/ meltfptr[48] = /*_.NAM__V31*/ meltfptr[30];; -#line 3345 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3345:/ cppif.then"); -#line 3345 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3345 /*anyblock */ { /*^checksignal */ -#line 3345 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L11*/ meltfnum[9] = -#line 3345 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[11])));; MELT_LOCATION ("warmelt-macro.melt:3345:/ cond"); -#line 3345 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3345 /*_.IFELSE___V55*/ meltfptr[42] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3345:/ cond.else"); -#line 3345 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3345 /*anyblock */ { @@ -29720,7 +24666,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3345 melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -29735,83 +24680,62 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V54*/ meltfptr[41] = /*_.IFELSE___V55*/ meltfptr[42];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3345:/ clear"); -#line 3345 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L11*/ meltfnum[9] = 0; /*^clear */ -#line 3345 /*clear *//*_.IFELSE___V55*/ meltfptr[42] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3345 /*_.IFCPP___V54*/ meltfptr[41] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V56*/ meltfptr[39] = -#line 3346 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3346:/ compute"); -#line 3346 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V57*/ meltfptr[40] = /*_.PAIR_TAIL__V56*/ meltfptr[39];; MELT_LOCATION ("warmelt-macro.melt:3347:/ loop"); -#line 3347 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_INSLOOP_1:; /*^loopbody */ -#line 3347 /*^block */ -#line 3347 /*anyblock */ { /*^checksignal */ -#line 3347 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3348:/ checksignal"); -#line 3348 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L12*/ meltfnum[7] = -#line 3348 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L13*/ meltfnum[8] = -#line 3348 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L12*/ meltfnum[7]));; MELT_LOCATION ("warmelt-macro.melt:3348:/ cond"); -#line 3348 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3348 /*^block */ -#line 3348 /*anyblock */ { /*^quasiblock */ -#line 3348 /*^compute */ -#line 3348 /*_.INSLOOP__V59*/ meltfptr[58] = NULL;; /*^exit */ -#line 3348 /*exit */ { goto labexit_INSLOOP_1; @@ -29823,37 +24747,29 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3349:/ quasiblock"); -#line 3349 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURFKW__V61*/ meltfptr[60] = -#line 3349 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3350:/ checksignal"); -#line 3350 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L14*/ meltfnum[9] = -#line 3350 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V61*/ meltfptr[60]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[12])));; MELT_LOCATION ("warmelt-macro.melt:3350:/ cond"); -#line 3350 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3350 /*^block */ -#line 3350 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3351:/ locexp"); -#line 3351 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("expecting keyword in DEFINSTANCE"), @@ -29866,57 +24782,43 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V62*/ meltfptr[61] = -#line 3352 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3352:/ compute"); -#line 3352 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V63*/ meltfptr[62] = /*_.PAIR_TAIL__V62*/ meltfptr[61];; MELT_LOCATION ("warmelt-macro.melt:3353:/ quasiblock"); -#line 3353 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V65*/ meltfptr[64] = -#line 3353 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3354:/ checksignal"); -#line 3354 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L15*/ meltfnum[14] = -#line 3354 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURFKW__V61*/ meltfptr[60]) == (( /*!konst_13_OBJ_NUM */ meltfrout->tabval[13])));; MELT_LOCATION ("warmelt-macro.melt:3354:/ cond"); -#line 3354 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ -#line 3354 /*^block */ -#line 3354 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3355:/ checksignal"); -#line 3355 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3355 /*cond */ if ( /*_.OBJNUM__V16*/ meltfptr[15]) /*then */ { /*^cond.then */ -#line 3355 /*^block */ -#line 3355 /*anyblock */ { { /*^locexp */ -#line 3355 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -29930,46 +24832,36 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3357:/ checksignal"); -#line 3357 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L16*/ meltfnum[15] = -#line 3357 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CUREXP__V65*/ meltfptr[64]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3357:/ cond"); -#line 3357 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 3357 /*^block */ -#line 3357 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3358:/ checksignal"); -#line 3358 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3358 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3358 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3358 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3358 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V68*/ meltfptr[67] = @@ -29987,96 +24879,75 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3357:/ clear"); -#line 3357 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V68*/ meltfptr[67] = 0; } ; } else { /*^cond.else */ -#line 3357 /*_.IFELSE___V67*/ meltfptr[66] = /*_.CUREXP__V65*/ meltfptr[64];; } ; MELT_LOCATION ("warmelt-macro.melt:3356:/ compute"); -#line 3356 "warmelt-macro.melt" /**::compute::**/ /*_.OBJNUM__V16*/ meltfptr[15] = /*_.SETQ___V69*/ meltfptr[67] = /*_.IFELSE___V67*/ meltfptr[66];; MELT_LOCATION ("warmelt-macro.melt:3354:/ quasiblock"); -#line 3354 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V70*/ meltfptr[69] = /*_.SETQ___V69*/ meltfptr[67];; /*^compute */ - /*_.IFELSE___V66*/ meltfptr[65] = /*_.PROGN___V70*/ meltfptr[69];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3354:/ clear"); -#line 3354 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L16*/ meltfnum[15] = 0; /*^clear */ -#line 3354 /*clear *//*_.IFELSE___V67*/ meltfptr[66] = 0; /*^clear */ -#line 3354 /*clear *//*_.SETQ___V69*/ meltfptr[67] = 0; /*^clear */ -#line 3354 /*clear *//*_.PROGN___V70*/ meltfptr[69] = 0; } ; } else { /*^cond.else */ -#line 3354 /*^block */ -#line 3354 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3361:/ checksignal"); -#line 3361 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L17*/ meltfnum[15] = -#line 3361 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURFKW__V61*/ meltfptr[60]) == (( /*!konst_14_PREDEF */ meltfrout->tabval[14])));; MELT_LOCATION ("warmelt-macro.melt:3361:/ cond"); -#line 3361 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 3361 /*^block */ -#line 3361 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3362:/ checksignal"); -#line 3362 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3362 /*cond */ if ( /*_.PREDEF__V15*/ meltfptr[11]) /*then */ { /*^cond.then */ -#line 3362 /*^block */ -#line 3362 /*anyblock */ { { /*^locexp */ -#line 3362 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -30090,49 +24961,39 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3364:/ checksignal"); -#line 3364 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L18*/ meltfnum[17] = -#line 3364 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CUREXP__V65*/ meltfptr[64]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3364:/ cond"); -#line 3364 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L18*/ meltfnum[17]) /*then */ { /*^cond.then */ -#line 3364 /*^block */ -#line 3364 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3365:/ checksignal"); -#line 3365 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3365 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3365 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3365 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3365 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V73*/ meltfptr[69] = @@ -30150,99 +25011,78 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3364:/ clear"); -#line 3364 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V73*/ meltfptr[69] = 0; } ; } else { /*^cond.else */ -#line 3364 /*_.IFELSE___V72*/ meltfptr[67] = /*_.CUREXP__V65*/ meltfptr[64];; } ; MELT_LOCATION ("warmelt-macro.melt:3363:/ compute"); -#line 3363 "warmelt-macro.melt" /**::compute::**/ /*_.PREDEF__V15*/ meltfptr[11] = /*_.SETQ___V74*/ meltfptr[69] = /*_.IFELSE___V72*/ meltfptr[67];; MELT_LOCATION ("warmelt-macro.melt:3361:/ quasiblock"); -#line 3361 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V75*/ meltfptr[74] = /*_.SETQ___V74*/ meltfptr[69];; /*^compute */ - /*_.IFELSE___V71*/ meltfptr[66] = /*_.PROGN___V75*/ meltfptr[74];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3361:/ clear"); -#line 3361 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L18*/ meltfnum[17] = 0; /*^clear */ -#line 3361 /*clear *//*_.IFELSE___V72*/ meltfptr[67] = 0; /*^clear */ -#line 3361 /*clear *//*_.SETQ___V74*/ meltfptr[69] = 0; /*^clear */ -#line 3361 /*clear *//*_.PROGN___V75*/ meltfptr[74] = 0; } ; } else { /*^cond.else */ -#line 3361 /*^block */ -#line 3361 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3368:/ checksignal"); -#line 3368 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L19*/ meltfnum[17] = -#line 3368 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURFKW__V61*/ meltfptr[60]) == (( /*!konst_15_DOC */ meltfrout->tabval[15])));; MELT_LOCATION ("warmelt-macro.melt:3368:/ cond"); -#line 3368 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ -#line 3368 /*^block */ -#line 3368 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3369:/ checksignal"); -#line 3369 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3369 /*cond */ if ( /*_.DOCV__V27*/ meltfptr[26]) /*then */ { /*^cond.then */ -#line 3369 /*^block */ -#line 3369 /*anyblock */ { { /*^locexp */ -#line 3369 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ @@ -30257,80 +25097,64 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3370:/ compute"); -#line 3370 "warmelt-macro.melt" /**::compute::**/ /*_.DOCV__V27*/ meltfptr[26] = /*_.SETQ___V77*/ meltfptr[69] = /*_.CUREXP__V65*/ meltfptr[64];; MELT_LOCATION ("warmelt-macro.melt:3368:/ quasiblock"); -#line 3368 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V78*/ meltfptr[74] = /*_.SETQ___V77*/ meltfptr[69];; /*^compute */ - /*_.IFELSE___V76*/ meltfptr[67] = /*_.PROGN___V78*/ meltfptr[74];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3368:/ clear"); -#line 3368 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V77*/ meltfptr[69] = 0; /*^clear */ -#line 3368 /*clear *//*_.PROGN___V78*/ meltfptr[74] = 0; } ; } else { /*^cond.else */ -#line 3368 /*^block */ -#line 3368 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3373:/ quasiblock"); -#line 3373 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3374:/ checksignal"); -#line 3374 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3374 /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3374 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V20*/ meltfptr[19]; /*^apply.arg */ -#line 3374 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CURFKW__V61*/ meltfptr[60]; /*^apply.arg */ -#line 3374 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.CUREXP__V65*/ meltfptr[64]; /*^apply.arg */ -#line 3374 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3374 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3374 argtab[5].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.FLDA__V79*/ meltfptr[69] = @@ -30348,17 +25172,13 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3375:/ checksignal"); -#line 3375 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3375 /*cond */ if ( /*_.FLDA__V79*/ meltfptr[69]) /*then */ { /*^cond.then */ -#line 3375 /*^block */ -#line 3375 /*anyblock */ { @@ -30366,7 +25186,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3376:/ locexp"); -#line 3376 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V38*/ meltfptr[37]), @@ -30380,11 +25199,9 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3373:/ clear"); -#line 3373 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDA__V79*/ meltfptr[69] = 0; MELT_LOCATION ("warmelt-macro.melt:3372:/ quasiblock"); -#line 3372 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ @@ -30397,10 +25214,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3361:/ clear"); -#line 3361 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#__L19*/ meltfnum[17] = 0; /*^clear */ -#line 3361 /*clear *//*_.IFELSE___V76*/ meltfptr[67] = 0; } ; @@ -30411,10 +25226,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3354:/ clear"); -#line 3354 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#__L17*/ meltfnum[15] = 0; /*^clear */ -#line 3354 /*clear *//*_.IFELSE___V71*/ meltfptr[66] = 0; } ; @@ -30423,85 +25236,64 @@ lab_endgetargs:; /*_.LET___V64*/ meltfptr[63] = /*_.IFELSE___V66*/ meltfptr[65];; MELT_LOCATION ("warmelt-macro.melt:3353:/ clear"); -#line 3353 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V65*/ meltfptr[64] = 0; /*^clear */ -#line 3353 /*clear *//*_#__L15*/ meltfnum[14] = 0; /*^clear */ -#line 3353 /*clear *//*_.IFELSE___V66*/ meltfptr[65] = 0; /*_.PAIR_TAIL__V80*/ meltfptr[74] = -#line 3379 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3379:/ compute"); -#line 3379 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V81*/ meltfptr[69] = /*_.PAIR_TAIL__V80*/ meltfptr[74];; /*_.LET___V60*/ meltfptr[59] = /*_.SETQ___V81*/ meltfptr[69];; MELT_LOCATION ("warmelt-macro.melt:3349:/ clear"); -#line 3349 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURFKW__V61*/ meltfptr[60] = 0; /*^clear */ -#line 3349 /*clear *//*_#IS_NOT_A__L14*/ meltfnum[9] = 0; /*^clear */ -#line 3349 /*clear *//*_.PAIR_TAIL__V62*/ meltfptr[61] = 0; /*^clear */ -#line 3349 /*clear *//*_.SETQ___V63*/ meltfptr[62] = 0; /*^clear */ -#line 3349 /*clear *//*_.LET___V64*/ meltfptr[63] = 0; /*^clear */ -#line 3349 /*clear *//*_.PAIR_TAIL__V80*/ meltfptr[74] = 0; /*^clear */ -#line 3349 /*clear *//*_.SETQ___V81*/ meltfptr[69] = 0; MELT_LOCATION ("warmelt-macro.melt:3347:/ checksignal"); -#line 3347 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 3347 /*clear *//*_#IS_PAIR__L12*/ meltfnum[7] = 0; /*^clear */ -#line 3347 /*clear *//*_#NOT__L13*/ meltfnum[8] = 0; /*^clear */ -#line 3347 /*clear *//*_.LET___V60*/ meltfptr[59] = 0; } ; ; goto labloop_INSLOOP_1; labexit_INSLOOP_1:; /*^loopepilog */ -#line 3347 /*loopepilog */ /*_.FOREVER___V58*/ meltfptr[42] = /*_.INSLOOP__V59*/ meltfptr[58];; } ; MELT_LOCATION ("warmelt-macro.melt:3381:/ quasiblock"); -#line 3381 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3381 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3381 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3381 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[18]); /*_.FASTUP__V83*/ meltfptr[66] = @@ -30513,15 +25305,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3383:/ checksignal"); -#line 3383 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3383 /*^rawallocobj */ -#line 3383 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -30534,7 +25323,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3383 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -30544,7 +25332,6 @@ lab_endgetargs:; ( /*_.LOC__V20*/ meltfptr[19]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3383 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_NAME", melt_magic_discr ((melt_ptr_t) @@ -30554,7 +25341,6 @@ lab_endgetargs:; ( /*_.SYMB__V23*/ meltfptr[22]), "SDEF_NAME"); ; /*^putslot */ -#line 3383 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_DOC", melt_magic_discr ((melt_ptr_t) @@ -30564,7 +25350,6 @@ lab_endgetargs:; ( /*_.DOCV__V27*/ meltfptr[26]), "SDEF_DOC"); ; /*^putslot */ -#line 3383 /*putslot */ melt_assertmsg ("putslot checkobj @SOBJ_PREDEF", melt_magic_discr ((melt_ptr_t) @@ -30574,7 +25359,6 @@ lab_endgetargs:; ( /*_.PREDEF__V15*/ meltfptr[11]), "SOBJ_PREDEF"); ; /*^putslot */ -#line 3383 /*putslot */ melt_assertmsg ("putslot checkobj @SINST_CLASS", melt_magic_discr ((melt_ptr_t) @@ -30584,7 +25368,6 @@ lab_endgetargs:; ( /*_.CLA__V25*/ meltfptr[24]), "SINST_CLASS"); ; /*^putslot */ -#line 3383 /*putslot */ melt_assertmsg ("putslot checkobj @SINST_CLABIND", melt_magic_discr ((melt_ptr_t) @@ -30595,7 +25378,6 @@ lab_endgetargs:; "SINST_CLABIND"); ; /*^putslot */ -#line 3383 /*putslot */ melt_assertmsg ("putslot checkobj @SINST_OBJNUM", melt_magic_discr ((melt_ptr_t) @@ -30605,7 +25387,6 @@ lab_endgetargs:; ( /*_.OBJNUM__V16*/ meltfptr[15]), "SINST_OBJNUM"); ; /*^putslot */ -#line 3383 /*putslot */ melt_assertmsg ("putslot checkobj @SINST_FIELDS", melt_magic_discr ((melt_ptr_t) @@ -30616,13 +25397,10 @@ lab_endgetargs:; ; /*_.SINST__V84*/ meltfptr[64] = /*_.INST__V85*/ meltfptr[65];; MELT_LOCATION ("warmelt-macro.melt:3394:/ checksignal"); -#line 3394 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3394 /*cond */ if ( -#line 3394 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.IBIND__V32*/ meltfptr[31]), @@ -30630,14 +25408,11 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3394 /*^block */ -#line 3394 /*anyblock */ { /*^putslot */ -#line 3394 /*putslot */ melt_assertmsg ("putslot checkobj @IBIND_ICLASS", melt_magic_discr ((melt_ptr_t) @@ -30648,7 +25423,6 @@ lab_endgetargs:; "IBIND_ICLASS"); ; /*^touch */ -#line 3394 meltgc_touch ( /*_.IBIND__V32*/ meltfptr[31]); ; /*epilog */ @@ -30657,19 +25431,15 @@ lab_endgetargs:; } /*noelse */ ; -#line 3395 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3395:/ cppif.then"); -#line 3395 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3395 /*anyblock */ { { /*^locexp */ -#line 3395 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -30678,11 +25448,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3395 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L20*/ meltfnum[17] = -#line 3395 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -30691,18 +25459,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3395:/ cond"); -#line 3395 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[17]) /*then */ { /*^cond.then */ -#line 3395 /*^block */ -#line 3395 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[15] = -#line 3395 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -30710,30 +25474,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3395:/ checksignal"); -#line 3395 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3395 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3395 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[15]; /*^apply.arg */ -#line 3395 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3395 argtab[2].meltbp_long = 3395; /*^apply.arg */ -#line 3395 argtab[3].meltbp_cstring = "mexp.definstance sinst"; /*^apply.arg */ -#line 3395 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SINST__V84*/ meltfptr[64]; /*_.MELT_DEBUG_FUN__V88*/ meltfptr[62] = @@ -30751,61 +25508,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3395:/ clear"); -#line 3395 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[15] = 0; /*^clear */ -#line 3395 /*clear *//*_.MELT_DEBUG_FUN__V88*/ meltfptr[62] = 0; } ; } else { /*^cond.else */ -#line 3395 /*_.IF___V87*/ meltfptr[61] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3395:/ quasiblock"); -#line 3395 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V89*/ meltfptr[63] = /*_.IF___V87*/ meltfptr[61];; /*^compute */ - /*_.IFCPP___V86*/ meltfptr[60] = /*_.PROGN___V89*/ meltfptr[63];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3395:/ clear"); -#line 3395 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[17] = 0; /*^clear */ -#line 3395 /*clear *//*_.IF___V87*/ meltfptr[61] = 0; /*^clear */ -#line 3395 /*clear *//*_.PROGN___V89*/ meltfptr[63] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3395 /*_.IFCPP___V86*/ meltfptr[60] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3396:/ checksignal"); -#line 3396 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3396 /*_.RETVAL___V1*/ meltfptr[0] = /*_.SINST__V84*/ meltfptr[64];; { MELT_LOCATION ("warmelt-macro.melt:3396:/ locexp"); -#line 3396 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30816,141 +25561,100 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3396 ; /*finalret */ goto labend_rout; /*_.LET___V82*/ meltfptr[67] = /*_.RETURN___V90*/ meltfptr[74];; MELT_LOCATION ("warmelt-macro.melt:3381:/ clear"); -#line 3381 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FASTUP__V83*/ meltfptr[66] = 0; /*^clear */ -#line 3381 /*clear *//*_.SINST__V84*/ meltfptr[64] = 0; /*^clear */ -#line 3381 /*clear *//*_.IFCPP___V86*/ meltfptr[60] = 0; /*^clear */ -#line 3381 /*clear *//*_.RETURN___V90*/ meltfptr[74] = 0; /*_.LET___V36*/ meltfptr[35] = /*_.LET___V82*/ meltfptr[67];; MELT_LOCATION ("warmelt-macro.melt:3328:/ clear"); -#line 3328 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.BND__V37*/ meltfptr[36] = 0; /*^clear */ -#line 3328 /*clear *//*_.FLDLIST__V38*/ meltfptr[37] = 0; /*^clear */ -#line 3328 /*clear *//*_#IS_A__L7*/ meltfnum[6] = 0; /*^clear */ -#line 3328 /*clear *//*_.IFELSE___V39*/ meltfptr[38] = 0; /*^clear */ -#line 3328 /*clear *//*_.SETQ___V53*/ meltfptr[48] = 0; /*^clear */ -#line 3328 /*clear *//*_.IFCPP___V54*/ meltfptr[41] = 0; /*^clear */ -#line 3328 /*clear *//*_.PAIR_TAIL__V56*/ meltfptr[39] = 0; /*^clear */ -#line 3328 /*clear *//*_.SETQ___V57*/ meltfptr[40] = 0; /*^clear */ -#line 3328 /*clear *//*_.FOREVER___V58*/ meltfptr[42] = 0; /*^clear */ -#line 3328 /*clear *//*_.LET___V82*/ meltfptr[67] = 0; /*_.LET___V30*/ meltfptr[29] = /*_.LET___V36*/ meltfptr[35];; MELT_LOCATION ("warmelt-macro.melt:3316:/ clear"); -#line 3316 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAM__V31*/ meltfptr[30] = 0; /*^clear */ -#line 3316 /*clear *//*_.IBIND__V32*/ meltfptr[31] = 0; /*^clear */ -#line 3316 /*clear *//*_.WARN_IF_REDEFINED__V34*/ meltfptr[33] = 0; /*^clear */ -#line 3316 /*clear *//*_.PUT_ENV__V35*/ meltfptr[34] = 0; /*^clear */ -#line 3316 /*clear *//*_#IS_NOT_A__L6*/ meltfnum[0] = 0; /*^clear */ -#line 3316 /*clear *//*_.LET___V36*/ meltfptr[35] = 0; /*_.LET___V14*/ meltfptr[10] = /*_.LET___V30*/ meltfptr[29];; MELT_LOCATION ("warmelt-macro.melt:3300:/ clear"); -#line 3300 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PREDEF__V15*/ meltfptr[11] = 0; /*^clear */ -#line 3300 /*clear *//*_.OBJNUM__V16*/ meltfptr[15] = 0; /*^clear */ -#line 3300 /*clear *//*_.FIELDS__V17*/ meltfptr[16] = 0; /*^clear */ -#line 3300 /*clear *//*_.FIELDNAMS__V18*/ meltfptr[17] = 0; /*^clear */ -#line 3300 /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ -#line 3300 /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; /*^clear */ -#line 3300 /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0; /*^clear */ -#line 3300 /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0; /*^clear */ -#line 3300 /*clear *//*_.SYMB__V23*/ meltfptr[22] = 0; /*^clear */ -#line 3300 /*clear *//*_.CLANAME__V24*/ meltfptr[23] = 0; /*^clear */ -#line 3300 /*clear *//*_.CLA__V25*/ meltfptr[24] = 0; /*^clear */ -#line 3300 /*clear *//*_.CLABIND__V26*/ meltfptr[25] = 0; /*^clear */ -#line 3300 /*clear *//*_.DOCV__V27*/ meltfptr[26] = 0; /*^clear */ -#line 3300 /*clear *//*_#IS_NOT_A__L5*/ meltfnum[3] = 0; /*^clear */ -#line 3300 /*clear *//*_.PAIR_TAIL__V28*/ meltfptr[27] = 0; /*^clear */ -#line 3300 /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0; /*^clear */ -#line 3300 /*clear *//*_.LET___V30*/ meltfptr[29] = 0; MELT_LOCATION ("warmelt-macro.melt:3296:/ checksignal"); -#line 3296 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3296 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];; { MELT_LOCATION ("warmelt-macro.melt:3296:/ locexp"); -#line 3296 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30961,22 +25665,17 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3296 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3296 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 3296 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 3296 /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; /*^clear */ -#line 3296 /*clear *//*_.LET___V14*/ meltfptr[10] = 0; } @@ -30995,7 +25694,6 @@ labend_rout: } /*end meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE */ -#line 3410 "warmelt-macro.melt" /**::proc::**/ @@ -31074,12 +25772,10 @@ meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3410:/ getarg"); -#line 3410 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3410 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -31089,7 +25785,6 @@ meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3410 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -31100,7 +25795,6 @@ meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 3410 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -31113,44 +25807,34 @@ meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3410 /*anyblock*/ { -#line 3411 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3411:/ cppif.then"); -#line 3411 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3411 /*anyblock */ { /*^checksignal */ -#line 3411 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3411 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3411:/ cond"); -#line 3411 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3411 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3411:/ cond.else"); -#line 3411 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3411 /*anyblock */ { @@ -31159,7 +25843,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3411 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -31174,58 +25857,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3411:/ clear"); -#line 3411 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3411 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3411 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3412 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3412:/ cppif.then"); -#line 3412 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3412 /*anyblock */ { /*^checksignal */ -#line 3412 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3412 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3412:/ cond"); -#line 3412 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3412 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3412:/ cond.else"); -#line 3412 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3412 /*anyblock */ { @@ -31234,7 +25904,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3412 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -31249,57 +25918,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3412:/ clear"); -#line 3412 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3412 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3412 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3413 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3413:/ cppif.then"); -#line 3413 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3413 /*anyblock */ { /*^checksignal */ -#line 3413 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L3*/ meltfnum[0] = -#line 3413 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:3413:/ cond"); -#line 3413 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3413 /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3413:/ cond.else"); -#line 3413 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3413 /*anyblock */ { @@ -31308,7 +25964,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3413 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -31323,76 +25978,60 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3413:/ clear"); -#line 3413 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ -#line 3413 /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3413 /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3414:/ checksignal"); -#line 3414 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[0] = -#line 3414 "warmelt-macro.melt" /**::expr::**/ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3414:/ cond"); -#line 3414 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3414 /*^block */ -#line 3414 /*anyblock */ { /*^compute */ -#line 3414 /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V13*/ meltfptr[12] = ( /*!MACROEXPAND_1 */ meltfrout->tabval[2]);; /*_.IF___V12*/ meltfptr[10] = /*_.SETQ___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3414:/ clear"); -#line 3414 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V13*/ meltfptr[12] = 0; } ; } else { /*^cond.else */ -#line 3414 /*_.IF___V12*/ meltfptr[10] = NULL;; } ; -#line 3415 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3415:/ cppif.then"); -#line 3415 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3415 /*anyblock */ { { /*^locexp */ -#line 3415 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -31401,11 +26040,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3415 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = -#line 3415 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -31414,18 +26051,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3415:/ cond"); -#line 3415 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3415 /*^block */ -#line 3415 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = -#line 3415 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -31433,29 +26066,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3415:/ checksignal"); -#line 3415 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3415 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3415 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg */ -#line 3415 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3415 argtab[2].meltbp_long = 3415; /*^apply.arg */ -#line 3415 argtab[3].meltbp_cstring = "mexp.definstance sexpr"; /*^apply.arg */ -#line 3415 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = @@ -31473,64 +26099,50 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3415:/ clear"); -#line 3415 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ -#line 3415 /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0; } ; } else { /*^cond.else */ -#line 3415 /*_.IF___V15*/ meltfptr[14] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3415:/ quasiblock"); -#line 3415 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];; /*^compute */ - /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3415:/ clear"); -#line 3415 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0; /*^clear */ -#line 3415 /*clear *//*_.IF___V15*/ meltfptr[14] = 0; /*^clear */ -#line 3415 /*clear *//*_.PROGN___V17*/ meltfptr[15] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3415 /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3416:/ quasiblock"); -#line 3416 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PREDEF__V19*/ meltfptr[15] = ( /*nil */ NULL);; /*^compute */ - /*_.OBJNUM__V20*/ meltfptr[19] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDS__V21*/ meltfptr[20] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDNAMS__V22*/ meltfptr[21] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3420:/ getslot"); -#line 3420 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -31539,7 +26151,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3421:/ getslot"); -#line 3421 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -31548,57 +26159,41 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V25*/ meltfptr[24] = -#line 3422 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V23*/ meltfptr[22])));; /*^compute */ - /*_.CURPAIR__V26*/ meltfptr[25] = -#line 3422 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V25*/ meltfptr[24])));; /*^compute */ - /*_.SYMB__V27*/ meltfptr[26] = -#line 3423 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; /*^compute */ - /*_.CLANAME__V28*/ meltfptr[27] = ( /*nil */ NULL);; /*^compute */ - /*_.CLA__V29*/ meltfptr[28] = ( /*nil */ NULL);; /*^compute */ - /*_.DOCV__V30*/ meltfptr[29] = ( /*nil */ NULL);; /*^compute */ - /*_.CLABIND__V31*/ meltfptr[30] = ( /*nil */ NULL);; /*^compute */ - /*_.FORMALS__V32*/ meltfptr[31] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3430:/ checksignal"); -#line 3430 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[5] = -#line 3430 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V27*/ meltfptr[26]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:3430:/ cond"); -#line 3430 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ -#line 3430 /*^block */ -#line 3430 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3432:/ locexp"); -#line 3432 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("missing symbol for (DEFSELECTOR <name> <class> ...)"), @@ -31606,14 +26201,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3433:/ quasiblock"); -#line 3433 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:3433:/ locexp"); -#line 3433 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31624,61 +26217,47 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3433 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3431:/ quasiblock"); -#line 3431 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V35*/ meltfptr[34] = /*_.RETURN___V34*/ meltfptr[33];; /*^compute */ - /*_.IF___V33*/ meltfptr[32] = /*_.PROGN___V35*/ meltfptr[34];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3430:/ clear"); -#line 3430 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V34*/ meltfptr[33] = 0; /*^clear */ -#line 3430 /*clear *//*_.PROGN___V35*/ meltfptr[34] = 0; } ; } else { /*^cond.else */ -#line 3430 /*_.IF___V33*/ meltfptr[32] = NULL;; } ; /*^compute */ - /*_.PAIR_TAIL__V36*/ meltfptr[33] = -#line 3434 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; MELT_LOCATION ("warmelt-macro.melt:3434:/ compute"); -#line 3434 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V37*/ meltfptr[34] = /*_.PAIR_TAIL__V36*/ meltfptr[33];; MELT_LOCATION ("warmelt-macro.melt:3435:/ quasiblock"); -#line 3435 "warmelt-macro.melt" /**::quasiblock::**/ /*_.NAM__V39*/ meltfptr[38] = -#line 3435 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; MELT_LOCATION ("warmelt-macro.melt:3436:/ checksignal"); -#line 3436 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3436 /*^rawallocobj */ -#line 3436 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -31691,7 +26270,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3436 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -31701,7 +26279,6 @@ lab_endgetargs:; ( /*_.SYMB__V27*/ meltfptr[26]), "BINDER"); ; /*^putslot */ -#line 3436 /*putslot */ melt_assertmsg ("putslot checkobj @SBIND_SELECTORDEF", melt_magic_discr ((melt_ptr_t) @@ -31712,29 +26289,23 @@ lab_endgetargs:; ; /*_.SELBIND__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; MELT_LOCATION ("warmelt-macro.melt:3441:/ checksignal"); -#line 3441 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L8*/ meltfnum[4] = -#line 3441 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.NAM__V39*/ meltfptr[38]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:3441:/ cond"); -#line 3441 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L8*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3441 /*^block */ -#line 3441 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3443:/ locexp"); -#line 3443 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("missing class name for (DEFSELECTOR <name> <class> ...)"), @@ -31742,14 +26313,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3444:/ quasiblock"); -#line 3444 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:3444:/ locexp"); -#line 3444 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31760,50 +26329,40 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3444 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3442:/ quasiblock"); -#line 3442 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V44*/ meltfptr[43] = /*_.RETURN___V43*/ meltfptr[42];; /*^compute */ - /*_.IF___V42*/ meltfptr[41] = /*_.PROGN___V44*/ meltfptr[43];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3441:/ clear"); -#line 3441 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V43*/ meltfptr[42] = 0; /*^clear */ -#line 3441 /*clear *//*_.PROGN___V44*/ meltfptr[43] = 0; } ; } else { /*^cond.else */ -#line 3441 /*_.IF___V42*/ meltfptr[41] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3445:/ checksignal"); -#line 3445 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3445 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3445 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3445 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V24*/ meltfptr[23]; /*_.WARN_IF_REDEFINED__V45*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t) @@ -31814,17 +26373,14 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3446:/ checksignal"); -#line 3446 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3446 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3446 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.SELBIND__V40*/ meltfptr[39]; /*_.PUT_ENV__V46*/ meltfptr[43] = @@ -31836,23 +26392,18 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3448:/ compute"); -#line 3448 "warmelt-macro.melt" /**::compute::**/ /*_.CLANAME__V28*/ meltfptr[27] = /*_.SETQ___V47*/ meltfptr[46] = /*_.NAM__V39*/ meltfptr[38];; -#line 3449 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3449:/ cppif.then"); -#line 3449 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3449 /*anyblock */ { { /*^locexp */ -#line 3449 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -31861,11 +26412,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3449 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = -#line 3449 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -31874,18 +26423,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3449:/ cond"); -#line 3449 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3449 /*^block */ -#line 3449 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = -#line 3449 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -31893,30 +26438,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3449:/ checksignal"); -#line 3449 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3449 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3449 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; /*^apply.arg */ -#line 3449 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3449 argtab[2].meltbp_long = 3449; /*^apply.arg */ -#line 3449 argtab[3].meltbp_cstring = "mexpand_defselector claname"; /*^apply.arg */ -#line 3449 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CLANAME__V28*/ meltfptr[27]; /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = @@ -31934,64 +26472,51 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3449:/ clear"); -#line 3449 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ -#line 3449 /*clear *//*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0; } ; } else { /*^cond.else */ -#line 3449 /*_.IF___V49*/ meltfptr[48] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3449:/ quasiblock"); -#line 3449 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V51*/ meltfptr[49] = /*_.IF___V49*/ meltfptr[48];; /*^compute */ - /*_.IFCPP___V48*/ meltfptr[47] = /*_.PROGN___V51*/ meltfptr[49];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3449:/ clear"); -#line 3449 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ -#line 3449 /*clear *//*_.IF___V49*/ meltfptr[48] = 0; /*^clear */ -#line 3449 /*clear *//*_.PROGN___V51*/ meltfptr[49] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3449 /*_.IFCPP___V48*/ meltfptr[47] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3450:/ quasiblock"); -#line 3450 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3450 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3450 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3450 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CLANAME__V28*/ meltfptr[27]; /*_.BND__V53*/ meltfptr[49] = @@ -32003,35 +26528,27 @@ lab_endgetargs:; } ; /*_.FLDLIST__V54*/ meltfptr[53] = -#line 3451 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[9]))));; MELT_LOCATION ("warmelt-macro.melt:3454:/ checksignal"); -#line 3454 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L11*/ meltfnum[9] = -#line 3454 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[10])));; MELT_LOCATION ("warmelt-macro.melt:3454:/ cond"); -#line 3454 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3454 /*^block */ -#line 3454 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3455:/ compute"); -#line 3455 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V31*/ meltfptr[30] = /*_.SETQ___V56*/ meltfptr[55] = /*_.BND__V53*/ meltfptr[49];; MELT_LOCATION ("warmelt-macro.melt:3456:/ getslot"); -#line 3456 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]) /*=obj*/ ; @@ -32040,69 +26557,53 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3456 /*_.CLA__V29*/ meltfptr[28] = /*_.SETQ___V58*/ meltfptr[57] = /*_.CBIND_CLASS__V57*/ meltfptr[56];; MELT_LOCATION ("warmelt-macro.melt:3454:/ quasiblock"); -#line 3454 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V59*/ meltfptr[58] = /*_.SETQ___V58*/ meltfptr[57];; /*^compute */ - /*_.IFELSE___V55*/ meltfptr[54] = /*_.PROGN___V59*/ meltfptr[58];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3454:/ clear"); -#line 3454 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V56*/ meltfptr[55] = 0; /*^clear */ -#line 3454 /*clear *//*_.CBIND_CLASS__V57*/ meltfptr[56] = 0; /*^clear */ -#line 3454 /*clear *//*_.SETQ___V58*/ meltfptr[57] = 0; /*^clear */ -#line 3454 /*clear *//*_.PROGN___V59*/ meltfptr[58] = 0; } ; } else { /*^cond.else */ -#line 3454 /*^block */ -#line 3454 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3457:/ checksignal"); -#line 3457 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 3457 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L12*/ meltfnum[8] = -#line 3457 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[11])));; MELT_LOCATION ("warmelt-macro.melt:3457:/ cond"); -#line 3457 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3457 /*^block */ -#line 3457 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3458:/ getslot"); -#line 3458 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]) /*=obj*/ ; @@ -32111,51 +26612,41 @@ lab_endgetargs:; }; ; /*_#IS_A__L14*/ meltfnum[13] = -#line 3458 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VBIND_VALUE__V60*/ meltfptr[55]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[12])));; /*^compute */ - /*_#IF___L13*/ meltfnum[12] = /*_#IS_A__L14*/ meltfnum[13];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3457:/ clear"); -#line 3457 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.VBIND_VALUE__V60*/ meltfptr[55] = 0; /*^clear */ -#line 3457 /*clear *//*_#IS_A__L14*/ meltfnum[13] = 0; } ; } else { /*^cond.else */ -#line 3457 /*_#IF___L13*/ meltfnum[12] = 0;; } ; MELT_LOCATION ("warmelt-macro.melt:3457:/ cond"); -#line 3457 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L13*/ meltfnum[12]) /*then */ { /*^cond.then */ -#line 3457 /*^block */ -#line 3457 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3459:/ compute"); -#line 3459 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V31*/ meltfptr[30] = /*_.SETQ___V62*/ meltfptr[57] = /*_.BND__V53*/ meltfptr[49];; MELT_LOCATION ("warmelt-macro.melt:3460:/ getslot"); -#line 3460 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]) /*=obj*/ ; @@ -32164,77 +26655,59 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3460 /*_.CLA__V29*/ meltfptr[28] = /*_.SETQ___V64*/ meltfptr[55] = /*_.VBIND_VALUE__V63*/ meltfptr[58];; MELT_LOCATION ("warmelt-macro.melt:3457:/ quasiblock"); -#line 3457 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V65*/ meltfptr[64] = /*_.SETQ___V64*/ meltfptr[55];; /*^compute */ - /*_.IFELSE___V61*/ meltfptr[56] = /*_.PROGN___V65*/ meltfptr[64];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3457:/ clear"); -#line 3457 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V62*/ meltfptr[57] = 0; /*^clear */ -#line 3457 /*clear *//*_.VBIND_VALUE__V63*/ meltfptr[58] = 0; /*^clear */ -#line 3457 /*clear *//*_.SETQ___V64*/ meltfptr[55] = 0; /*^clear */ -#line 3457 /*clear *//*_.PROGN___V65*/ meltfptr[64] = 0; } ; } else { /*^cond.else */ -#line 3457 /*^block */ -#line 3457 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3461:/ checksignal"); -#line 3461 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L15*/ meltfnum[13] = -#line 3461 "warmelt-macro.melt" /**::expr::**/ (( /*_.BND__V53*/ meltfptr[49]) != NULL);; MELT_LOCATION ("warmelt-macro.melt:3461:/ cond"); -#line 3461 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOTNULL__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 3461 /*^block */ -#line 3461 /*anyblock */ { -#line 3462 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3462:/ cppif.then"); -#line 3462 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3462 /*anyblock */ { { /*^locexp */ -#line 3462 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -32243,11 +26716,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3462 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = -#line 3462 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -32256,18 +26727,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3462:/ cond"); -#line 3462 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 3462 /*^block */ -#line 3462 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = -#line 3462 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -32276,32 +26743,25 @@ lab_endgetargs:; ;; MELT_LOCATION ("warmelt-macro.melt:3462:/ checksignal"); -#line 3462 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3462 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3462 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16]; /*^apply.arg */ -#line 3462 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3462 argtab[2].meltbp_long = 3462; /*^apply.arg */ -#line 3462 argtab[3].meltbp_cstring = "mexpand_defselector faulty bnd"; /*^apply.arg */ -#line 3462 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.BND__V53*/ meltfptr[49]; @@ -32324,11 +26784,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3462:/ clear"); -#line 3462 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ -#line 3462 /*clear *//*_.MELT_DEBUG_FUN__V69*/ meltfptr[64] = 0; } @@ -32336,43 +26794,35 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3462 /*_.IF___V68*/ meltfptr[55] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3462:/ quasiblock"); -#line 3462 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V70*/ meltfptr[64] = /*_.IF___V68*/ meltfptr[55];; /*^compute */ - /*_.IFCPP___V67*/ meltfptr[58] = /*_.PROGN___V70*/ meltfptr[64];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3462:/ clear"); -#line 3462 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0; /*^clear */ -#line 3462 /*clear *//*_.IF___V68*/ meltfptr[55] = 0; /*^clear */ -#line 3462 /*clear *//*_.PROGN___V70*/ meltfptr[64] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3462 /*_.IFCPP___V67*/ meltfptr[58] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3464:/ getslot"); -#line 3464 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32385,7 +26835,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3463:/ locexp"); -#line 3463 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("invalid class name for (DEFSELECTOR <name> <class> ...)"), @@ -32394,14 +26843,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3465:/ quasiblock"); -#line 3465 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:3465:/ locexp"); -#line 3465 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -32413,47 +26860,37 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3465 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3461:/ quasiblock"); -#line 3461 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V73*/ meltfptr[72] = /*_.RETURN___V72*/ meltfptr[64];; /*^compute */ - /*_.IFELSE___V66*/ meltfptr[57] = /*_.PROGN___V73*/ meltfptr[72];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3461:/ clear"); -#line 3461 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V67*/ meltfptr[58] = 0; /*^clear */ -#line 3461 /*clear *//*_.NAMED_NAME__V71*/ meltfptr[55] = 0; /*^clear */ -#line 3461 /*clear *//*_.RETURN___V72*/ meltfptr[64] = 0; /*^clear */ -#line 3461 /*clear *//*_.PROGN___V73*/ meltfptr[72] = 0; } ; } else { /*^cond.else */ -#line 3461 /*^block */ -#line 3461 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3468:/ getslot"); -#line 3468 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32466,7 +26903,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3467:/ locexp"); -#line 3467 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("unknown class name for (DEFSELECTOR <name> <class> ...)"), @@ -32475,14 +26911,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3469:/ quasiblock"); -#line 3469 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:3469:/ locexp"); -#line 3469 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -32494,29 +26928,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3469 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3466:/ quasiblock"); -#line 3466 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V76*/ meltfptr[64] = /*_.RETURN___V75*/ meltfptr[55];; /*^compute */ - /*_.IFELSE___V66*/ meltfptr[57] = /*_.PROGN___V76*/ meltfptr[64];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3461:/ clear"); -#line 3461 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V74*/ meltfptr[58] = 0; /*^clear */ -#line 3461 /*clear *//*_.RETURN___V75*/ meltfptr[55] = 0; /*^clear */ -#line 3461 /*clear *//*_.PROGN___V76*/ meltfptr[64] = 0; } ; @@ -32527,10 +26955,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3457:/ clear"); -#line 3457 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#NOTNULL__L15*/ meltfnum[13] = 0; /*^clear */ -#line 3457 /*clear *//*_.IFELSE___V66*/ meltfptr[57] = 0; } ; @@ -32540,32 +26966,25 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3454:/ clear"); -#line 3454 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L12*/ meltfnum[8] = 0; /*^clear */ -#line 3454 /*clear *//*_#IF___L13*/ meltfnum[12] = 0; /*^clear */ -#line 3454 /*clear *//*_.IFELSE___V61*/ meltfptr[56] = 0; } ; } ; -#line 3472 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3472:/ cppif.then"); -#line 3472 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3472 /*anyblock */ { { /*^locexp */ -#line 3472 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -32574,11 +26993,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3472 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = -#line 3472 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -32587,18 +27004,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3472:/ cond"); -#line 3472 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then */ { /*^cond.then */ -#line 3472 /*^block */ -#line 3472 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15] = -#line 3472 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -32606,30 +27019,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3472:/ checksignal"); -#line 3472 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3472 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3472 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15]; /*^apply.arg */ -#line 3472 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3472 argtab[2].meltbp_long = 3472; /*^apply.arg */ -#line 3472 argtab[3].meltbp_cstring = "mexpand_defselector cla"; /*^apply.arg */ -#line 3472 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CLA__V29*/ meltfptr[28]; /*_.MELT_DEBUG_FUN__V79*/ meltfptr[55] = @@ -32647,54 +27053,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3472:/ clear"); -#line 3472 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15] = 0; /*^clear */ -#line 3472 /*clear *//*_.MELT_DEBUG_FUN__V79*/ meltfptr[55] = 0; } ; } else { /*^cond.else */ -#line 3472 /*_.IF___V78*/ meltfptr[58] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3472:/ quasiblock"); -#line 3472 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V80*/ meltfptr[64] = /*_.IF___V78*/ meltfptr[58];; /*^compute */ - /*_.IFCPP___V77*/ meltfptr[72] = /*_.PROGN___V80*/ meltfptr[64];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3472:/ clear"); -#line 3472 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0; /*^clear */ -#line 3472 /*clear *//*_.IF___V78*/ meltfptr[58] = 0; /*^clear */ -#line 3472 /*clear *//*_.PROGN___V80*/ meltfptr[64] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3472 /*_.IFCPP___V77*/ meltfptr[72] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3473:/ checksignal"); -#line 3473 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#SUBCLASS_OR_EQ__L20*/ meltfnum[13] = -#line 3473 "warmelt-macro.melt" /**::expr::**/ (( /*_.CLA__V29*/ meltfptr[28] == ( /*!CLASS_SELECTOR */ meltfrout->tabval[13])) || @@ -32702,35 +27097,26 @@ lab_endgetargs:; (meltobject_ptr_t) (( /*!CLASS_SELECTOR */ meltfrout->tabval[13]))));; /*^compute */ - /*_#NOT__L21*/ meltfnum[8] = -#line 3473 "warmelt-macro.melt" /**::expr::**/ (!( /*_#SUBCLASS_OR_EQ__L20*/ meltfnum[13]));; MELT_LOCATION ("warmelt-macro.melt:3473:/ cond"); -#line 3473 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L21*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3473 /*^block */ -#line 3473 /*anyblock */ { -#line 3475 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3475:/ cppif.then"); -#line 3475 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3475 /*anyblock */ { { /*^locexp */ -#line 3475 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -32739,11 +27125,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3475 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L22*/ meltfnum[12] = -#line 3475 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -32752,18 +27136,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3475:/ cond"); -#line 3475 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[12]) /*then */ { /*^cond.then */ -#line 3475 /*^block */ -#line 3475 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[15] = -#line 3475 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -32771,31 +27151,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3475:/ checksignal"); -#line 3475 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3475 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3475 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[15]; /*^apply.arg */ -#line 3475 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3475 argtab[2].meltbp_long = 3475; /*^apply.arg */ -#line 3475 argtab[3].meltbp_cstring = "mexpand_defselector class_selector="; /*^apply.arg */ -#line 3475 argtab[4].meltbp_aptr = (melt_ptr_t *) & ( /*!CLASS_SELECTOR */ meltfrout-> tabval[13]); @@ -32815,56 +27188,44 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3475:/ clear"); -#line 3475 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[15] = 0; /*^clear */ -#line 3475 /*clear *//*_.MELT_DEBUG_FUN__V84*/ meltfptr[58] = 0; } ; } else { /*^cond.else */ -#line 3475 /*_.IF___V83*/ meltfptr[55] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3475:/ quasiblock"); -#line 3475 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V85*/ meltfptr[64] = /*_.IF___V83*/ meltfptr[55];; /*^compute */ - /*_.IFCPP___V82*/ meltfptr[56] = /*_.PROGN___V85*/ meltfptr[64];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3475:/ clear"); -#line 3475 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[12] = 0; /*^clear */ -#line 3475 /*clear *//*_.IF___V83*/ meltfptr[55] = 0; /*^clear */ -#line 3475 /*clear *//*_.PROGN___V85*/ meltfptr[64] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3475 /*_.IFCPP___V82*/ meltfptr[56] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3479:/ checksignal"); -#line 3479 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3479 /*cond */ if ( -#line 3479 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!MELT_MODE_REFERENCE */ @@ -32873,9 +27234,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3479 /*^getslot */ -#line 3479 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32888,29 +27247,22 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3479 /*_.REFERENCED_VALUE__V86*/ meltfptr[58] = NULL;; } ; /*^compute */ - /*_#NULL__L24*/ meltfnum[16] = -#line 3479 "warmelt-macro.melt" /**::expr::**/ (( /*_.REFERENCED_VALUE__V86*/ meltfptr[58]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3479:/ cond"); -#line 3479 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L24*/ meltfnum[16]) /*then */ { /*^cond.then */ -#line 3479 /*^block */ -#line 3479 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3481:/ getslot"); -#line 3481 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32922,7 +27274,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3480:/ locexp"); -#line 3480 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("invalid class in (DEFSELECTOR <name> <class>); expecting CLASS_SELECTOR or its subclass"), (melt_ptr_t) ( /*_.NAMED_NAME__V87*/ @@ -32932,21 +27283,18 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3479:/ clear"); -#line 3479 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V87*/ meltfptr[55] = 0; } ; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3482:/ quasiblock"); -#line 3482 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:3482:/ locexp"); -#line 3482 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32957,78 +27305,60 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3482 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3474:/ quasiblock"); -#line 3474 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V89*/ meltfptr[55] = /*_.RETURN___V88*/ meltfptr[64];; /*^compute */ - /*_.IF___V81*/ meltfptr[57] = /*_.PROGN___V89*/ meltfptr[55];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3473:/ clear"); -#line 3473 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V82*/ meltfptr[56] = 0; /*^clear */ -#line 3473 /*clear *//*_.REFERENCED_VALUE__V86*/ meltfptr[58] = 0; /*^clear */ -#line 3473 /*clear *//*_#NULL__L24*/ meltfnum[16] = 0; /*^clear */ -#line 3473 /*clear *//*_.RETURN___V88*/ meltfptr[64] = 0; /*^clear */ -#line 3473 /*clear *//*_.PROGN___V89*/ meltfptr[55] = 0; } ; } else { /*^cond.else */ -#line 3473 /*_.IF___V81*/ meltfptr[57] = NULL;; } ; -#line 3484 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3484:/ cppif.then"); -#line 3484 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3484 /*anyblock */ { /*^checksignal */ -#line 3484 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L25*/ meltfnum[15] = -#line 3484 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V29*/ meltfptr[28]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[12])));; MELT_LOCATION ("warmelt-macro.melt:3484:/ cond"); -#line 3484 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L25*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 3484 /*_.IFELSE___V91*/ meltfptr[58] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3484:/ cond.else"); -#line 3484 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3484 /*anyblock */ { @@ -33037,7 +27367,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3484 melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -33052,83 +27381,62 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V90*/ meltfptr[56] = /*_.IFELSE___V91*/ meltfptr[58];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3484:/ clear"); -#line 3484 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L25*/ meltfnum[15] = 0; /*^clear */ -#line 3484 /*clear *//*_.IFELSE___V91*/ meltfptr[58] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3484 /*_.IFCPP___V90*/ meltfptr[56] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V92*/ meltfptr[64] = -#line 3485 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; MELT_LOCATION ("warmelt-macro.melt:3485:/ compute"); -#line 3485 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V93*/ meltfptr[55] = /*_.PAIR_TAIL__V92*/ meltfptr[64];; MELT_LOCATION ("warmelt-macro.melt:3486:/ loop"); -#line 3486 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_INSLOOP_2:; /*^loopbody */ -#line 3486 /*^block */ -#line 3486 /*anyblock */ { /*^checksignal */ -#line 3486 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3487:/ checksignal"); -#line 3487 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L26*/ meltfnum[12] = -#line 3487 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L27*/ meltfnum[16] = -#line 3487 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L26*/ meltfnum[12]));; MELT_LOCATION ("warmelt-macro.melt:3487:/ cond"); -#line 3487 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L27*/ meltfnum[16]) /*then */ { /*^cond.then */ -#line 3487 /*^block */ -#line 3487 /*anyblock */ { /*^quasiblock */ -#line 3487 /*^compute */ -#line 3487 /*_.INSLOOP__V95*/ meltfptr[94] = NULL;; /*^exit */ -#line 3487 /*exit */ { goto labexit_INSLOOP_2; @@ -33140,37 +27448,29 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3488:/ quasiblock"); -#line 3488 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURFKW__V97*/ meltfptr[96] = -#line 3488 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; MELT_LOCATION ("warmelt-macro.melt:3489:/ checksignal"); -#line 3489 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L28*/ meltfnum[15] = -#line 3489 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V97*/ meltfptr[96]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[16])));; MELT_LOCATION ("warmelt-macro.melt:3489:/ cond"); -#line 3489 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L28*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 3489 /*^block */ -#line 3489 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3490:/ locexp"); -#line 3490 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("expecting keyword in DEFSELECTOR"), @@ -33183,57 +27483,43 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V98*/ meltfptr[97] = -#line 3491 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; MELT_LOCATION ("warmelt-macro.melt:3491:/ compute"); -#line 3491 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V99*/ meltfptr[98] = /*_.PAIR_TAIL__V98*/ meltfptr[97];; MELT_LOCATION ("warmelt-macro.melt:3492:/ quasiblock"); -#line 3492 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V101*/ meltfptr[100] = -#line 3492 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; MELT_LOCATION ("warmelt-macro.melt:3493:/ checksignal"); -#line 3493 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L29*/ meltfnum[28] = -#line 3493 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURFKW__V97*/ meltfptr[96]) == (( /*!konst_17_OBJ_NUM */ meltfrout->tabval[17])));; MELT_LOCATION ("warmelt-macro.melt:3493:/ cond"); -#line 3493 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L29*/ meltfnum[28]) /*then */ { /*^cond.then */ -#line 3493 /*^block */ -#line 3493 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3494:/ checksignal"); -#line 3494 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3494 /*cond */ if ( /*_.CUREXP__V101*/ meltfptr[100]) /*then */ { /*^cond.then */ -#line 3494 /*^block */ -#line 3494 /*anyblock */ { { /*^locexp */ -#line 3494 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), @@ -33247,46 +27533,36 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3496:/ checksignal"); -#line 3496 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L30*/ meltfnum[29] = -#line 3496 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CUREXP__V101*/ meltfptr[100]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3496:/ cond"); -#line 3496 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L30*/ meltfnum[29]) /*then */ { /*^cond.then */ -#line 3496 /*^block */ -#line 3496 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3497:/ checksignal"); -#line 3497 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3497 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3497 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3497 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3497 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V104*/ meltfptr[103] = @@ -33304,98 +27580,77 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3496:/ clear"); -#line 3496 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V104*/ meltfptr[103] = 0; } ; } else { /*^cond.else */ -#line 3496 /*_.IFELSE___V103*/ meltfptr[102] = /*_.CUREXP__V101*/ meltfptr[100];; } ; MELT_LOCATION ("warmelt-macro.melt:3495:/ compute"); -#line 3495 "warmelt-macro.melt" /**::compute::**/ /*_.OBJNUM__V20*/ meltfptr[19] = /*_.SETQ___V105*/ meltfptr[103] = /*_.IFELSE___V103*/ meltfptr[102];; MELT_LOCATION ("warmelt-macro.melt:3493:/ quasiblock"); -#line 3493 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V106*/ meltfptr[105] = /*_.SETQ___V105*/ meltfptr[103];; /*^compute */ - /*_.IFELSE___V102*/ meltfptr[101] = /*_.PROGN___V106*/ meltfptr[105];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3493:/ clear"); -#line 3493 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L30*/ meltfnum[29] = 0; /*^clear */ -#line 3493 /*clear *//*_.IFELSE___V103*/ meltfptr[102] = 0; /*^clear */ -#line 3493 /*clear *//*_.SETQ___V105*/ meltfptr[103] = 0; /*^clear */ -#line 3493 /*clear *//*_.PROGN___V106*/ meltfptr[105] = 0; } ; } else { /*^cond.else */ -#line 3493 /*^block */ -#line 3493 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3500:/ checksignal"); -#line 3500 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L31*/ meltfnum[29] = -#line 3500 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURFKW__V97*/ meltfptr[96]) == (( /*!konst_18_PREDEF */ meltfrout->tabval[18])));; MELT_LOCATION ("warmelt-macro.melt:3500:/ cond"); -#line 3500 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L31*/ meltfnum[29]) /*then */ { /*^cond.then */ -#line 3500 /*^block */ -#line 3500 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3501:/ checksignal"); -#line 3501 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3501 /*cond */ if ( /*_.CUREXP__V101*/ meltfptr[100]) /*then */ { /*^cond.then */ -#line 3501 /*^block */ -#line 3501 /*anyblock */ { { /*^locexp */ -#line 3501 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), @@ -33409,11 +27664,9 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3503:/ checksignal"); -#line 3503 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L32*/ meltfnum[31] = -#line 3503 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CUREXP__V101*/ meltfptr[100]), @@ -33421,38 +27674,30 @@ lab_endgetargs:; meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3503:/ cond"); -#line 3503 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L32*/ meltfnum[31]) /*then */ { /*^cond.then */ -#line 3503 /*^block */ -#line 3503 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3504:/ checksignal"); -#line 3504 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3504 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3504 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3504 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3504 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V109*/ meltfptr[105] = @@ -33470,99 +27715,78 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3503:/ clear"); -#line 3503 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V109*/ meltfptr[105] = 0; } ; } else { /*^cond.else */ -#line 3503 /*_.IFELSE___V108*/ meltfptr[103] = /*_.CUREXP__V101*/ meltfptr[100];; } ; MELT_LOCATION ("warmelt-macro.melt:3502:/ compute"); -#line 3502 "warmelt-macro.melt" /**::compute::**/ /*_.PREDEF__V19*/ meltfptr[15] = /*_.SETQ___V110*/ meltfptr[105] = /*_.IFELSE___V108*/ meltfptr[103];; MELT_LOCATION ("warmelt-macro.melt:3500:/ quasiblock"); -#line 3500 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V111*/ meltfptr[110] = /*_.SETQ___V110*/ meltfptr[105];; /*^compute */ - /*_.IFELSE___V107*/ meltfptr[102] = /*_.PROGN___V111*/ meltfptr[110];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3500:/ clear"); -#line 3500 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L32*/ meltfnum[31] = 0; /*^clear */ -#line 3500 /*clear *//*_.IFELSE___V108*/ meltfptr[103] = 0; /*^clear */ -#line 3500 /*clear *//*_.SETQ___V110*/ meltfptr[105] = 0; /*^clear */ -#line 3500 /*clear *//*_.PROGN___V111*/ meltfptr[110] = 0; } ; } else { /*^cond.else */ -#line 3500 /*^block */ -#line 3500 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3507:/ checksignal"); -#line 3507 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L33*/ meltfnum[31] = -#line 3507 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURFKW__V97*/ meltfptr[96]) == (( /*!konst_19_DOC */ meltfrout->tabval[19])));; MELT_LOCATION ("warmelt-macro.melt:3507:/ cond"); -#line 3507 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L33*/ meltfnum[31]) /*then */ { /*^cond.then */ -#line 3507 /*^block */ -#line 3507 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3508:/ checksignal"); -#line 3508 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3508 /*cond */ if ( /*_.DOCV__V30*/ meltfptr[29]) /*then */ { /*^cond.then */ -#line 3508 /*^block */ -#line 3508 /*anyblock */ { { /*^locexp */ -#line 3508 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ @@ -33577,82 +27801,65 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3509:/ compute"); -#line 3509 "warmelt-macro.melt" /**::compute::**/ /*_.DOCV__V30*/ meltfptr[29] = /*_.SETQ___V113*/ meltfptr[105] = /*_.CUREXP__V101*/ meltfptr[100];; MELT_LOCATION ("warmelt-macro.melt:3507:/ quasiblock"); -#line 3507 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V114*/ meltfptr[110] = /*_.SETQ___V113*/ meltfptr[105];; /*^compute */ - /*_.IFELSE___V112*/ meltfptr[103] = /*_.PROGN___V114*/ meltfptr[110];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3507:/ clear"); -#line 3507 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V113*/ meltfptr[105] = 0; /*^clear */ -#line 3507 /*clear *//*_.PROGN___V114*/ meltfptr[110] = 0; } ; } else { /*^cond.else */ -#line 3507 /*^block */ -#line 3507 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3511:/ checksignal"); -#line 3511 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L34*/ meltfnum[33] = -#line 3511 "warmelt-macro.melt" /**::expr::**/ (( /*_.CURFKW__V97*/ meltfptr[96]) == (( /*!konst_20_FORMALS */ meltfrout-> tabval[20])));; MELT_LOCATION ("warmelt-macro.melt:3511:/ cond"); -#line 3511 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L34*/ meltfnum[33]) /*then */ { /*^cond.then */ -#line 3511 /*^block */ -#line 3511 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3512:/ checksignal"); -#line 3512 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3512 /*cond */ if ( /*_.FORMALS__V32*/ meltfptr[31]) /*then */ { /*^cond.then */ -#line 3512 /*^block */ -#line 3512 /*anyblock */ { { /*^locexp */ -#line 3512 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ @@ -33668,17 +27875,14 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3516:/ checksignal"); -#line 3516 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3516 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3516 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CURFKW__V97*/ meltfptr[96]; @@ -33691,40 +27895,32 @@ lab_endgetargs:; } ; /*^compute */ -#line 3516 /*_.FORMALS__V32*/ meltfptr[31] = /*_.SETQ___V117*/ meltfptr[116] = /*_.LAMBDA_ARG_BINDINGS__V116*/ meltfptr[110];; MELT_LOCATION ("warmelt-macro.melt:3517:/ quasiblock"); -#line 3517 "warmelt-macro.melt" /**::quasiblock::**/ /*_.FIRSTF__V119*/ meltfptr[118] = -#line 3517 "warmelt-macro.melt" /**::expr::**/ (melt_multiple_nth ((melt_ptr_t) ( /*_.FORMALS__V32*/ meltfptr[31]), (0)));; MELT_LOCATION ("warmelt-macro.melt:3519:/ checksignal"); -#line 3519 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L35*/ meltfnum[34] = -#line 3519 "warmelt-macro.melt" /**::expr::**/ (( /*_.FIRSTF__V119*/ meltfptr[118]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3519:/ cond"); -#line 3519 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L35*/ meltfnum[34]) /*then */ { /*^cond.then */ -#line 3519 /*^block */ -#line 3519 /*anyblock */ { @@ -33734,7 +27930,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3520:/ locexp"); -#line 3520 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ @@ -33753,31 +27948,24 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3519:/ cond.else"); -#line 3519 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3519 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3521:/ checksignal"); -#line 3521 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3521 /*cond */ if ( -#line 3521 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.FIRSTF__V119*/ meltfptr[118]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[22]))) ) /*then */ { /*^cond.then */ -#line 3521 /*^getslot */ -#line 3521 { melt_ptr_t slot = NULL, obj = NULL; @@ -33793,29 +27981,23 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3521 /*_.FBIND_TYPE__V121*/ meltfptr[120] = NULL;; } ; /*^compute */ - /*_#__L36*/ meltfnum[35] = -#line 3521 "warmelt-macro.melt" /**::expr::**/ (( /*_.FBIND_TYPE__V121*/ meltfptr[120]) != (( /*!CTYPE_VALUE */ meltfrout-> tabval[23])));; MELT_LOCATION ("warmelt-macro.melt:3521:/ cond"); -#line 3521 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#__L36*/ meltfnum[35]) /*then */ { /*^cond.then */ -#line 3521 /*^block */ -#line 3521 /*anyblock */ { @@ -33825,7 +28007,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3522:/ locexp"); -#line 3522 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("first :formals of DEFSELECTOR should be a :value"), (melt_ptr_t) 0); @@ -33841,28 +28022,23 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3521:/ cond.else"); -#line 3521 "warmelt-macro.melt" /**::cond.else::**/ /*_.IFELSE___V122*/ meltfptr[121] = NULL;; } ; /*^compute */ - /*_.IFELSE___V120*/ meltfptr[119] = /*_.IFELSE___V122*/ meltfptr[121];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3519:/ clear"); -#line 3519 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FBIND_TYPE__V121*/ meltfptr[120] = 0; /*^clear */ -#line 3519 /*clear *//*_#__L36*/ meltfnum[35] = 0; /*^clear */ -#line 3519 /*clear *//*_.IFELSE___V122*/ meltfptr[121] = 0; } @@ -33874,42 +28050,33 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3517:/ clear"); -#line 3517 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FIRSTF__V119*/ meltfptr[118] = 0; /*^clear */ -#line 3517 /*clear *//*_#NULL__L35*/ meltfnum[34] = 0; /*^clear */ -#line 3517 /*clear *//*_.IFELSE___V120*/ meltfptr[119] = 0; MELT_LOCATION ("warmelt-macro.melt:3511:/ quasiblock"); -#line 3511 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V123*/ meltfptr[120] = /*_.LET___V118*/ meltfptr[117];; /*^compute */ - /*_.IFELSE___V115*/ meltfptr[105] = /*_.PROGN___V123*/ meltfptr[120];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3511:/ clear"); -#line 3511 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LAMBDA_ARG_BINDINGS__V116*/ meltfptr[110] = 0; /*^clear */ -#line 3511 /*clear *//*_.SETQ___V117*/ meltfptr[116] = 0; /*^clear */ -#line 3511 /*clear *//*_.LET___V118*/ meltfptr[117] = 0; /*^clear */ -#line 3511 /*clear *//*_.PROGN___V123*/ meltfptr[120] = 0; } @@ -33917,55 +28084,44 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3511 /*^block */ -#line 3511 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3525:/ quasiblock"); -#line 3525 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3525 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3525 /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3525 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V24*/ meltfptr[23]; /*^apply.arg */ -#line 3525 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CURFKW__V97*/ meltfptr[96]; /*^apply.arg */ -#line 3525 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.CUREXP__V101*/ meltfptr[100]; /*^apply.arg */ -#line 3525 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3525 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3525 argtab[5].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; @@ -33976,17 +28132,13 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3526:/ checksignal"); -#line 3526 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3526 /*cond */ if ( /*_.FLDA__V124*/ meltfptr[121]) /*then */ { /*^cond.then */ -#line 3526 /*^block */ -#line 3526 /*anyblock */ { @@ -33994,7 +28146,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3527:/ locexp"); -#line 3527 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V54*/ meltfptr[53]), (melt_ptr_t) ( /*_.FLDA__V124*/ meltfptr[121])); } @@ -34007,11 +28158,9 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3525:/ clear"); -#line 3525 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDA__V124*/ meltfptr[121] = 0; MELT_LOCATION ("warmelt-macro.melt:3524:/ quasiblock"); -#line 3524 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ @@ -34024,10 +28173,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3507:/ clear"); -#line 3507 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#__L34*/ meltfnum[33] = 0; /*^clear */ -#line 3507 /*clear *//*_.IFELSE___V115*/ meltfptr[105] = 0; } ; @@ -34038,10 +28185,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3500:/ clear"); -#line 3500 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#__L33*/ meltfnum[31] = 0; /*^clear */ -#line 3500 /*clear *//*_.IFELSE___V112*/ meltfptr[103] = 0; } ; @@ -34052,10 +28197,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3493:/ clear"); -#line 3493 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#__L31*/ meltfnum[29] = 0; /*^clear */ -#line 3493 /*clear *//*_.IFELSE___V107*/ meltfptr[102] = 0; } ; @@ -34064,85 +28207,64 @@ lab_endgetargs:; /*_.LET___V100*/ meltfptr[99] = /*_.IFELSE___V102*/ meltfptr[101];; MELT_LOCATION ("warmelt-macro.melt:3492:/ clear"); -#line 3492 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V101*/ meltfptr[100] = 0; /*^clear */ -#line 3492 /*clear *//*_#__L29*/ meltfnum[28] = 0; /*^clear */ -#line 3492 /*clear *//*_.IFELSE___V102*/ meltfptr[101] = 0; /*_.PAIR_TAIL__V125*/ meltfptr[118] = -#line 3530 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; MELT_LOCATION ("warmelt-macro.melt:3530:/ compute"); -#line 3530 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V126*/ meltfptr[119] = /*_.PAIR_TAIL__V125*/ meltfptr[118];; /*_.LET___V96*/ meltfptr[95] = /*_.SETQ___V126*/ meltfptr[119];; MELT_LOCATION ("warmelt-macro.melt:3488:/ clear"); -#line 3488 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURFKW__V97*/ meltfptr[96] = 0; /*^clear */ -#line 3488 /*clear *//*_#IS_NOT_A__L28*/ meltfnum[15] = 0; /*^clear */ -#line 3488 /*clear *//*_.PAIR_TAIL__V98*/ meltfptr[97] = 0; /*^clear */ -#line 3488 /*clear *//*_.SETQ___V99*/ meltfptr[98] = 0; /*^clear */ -#line 3488 /*clear *//*_.LET___V100*/ meltfptr[99] = 0; /*^clear */ -#line 3488 /*clear *//*_.PAIR_TAIL__V125*/ meltfptr[118] = 0; /*^clear */ -#line 3488 /*clear *//*_.SETQ___V126*/ meltfptr[119] = 0; MELT_LOCATION ("warmelt-macro.melt:3486:/ checksignal"); -#line 3486 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 3486 /*clear *//*_#IS_PAIR__L26*/ meltfnum[12] = 0; /*^clear */ -#line 3486 /*clear *//*_#NOT__L27*/ meltfnum[16] = 0; /*^clear */ -#line 3486 /*clear *//*_.LET___V96*/ meltfptr[95] = 0; } ; ; goto labloop_INSLOOP_2; labexit_INSLOOP_2:; /*^loopepilog */ -#line 3486 /*loopepilog */ /*_.FOREVER___V94*/ meltfptr[58] = /*_.INSLOOP__V95*/ meltfptr[94];; } ; MELT_LOCATION ("warmelt-macro.melt:3532:/ quasiblock"); -#line 3532 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3532 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3532 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3532 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[26]); /*_.FASTUP__V128*/ meltfptr[116] = @@ -34154,15 +28276,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3533:/ checksignal"); -#line 3533 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3533 /*^rawallocobj */ -#line 3533 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -34175,7 +28294,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3533 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -34185,7 +28303,6 @@ lab_endgetargs:; ( /*_.LOC__V24*/ meltfptr[23]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3533 /*putslot */ melt_assertmsg ("putslot checkobj @SDEF_NAME", melt_magic_discr ((melt_ptr_t) @@ -34195,7 +28312,6 @@ lab_endgetargs:; ( /*_.SYMB__V27*/ meltfptr[26]), "SDEF_NAME"); ; /*^putslot */ -#line 3533 /*putslot */ melt_assertmsg ("putslot checkobj @SOBJ_PREDEF", melt_magic_discr ((melt_ptr_t) @@ -34205,7 +28321,6 @@ lab_endgetargs:; ( /*_.PREDEF__V19*/ meltfptr[15]), "SOBJ_PREDEF"); ; /*^putslot */ -#line 3533 /*putslot */ melt_assertmsg ("putslot checkobj @SINST_CLASS", melt_magic_discr ((melt_ptr_t) @@ -34215,7 +28330,6 @@ lab_endgetargs:; ( /*_.CLA__V29*/ meltfptr[28]), "SINST_CLASS"); ; /*^putslot */ -#line 3533 /*putslot */ melt_assertmsg ("putslot checkobj @SINST_CLABIND", melt_magic_discr ((melt_ptr_t) @@ -34226,7 +28340,6 @@ lab_endgetargs:; "SINST_CLABIND"); ; /*^putslot */ -#line 3533 /*putslot */ melt_assertmsg ("putslot checkobj @SINST_OBJNUM", melt_magic_discr ((melt_ptr_t) @@ -34236,7 +28349,6 @@ lab_endgetargs:; ( /*_.OBJNUM__V20*/ meltfptr[19]), "SINST_OBJNUM"); ; /*^putslot */ -#line 3533 /*putslot */ melt_assertmsg ("putslot checkobj @SINST_FIELDS", melt_magic_discr ((melt_ptr_t) @@ -34247,7 +28359,6 @@ lab_endgetargs:; "SINST_FIELDS"); ; /*^putslot */ -#line 3533 /*putslot */ melt_assertmsg ("putslot checkobj @SDEFSEL_FORMALS", melt_magic_discr ((melt_ptr_t) @@ -34259,13 +28370,10 @@ lab_endgetargs:; ; /*_.RES__V129*/ meltfptr[117] = /*_.INST__V130*/ meltfptr[120];; MELT_LOCATION ("warmelt-macro.melt:3544:/ checksignal"); -#line 3544 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3544 /*cond */ if ( -#line 3544 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SELBIND__V40*/ meltfptr[39]), @@ -34273,14 +28381,11 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3544 /*^block */ -#line 3544 /*anyblock */ { /*^putslot */ -#line 3544 /*putslot */ melt_assertmsg ("putslot checkobj @SBIND_SELECTORDEF", melt_magic_discr ((melt_ptr_t) @@ -34292,7 +28397,6 @@ lab_endgetargs:; "SBIND_SELECTORDEF"); ; /*^touch */ -#line 3544 meltgc_touch ( /*_.SELBIND__V40*/ meltfptr[39]); ; /*epilog */ @@ -34303,153 +28407,107 @@ lab_endgetargs:; /*_.LET___V127*/ meltfptr[110] = /*_.RES__V129*/ meltfptr[117];; MELT_LOCATION ("warmelt-macro.melt:3532:/ clear"); -#line 3532 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FASTUP__V128*/ meltfptr[116] = 0; /*^clear */ -#line 3532 /*clear *//*_.RES__V129*/ meltfptr[117] = 0; /*_.LET___V52*/ meltfptr[48] = /*_.LET___V127*/ meltfptr[110];; MELT_LOCATION ("warmelt-macro.melt:3450:/ clear"); -#line 3450 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.BND__V53*/ meltfptr[49] = 0; /*^clear */ -#line 3450 /*clear *//*_.FLDLIST__V54*/ meltfptr[53] = 0; /*^clear */ -#line 3450 /*clear *//*_#IS_A__L11*/ meltfnum[9] = 0; /*^clear */ -#line 3450 /*clear *//*_.IFELSE___V55*/ meltfptr[54] = 0; /*^clear */ -#line 3450 /*clear *//*_.IFCPP___V77*/ meltfptr[72] = 0; /*^clear */ -#line 3450 /*clear *//*_#SUBCLASS_OR_EQ__L20*/ meltfnum[13] = 0; /*^clear */ -#line 3450 /*clear *//*_#NOT__L21*/ meltfnum[8] = 0; /*^clear */ -#line 3450 /*clear *//*_.IF___V81*/ meltfptr[57] = 0; /*^clear */ -#line 3450 /*clear *//*_.IFCPP___V90*/ meltfptr[56] = 0; /*^clear */ -#line 3450 /*clear *//*_.PAIR_TAIL__V92*/ meltfptr[64] = 0; /*^clear */ -#line 3450 /*clear *//*_.SETQ___V93*/ meltfptr[55] = 0; /*^clear */ -#line 3450 /*clear *//*_.FOREVER___V94*/ meltfptr[58] = 0; /*^clear */ -#line 3450 /*clear *//*_.LET___V127*/ meltfptr[110] = 0; /*_.LET___V38*/ meltfptr[37] = /*_.LET___V52*/ meltfptr[48];; MELT_LOCATION ("warmelt-macro.melt:3435:/ clear"); -#line 3435 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAM__V39*/ meltfptr[38] = 0; /*^clear */ -#line 3435 /*clear *//*_.SELBIND__V40*/ meltfptr[39] = 0; /*^clear */ -#line 3435 /*clear *//*_#IS_NOT_A__L8*/ meltfnum[4] = 0; /*^clear */ -#line 3435 /*clear *//*_.IF___V42*/ meltfptr[41] = 0; /*^clear */ -#line 3435 /*clear *//*_.WARN_IF_REDEFINED__V45*/ meltfptr[42] = 0; /*^clear */ -#line 3435 /*clear *//*_.PUT_ENV__V46*/ meltfptr[43] = 0; /*^clear */ -#line 3435 /*clear *//*_.SETQ___V47*/ meltfptr[46] = 0; /*^clear */ -#line 3435 /*clear *//*_.IFCPP___V48*/ meltfptr[47] = 0; /*^clear */ -#line 3435 /*clear *//*_.LET___V52*/ meltfptr[48] = 0; /*_.LET___V18*/ meltfptr[14] = /*_.LET___V38*/ meltfptr[37];; MELT_LOCATION ("warmelt-macro.melt:3416:/ clear"); -#line 3416 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PREDEF__V19*/ meltfptr[15] = 0; /*^clear */ -#line 3416 /*clear *//*_.OBJNUM__V20*/ meltfptr[19] = 0; /*^clear */ -#line 3416 /*clear *//*_.FIELDS__V21*/ meltfptr[20] = 0; /*^clear */ -#line 3416 /*clear *//*_.FIELDNAMS__V22*/ meltfptr[21] = 0; /*^clear */ -#line 3416 /*clear *//*_.CONT__V23*/ meltfptr[22] = 0; /*^clear */ -#line 3416 /*clear *//*_.LOC__V24*/ meltfptr[23] = 0; /*^clear */ -#line 3416 /*clear *//*_.LIST_FIRST__V25*/ meltfptr[24] = 0; /*^clear */ -#line 3416 /*clear *//*_.CURPAIR__V26*/ meltfptr[25] = 0; /*^clear */ -#line 3416 /*clear *//*_.SYMB__V27*/ meltfptr[26] = 0; /*^clear */ -#line 3416 /*clear *//*_.CLANAME__V28*/ meltfptr[27] = 0; /*^clear */ -#line 3416 /*clear *//*_.CLA__V29*/ meltfptr[28] = 0; /*^clear */ -#line 3416 /*clear *//*_.DOCV__V30*/ meltfptr[29] = 0; /*^clear */ -#line 3416 /*clear *//*_.CLABIND__V31*/ meltfptr[30] = 0; /*^clear */ -#line 3416 /*clear *//*_.FORMALS__V32*/ meltfptr[31] = 0; /*^clear */ -#line 3416 /*clear *//*_#IS_NOT_A__L7*/ meltfnum[5] = 0; /*^clear */ -#line 3416 /*clear *//*_.IF___V33*/ meltfptr[32] = 0; /*^clear */ -#line 3416 /*clear *//*_.PAIR_TAIL__V36*/ meltfptr[33] = 0; /*^clear */ -#line 3416 /*clear *//*_.SETQ___V37*/ meltfptr[34] = 0; /*^clear */ -#line 3416 /*clear *//*_.LET___V38*/ meltfptr[37] = 0; MELT_LOCATION ("warmelt-macro.melt:3410:/ checksignal"); -#line 3410 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3410 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];; { MELT_LOCATION ("warmelt-macro.melt:3410:/ locexp"); -#line 3410 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -34460,31 +28518,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3410 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3410 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 3410 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 3410 /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; /*^clear */ -#line 3410 /*clear *//*_#NULL__L4*/ meltfnum[0] = 0; /*^clear */ -#line 3410 /*clear *//*_.IF___V12*/ meltfptr[10] = 0; /*^clear */ -#line 3410 /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ -#line 3410 /*clear *//*_.LET___V18*/ meltfptr[14] = 0; } @@ -34503,7 +28553,6 @@ labend_rout: } /*end meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR */ -#line 3557 "warmelt-macro.melt" /**::proc::**/ @@ -34580,12 +28629,10 @@ meltrout_52_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3557:/ getarg"); -#line 3557 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3557 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -34595,7 +28642,6 @@ meltrout_52_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3557 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -34606,7 +28652,6 @@ meltrout_52_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 3557 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -34619,44 +28664,34 @@ meltrout_52_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3557 /*anyblock*/ { -#line 3558 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3558:/ cppif.then"); -#line 3558 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3558 /*anyblock */ { /*^checksignal */ -#line 3558 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3558 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3558:/ cond"); -#line 3558 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3558 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3558:/ cond.else"); -#line 3558 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3558 /*anyblock */ { @@ -34665,7 +28700,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3558 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -34680,58 +28714,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3558:/ clear"); -#line 3558 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3558 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3558 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3559 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3559:/ cppif.then"); -#line 3559 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3559 /*anyblock */ { /*^checksignal */ -#line 3559 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3559 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3559:/ cond"); -#line 3559 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3559 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3559:/ cond.else"); -#line 3559 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3559 /*anyblock */ { @@ -34740,7 +28761,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3559 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -34755,34 +28775,27 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3559:/ clear"); -#line 3559 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3559 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3559 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3560:/ quasiblock"); -#line 3560 "warmelt-macro.melt" /**::quasiblock::**/ /*_.FIELDS__V11*/ meltfptr[10] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDNAMS__V12*/ meltfptr[11] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3562:/ getslot"); -#line 3562 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -34791,7 +28804,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3563:/ getslot"); -#line 3563 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -34800,38 +28812,27 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V15*/ meltfptr[14] = -#line 3564 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V13*/ meltfptr[12])));; /*^compute */ - /*_.CURPAIR__V16*/ meltfptr[15] = -#line 3564 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V15*/ meltfptr[14])));; /*^compute */ - /*_.CLANAME__V17*/ meltfptr[16] = -#line 3565 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; /*^compute */ - /*_.CLA__V18*/ meltfptr[17] = ( /*nil */ NULL);; /*^compute */ - /*_.CLABIND__V19*/ meltfptr[18] = ( /*nil */ NULL);; -#line 3569 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3569:/ cppif.then"); -#line 3569 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3569 /*anyblock */ { { /*^locexp */ -#line 3569 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -34840,11 +28841,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3569 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = -#line 3569 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -34853,18 +28852,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3569:/ cond"); -#line 3569 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3569 /*^block */ -#line 3569 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = -#line 3569 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -34872,29 +28867,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3569:/ checksignal"); -#line 3569 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3569 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3569 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg */ -#line 3569 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3569 argtab[2].meltbp_long = 3569; /*^apply.arg */ -#line 3569 argtab[3].meltbp_cstring = "mexpand_instance start sexpr"; /*^apply.arg */ -#line 3569 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = @@ -34912,72 +28900,57 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3569:/ clear"); -#line 3569 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ -#line 3569 /*clear *//*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0; } ; } else { /*^cond.else */ -#line 3569 /*_.IF___V21*/ meltfptr[20] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3569:/ quasiblock"); -#line 3569 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V23*/ meltfptr[21] = /*_.IF___V21*/ meltfptr[20];; /*^compute */ - /*_.IFCPP___V20*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3569:/ clear"); -#line 3569 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ -#line 3569 /*clear *//*_.IF___V21*/ meltfptr[20] = 0; /*^clear */ -#line 3569 /*clear *//*_.PROGN___V23*/ meltfptr[21] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3569 /*_.IFCPP___V20*/ meltfptr[19] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3570:/ checksignal"); -#line 3570 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L5*/ meltfnum[3] = -#line 3570 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CLANAME__V17*/ meltfptr[16]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:3570:/ cond"); -#line 3570 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3570 /*^block */ -#line 3570 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3571:/ locexp"); -#line 3571 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("missing class symbol for INSTANCE"), @@ -34990,21 +28963,17 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3572:/ quasiblock"); -#line 3572 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3572 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3572 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3572 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CLANAME__V17*/ meltfptr[16]; /*_.BND__V25*/ meltfptr[21] = @@ -35016,35 +28985,27 @@ lab_endgetargs:; } ; /*_.FLDLIST__V26*/ meltfptr[25] = -#line 3573 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[5]))));; MELT_LOCATION ("warmelt-macro.melt:3576:/ checksignal"); -#line 3576 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[0] = -#line 3576 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[6])));; MELT_LOCATION ("warmelt-macro.melt:3576:/ cond"); -#line 3576 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3576 /*^block */ -#line 3576 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3577:/ compute"); -#line 3577 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V19*/ meltfptr[18] = /*_.SETQ___V28*/ meltfptr[27] = /*_.BND__V25*/ meltfptr[21];; MELT_LOCATION ("warmelt-macro.melt:3578:/ getslot"); -#line 3578 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]) /*=obj*/ ; @@ -35053,69 +29014,53 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3578 /*_.CLA__V18*/ meltfptr[17] = /*_.SETQ___V30*/ meltfptr[29] = /*_.CBIND_CLASS__V29*/ meltfptr[28];; MELT_LOCATION ("warmelt-macro.melt:3576:/ quasiblock"); -#line 3576 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V31*/ meltfptr[30] = /*_.SETQ___V30*/ meltfptr[29];; /*^compute */ - /*_.IFELSE___V27*/ meltfptr[26] = /*_.PROGN___V31*/ meltfptr[30];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3576:/ clear"); -#line 3576 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V28*/ meltfptr[27] = 0; /*^clear */ -#line 3576 /*clear *//*_.CBIND_CLASS__V29*/ meltfptr[28] = 0; /*^clear */ -#line 3576 /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0; /*^clear */ -#line 3576 /*clear *//*_.PROGN___V31*/ meltfptr[30] = 0; } ; } else { /*^cond.else */ -#line 3576 /*^block */ -#line 3576 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3580:/ checksignal"); -#line 3580 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 3580 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[6] = -#line 3580 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[7])));; MELT_LOCATION ("warmelt-macro.melt:3580:/ cond"); -#line 3580 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ -#line 3580 /*^block */ -#line 3580 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3581:/ getslot"); -#line 3581 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]) /*=obj*/ ; @@ -35124,51 +29069,41 @@ lab_endgetargs:; }; ; /*_#IS_A__L9*/ meltfnum[8] = -#line 3581 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VBIND_VALUE__V32*/ meltfptr[27]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[8])));; /*^compute */ - /*_#IF___L8*/ meltfnum[7] = /*_#IS_A__L9*/ meltfnum[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3580:/ clear"); -#line 3580 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.VBIND_VALUE__V32*/ meltfptr[27] = 0; /*^clear */ -#line 3580 /*clear *//*_#IS_A__L9*/ meltfnum[8] = 0; } ; } else { /*^cond.else */ -#line 3580 /*_#IF___L8*/ meltfnum[7] = 0;; } ; MELT_LOCATION ("warmelt-macro.melt:3580:/ cond"); -#line 3580 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 3580 /*^block */ -#line 3580 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3582:/ compute"); -#line 3582 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V19*/ meltfptr[18] = /*_.SETQ___V34*/ meltfptr[29] = /*_.BND__V25*/ meltfptr[21];; MELT_LOCATION ("warmelt-macro.melt:3583:/ getslot"); -#line 3583 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]) /*=obj*/ ; @@ -35177,47 +29112,37 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3583 /*_.CLA__V18*/ meltfptr[17] = /*_.SETQ___V36*/ meltfptr[27] = /*_.VBIND_VALUE__V35*/ meltfptr[30];; MELT_LOCATION ("warmelt-macro.melt:3580:/ quasiblock"); -#line 3580 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V37*/ meltfptr[36] = /*_.SETQ___V36*/ meltfptr[27];; /*^compute */ - /*_.IFELSE___V33*/ meltfptr[28] = /*_.PROGN___V37*/ meltfptr[36];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3580:/ clear"); -#line 3580 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V34*/ meltfptr[29] = 0; /*^clear */ -#line 3580 /*clear *//*_.VBIND_VALUE__V35*/ meltfptr[30] = 0; /*^clear */ -#line 3580 /*clear *//*_.SETQ___V36*/ meltfptr[27] = 0; /*^clear */ -#line 3580 /*clear *//*_.PROGN___V37*/ meltfptr[36] = 0; } ; } else { /*^cond.else */ -#line 3580 /*^block */ -#line 3580 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3587:/ getslot"); -#line 3587 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -35229,7 +29154,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3586:/ locexp"); -#line 3586 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("invalid class name for INSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V38*/ @@ -35237,18 +29161,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3588:/ checksignal"); -#line 3588 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3588 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { MELT_LOCATION ("warmelt-macro.melt:3588:/ locexp"); -#line 3588 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -35259,29 +29180,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3588 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3585:/ quasiblock"); -#line 3585 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V40*/ meltfptr[27] = /*_.RETURN___V39*/ meltfptr[30];; /*^compute */ - /*_.IFELSE___V33*/ meltfptr[28] = /*_.PROGN___V40*/ meltfptr[27];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3580:/ clear"); -#line 3580 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V38*/ meltfptr[29] = 0; /*^clear */ -#line 3580 /*clear *//*_.RETURN___V39*/ meltfptr[30] = 0; /*^clear */ -#line 3580 /*clear *//*_.PROGN___V40*/ meltfptr[27] = 0; } ; @@ -35291,32 +29206,25 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3576:/ clear"); -#line 3576 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L7*/ meltfnum[6] = 0; /*^clear */ -#line 3576 /*clear *//*_#IF___L8*/ meltfnum[7] = 0; /*^clear */ -#line 3576 /*clear *//*_.IFELSE___V33*/ meltfptr[28] = 0; } ; } ; -#line 3590 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3590:/ cppif.then"); -#line 3590 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3590 /*anyblock */ { { /*^locexp */ -#line 3590 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -35325,11 +29233,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3590 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = -#line 3590 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -35338,18 +29244,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3590:/ cond"); -#line 3590 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3590 /*^block */ -#line 3590 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[6] = -#line 3590 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -35357,30 +29259,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3590:/ checksignal"); -#line 3590 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3590 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3590 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[6]; /*^apply.arg */ -#line 3590 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3590 argtab[2].meltbp_long = 3590; /*^apply.arg */ -#line 3590 argtab[3].meltbp_cstring = "mexpand_instance cla"; /*^apply.arg */ -#line 3590 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CLA__V18*/ meltfptr[17]; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[30] = @@ -35398,82 +29293,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3590:/ clear"); -#line 3590 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[6] = 0; /*^clear */ -#line 3590 /*clear *//*_.MELT_DEBUG_FUN__V43*/ meltfptr[30] = 0; } ; } else { /*^cond.else */ -#line 3590 /*_.IF___V42*/ meltfptr[29] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3590:/ quasiblock"); -#line 3590 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V44*/ meltfptr[27] = /*_.IF___V42*/ meltfptr[29];; /*^compute */ - /*_.IFCPP___V41*/ meltfptr[36] = /*_.PROGN___V44*/ meltfptr[27];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3590:/ clear"); -#line 3590 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0; /*^clear */ -#line 3590 /*clear *//*_.IF___V42*/ meltfptr[29] = 0; /*^clear */ -#line 3590 /*clear *//*_.PROGN___V44*/ meltfptr[27] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3590 /*_.IFCPP___V41*/ meltfptr[36] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3591 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3591:/ cppif.then"); -#line 3591 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3591 /*anyblock */ { /*^checksignal */ -#line 3591 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L12*/ meltfnum[7] = -#line 3591 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[8])));; MELT_LOCATION ("warmelt-macro.melt:3591:/ cond"); -#line 3591 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L12*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 3591 /*_.IFELSE___V46*/ meltfptr[30] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3591:/ cond.else"); -#line 3591 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3591 /*anyblock */ { @@ -35482,7 +29359,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3591 melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -35497,83 +29373,62 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V45*/ meltfptr[28] = /*_.IFELSE___V46*/ meltfptr[30];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3591:/ clear"); -#line 3591 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L12*/ meltfnum[7] = 0; /*^clear */ -#line 3591 /*clear *//*_.IFELSE___V46*/ meltfptr[30] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3591 /*_.IFCPP___V45*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V47*/ meltfptr[29] = -#line 3592 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; MELT_LOCATION ("warmelt-macro.melt:3592:/ compute"); -#line 3592 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V48*/ meltfptr[27] = /*_.PAIR_TAIL__V47*/ meltfptr[29];; MELT_LOCATION ("warmelt-macro.melt:3593:/ loop"); -#line 3593 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_INSLOOP_3:; /*^loopbody */ -#line 3593 /*^block */ -#line 3593 /*anyblock */ { /*^checksignal */ -#line 3593 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3594:/ checksignal"); -#line 3594 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L13*/ meltfnum[6] = -#line 3594 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L14*/ meltfnum[8] = -#line 3594 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L13*/ meltfnum[6]));; MELT_LOCATION ("warmelt-macro.melt:3594:/ cond"); -#line 3594 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L14*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3594 /*^block */ -#line 3594 /*anyblock */ { /*^quasiblock */ -#line 3594 /*^compute */ -#line 3594 /*_.INSLOOP__V50*/ meltfptr[49] = NULL;; /*^exit */ -#line 3594 /*exit */ { goto labexit_INSLOOP_3; @@ -35585,37 +29440,29 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3595:/ quasiblock"); -#line 3595 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURFKW__V51*/ meltfptr[50] = -#line 3595 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; MELT_LOCATION ("warmelt-macro.melt:3596:/ checksignal"); -#line 3596 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L15*/ meltfnum[7] = -#line 3596 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V51*/ meltfptr[50]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[9])));; MELT_LOCATION ("warmelt-macro.melt:3596:/ cond"); -#line 3596 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L15*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 3596 /*^block */ -#line 3596 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3597:/ locexp"); -#line 3597 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("expecting keyword in INSTANCE"), @@ -35628,54 +29475,41 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V52*/ meltfptr[51] = -#line 3598 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; MELT_LOCATION ("warmelt-macro.melt:3598:/ compute"); -#line 3598 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V53*/ meltfptr[52] = /*_.PAIR_TAIL__V52*/ meltfptr[51];; MELT_LOCATION ("warmelt-macro.melt:3599:/ quasiblock"); -#line 3599 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V54*/ meltfptr[53] = -#line 3599 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; MELT_LOCATION ("warmelt-macro.melt:3600:/ quasiblock"); -#line 3600 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3601:/ checksignal"); -#line 3601 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3601 /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3601 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V14*/ meltfptr[13]; /*^apply.arg */ -#line 3601 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CURFKW__V51*/ meltfptr[50]; /*^apply.arg */ -#line 3601 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.CUREXP__V54*/ meltfptr[53]; /*^apply.arg */ -#line 3601 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3601 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3601 argtab[5].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.FLDA__V55*/ meltfptr[54] = @@ -35689,19 +29523,15 @@ lab_endgetargs:; } ; -#line 3602 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3602:/ cppif.then"); -#line 3602 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3602 /*anyblock */ { { /*^locexp */ -#line 3602 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -35710,11 +29540,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3602 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = -#line 3602 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -35723,18 +29551,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3602:/ cond"); -#line 3602 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ -#line 3602 /*^block */ -#line 3602 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = -#line 3602 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -35742,30 +29566,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3602:/ checksignal"); -#line 3602 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3602 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3602 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16]; /*^apply.arg */ -#line 3602 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3602 argtab[2].meltbp_long = 3602; /*^apply.arg */ -#line 3602 argtab[3].meltbp_cstring = "mexpand_instance flda"; /*^apply.arg */ -#line 3602 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLDA__V55*/ meltfptr[54]; /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = @@ -35784,67 +29601,53 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3602:/ clear"); -#line 3602 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ -#line 3602 /*clear *//*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = 0; } ; } else { /*^cond.else */ -#line 3602 /*_.IF___V57*/ meltfptr[56] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3602:/ quasiblock"); -#line 3602 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V59*/ meltfptr[57] = /*_.IF___V57*/ meltfptr[56];; /*^compute */ - /*_.IFCPP___V56*/ meltfptr[55] = /*_.PROGN___V59*/ meltfptr[57];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3602:/ clear"); -#line 3602 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0; /*^clear */ -#line 3602 /*clear *//*_.IF___V57*/ meltfptr[56] = 0; /*^clear */ -#line 3602 /*clear *//*_.PROGN___V59*/ meltfptr[57] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3602 /*_.IFCPP___V56*/ meltfptr[55] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3603:/ checksignal"); -#line 3603 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3603 /*cond */ if ( /*_.FLDA__V55*/ meltfptr[54]) /*then */ { /*^cond.then */ -#line 3603 /*^block */ -#line 3603 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3604:/ locexp"); -#line 3604 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V26*/ meltfptr[25]), (melt_ptr_t) ( /*_.FLDA__V55*/ @@ -35858,15 +29661,12 @@ lab_endgetargs:; else { MELT_LOCATION ("warmelt-macro.melt:3603:/ cond.else"); -#line 3603 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3603 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3606:/ getslot"); -#line 3606 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -35878,7 +29678,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3605:/ locexp"); -#line 3605 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("bad field name in INSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V60*/ @@ -35888,7 +29687,6 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3603:/ clear"); -#line 3603 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V60*/ meltfptr[56] = 0; } ; @@ -35896,79 +29694,60 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3600:/ clear"); -#line 3600 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDA__V55*/ meltfptr[54] = 0; /*^clear */ -#line 3600 /*clear *//*_.IFCPP___V56*/ meltfptr[55] = 0; MELT_LOCATION ("warmelt-macro.melt:3599:/ clear"); -#line 3599 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V54*/ meltfptr[53] = 0; MELT_LOCATION ("warmelt-macro.melt:3595:/ clear"); -#line 3595 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURFKW__V51*/ meltfptr[50] = 0; /*^clear */ -#line 3595 /*clear *//*_#IS_NOT_A__L15*/ meltfnum[7] = 0; /*^clear */ -#line 3595 /*clear *//*_.PAIR_TAIL__V52*/ meltfptr[51] = 0; /*^clear */ -#line 3595 /*clear *//*_.SETQ___V53*/ meltfptr[52] = 0; /*_.PAIR_TAIL__V61*/ meltfptr[57] = -#line 3608 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; MELT_LOCATION ("warmelt-macro.melt:3608:/ compute"); -#line 3608 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V62*/ meltfptr[56] = /*_.PAIR_TAIL__V61*/ meltfptr[57];; MELT_LOCATION ("warmelt-macro.melt:3593:/ checksignal"); -#line 3593 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 3593 /*clear *//*_#IS_PAIR__L13*/ meltfnum[6] = 0; /*^clear */ -#line 3593 /*clear *//*_#NOT__L14*/ meltfnum[8] = 0; /*^clear */ -#line 3593 /*clear *//*_.PAIR_TAIL__V61*/ meltfptr[57] = 0; /*^clear */ -#line 3593 /*clear *//*_.SETQ___V62*/ meltfptr[56] = 0; } ; ; goto labloop_INSLOOP_3; labexit_INSLOOP_3:; /*^loopepilog */ -#line 3593 /*loopepilog */ /*_.FOREVER___V49*/ meltfptr[30] = /*_.INSLOOP__V50*/ meltfptr[49];; } ; MELT_LOCATION ("warmelt-macro.melt:3610:/ quasiblock"); -#line 3610 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3610 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3610 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3610 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[12]); /*_.FASTUP__V64*/ meltfptr[55] = @@ -35980,15 +29759,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3611:/ checksignal"); -#line 3611 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3611 /*^rawallocobj */ -#line 3611 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -36001,7 +29777,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3611 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -36011,7 +29786,6 @@ lab_endgetargs:; ( /*_.LOC__V14*/ meltfptr[13]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3611 /*putslot */ melt_assertmsg ("putslot checkobj @SMINS_CLASS", melt_magic_discr ((melt_ptr_t) @@ -36021,7 +29795,6 @@ lab_endgetargs:; ( /*_.CLA__V18*/ meltfptr[17]), "SMINS_CLASS"); ; /*^putslot */ -#line 3611 /*putslot */ melt_assertmsg ("putslot checkobj @SMINS_CLABIND", melt_magic_discr ((melt_ptr_t) @@ -36032,7 +29805,6 @@ lab_endgetargs:; "SMINS_CLABIND"); ; /*^putslot */ -#line 3611 /*putslot */ melt_assertmsg ("putslot checkobj @SMINS_FIELDS", melt_magic_discr ((melt_ptr_t) @@ -36043,98 +29815,70 @@ lab_endgetargs:; ; /*_.INST___V65*/ meltfptr[53] = /*_.INST__V66*/ meltfptr[50];; /*^compute */ - /*_.LET___V63*/ meltfptr[54] = /*_.INST___V65*/ meltfptr[53];; MELT_LOCATION ("warmelt-macro.melt:3610:/ clear"); -#line 3610 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FASTUP__V64*/ meltfptr[55] = 0; /*^clear */ -#line 3610 /*clear *//*_.INST___V65*/ meltfptr[53] = 0; /*_.LET___V24*/ meltfptr[20] = /*_.LET___V63*/ meltfptr[54];; MELT_LOCATION ("warmelt-macro.melt:3572:/ clear"); -#line 3572 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.BND__V25*/ meltfptr[21] = 0; /*^clear */ -#line 3572 /*clear *//*_.FLDLIST__V26*/ meltfptr[25] = 0; /*^clear */ -#line 3572 /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ -#line 3572 /*clear *//*_.IFELSE___V27*/ meltfptr[26] = 0; /*^clear */ -#line 3572 /*clear *//*_.IFCPP___V41*/ meltfptr[36] = 0; /*^clear */ -#line 3572 /*clear *//*_.IFCPP___V45*/ meltfptr[28] = 0; /*^clear */ -#line 3572 /*clear *//*_.PAIR_TAIL__V47*/ meltfptr[29] = 0; /*^clear */ -#line 3572 /*clear *//*_.SETQ___V48*/ meltfptr[27] = 0; /*^clear */ -#line 3572 /*clear *//*_.FOREVER___V49*/ meltfptr[30] = 0; /*^clear */ -#line 3572 /*clear *//*_.LET___V63*/ meltfptr[54] = 0; /*_.LET___V10*/ meltfptr[8] = /*_.LET___V24*/ meltfptr[20];; MELT_LOCATION ("warmelt-macro.melt:3560:/ clear"); -#line 3560 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FIELDS__V11*/ meltfptr[10] = 0; /*^clear */ -#line 3560 /*clear *//*_.FIELDNAMS__V12*/ meltfptr[11] = 0; /*^clear */ -#line 3560 /*clear *//*_.CONT__V13*/ meltfptr[12] = 0; /*^clear */ -#line 3560 /*clear *//*_.LOC__V14*/ meltfptr[13] = 0; /*^clear */ -#line 3560 /*clear *//*_.LIST_FIRST__V15*/ meltfptr[14] = 0; /*^clear */ -#line 3560 /*clear *//*_.CURPAIR__V16*/ meltfptr[15] = 0; /*^clear */ -#line 3560 /*clear *//*_.CLANAME__V17*/ meltfptr[16] = 0; /*^clear */ -#line 3560 /*clear *//*_.CLA__V18*/ meltfptr[17] = 0; /*^clear */ -#line 3560 /*clear *//*_.CLABIND__V19*/ meltfptr[18] = 0; /*^clear */ -#line 3560 /*clear *//*_.IFCPP___V20*/ meltfptr[19] = 0; /*^clear */ -#line 3560 /*clear *//*_#IS_NOT_A__L5*/ meltfnum[3] = 0; /*^clear */ -#line 3560 /*clear *//*_.LET___V24*/ meltfptr[20] = 0; MELT_LOCATION ("warmelt-macro.melt:3557:/ checksignal"); -#line 3557 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3557 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION ("warmelt-macro.melt:3557:/ locexp"); -#line 3557 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -36145,19 +29889,15 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3557 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3557 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 3557 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 3557 /*clear *//*_.LET___V10*/ meltfptr[8] = 0; } @@ -36176,7 +29916,6 @@ labend_rout: } /*end meltrout_52_warmelt_macro_MEXPAND_INSTANCE */ -#line 3625 "warmelt-macro.melt" /**::proc::**/ @@ -36252,12 +29991,10 @@ meltrout_53_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3625:/ getarg"); -#line 3625 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3625 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -36267,7 +30004,6 @@ meltrout_53_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3625 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -36278,7 +30014,6 @@ meltrout_53_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 3625 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -36291,24 +30026,19 @@ meltrout_53_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3625 /*anyblock*/ { -#line 3626 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3626:/ cppif.then"); -#line 3626 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3626 /*anyblock */ { { /*^locexp */ -#line 3626 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -36317,11 +30047,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3626 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 3626 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -36330,18 +30058,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3626:/ cond"); -#line 3626 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3626 /*^block */ -#line 3626 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = -#line 3626 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -36349,29 +30073,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3626:/ checksignal"); -#line 3626 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3626 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3626 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ -#line 3626 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3626 argtab[2].meltbp_long = 3626; /*^apply.arg */ -#line 3626 argtab[3].meltbp_cstring = "mexpand_load start sexpr"; /*^apply.arg */ -#line 3626 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = @@ -36388,82 +30105,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3626:/ clear"); -#line 3626 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ -#line 3626 /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; } ; } else { /*^cond.else */ -#line 3626 /*_.IF___V7*/ meltfptr[6] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3626:/ quasiblock"); -#line 3626 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3626:/ clear"); -#line 3626 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3626 /*clear *//*_.IF___V7*/ meltfptr[6] = 0; /*^clear */ -#line 3626 /*clear *//*_.PROGN___V9*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3626 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3627 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3627:/ cppif.then"); -#line 3627 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3627 /*anyblock */ { /*^checksignal */ -#line 3627 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = -#line 3627 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3627:/ cond"); -#line 3627 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3627 /*_.IFELSE___V11*/ meltfptr[7] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3627:/ cond.else"); -#line 3627 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3627 /*anyblock */ { @@ -36472,7 +30171,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3627 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -36487,58 +30185,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3627:/ clear"); -#line 3627 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 3627 /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3627 /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3628 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3628:/ cppif.then"); -#line 3628 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3628 /*anyblock */ { /*^checksignal */ -#line 3628 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[0] = -#line 3628 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:3628:/ cond"); -#line 3628 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3628 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3628:/ cond.else"); -#line 3628 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3628 /*anyblock */ { @@ -36547,7 +30232,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3628 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -36562,57 +30246,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3628:/ clear"); -#line 3628 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ -#line 3628 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3628 /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3629 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3629:/ cppif.then"); -#line 3629 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3629 /*anyblock */ { /*^checksignal */ -#line 3629 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L5*/ meltfnum[1] = -#line 3629 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:3629:/ cond"); -#line 3629 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3629 /*_.IFELSE___V15*/ meltfptr[14] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3629:/ cond.else"); -#line 3629 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3629 /*anyblock */ { @@ -36621,7 +30292,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3629 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -36636,68 +30306,54 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3629:/ clear"); -#line 3629 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ -#line 3629 /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3629 /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3630:/ checksignal"); -#line 3630 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[0] = -#line 3630 "warmelt-macro.melt" /**::expr::**/ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3630:/ cond"); -#line 3630 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3630 /*^block */ -#line 3630 /*anyblock */ { /*^compute */ -#line 3630 /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V17*/ meltfptr[16] = ( /*!MACROEXPAND_1 */ meltfrout->tabval[3]);; /*_.IF___V16*/ meltfptr[14] = /*_.SETQ___V17*/ meltfptr[16];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3630:/ clear"); -#line 3630 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V17*/ meltfptr[16] = 0; } ; } else { /*^cond.else */ -#line 3630 /*_.IF___V16*/ meltfptr[14] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3631:/ quasiblock"); -#line 3631 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 3631 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -36706,7 +30362,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3632:/ getslot"); -#line 3632 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -36715,40 +30370,29 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V21*/ meltfptr[20] = -#line 3633 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));; /*^compute */ - /*_.CURPAIR__V22*/ meltfptr[21] = -#line 3633 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; /*^compute */ - /*_.FILNAM__V23*/ meltfptr[22] = -#line 3634 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3636:/ checksignal"); -#line 3636 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = -#line 3636 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3636:/ cond"); -#line 3636 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_.PAIR_TAIL__V24*/ meltfptr[23]) /*then */ { /*^cond.then */ -#line 3636 /*^block */ -#line 3636 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3637:/ locexp"); -#line 3637 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("LOAD expects one argument"), (melt_ptr_t) 0); @@ -36760,45 +30404,35 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3638:/ checksignal"); -#line 3638 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[1] = -#line 3638 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3638:/ cond"); -#line 3638 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3638 /*^block */ -#line 3638 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3639:/ checksignal"); -#line 3639 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3639 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3639 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3639 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3639 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V26*/ meltfptr[25] = @@ -36810,50 +30444,40 @@ lab_endgetargs:; } ; /*^compute */ -#line 3639 /*_.FILNAM__V23*/ meltfptr[22] = /*_.SETQ___V27*/ meltfptr[26] = /*_.MEXPANDER__V26*/ meltfptr[25];; /*_.IF___V25*/ meltfptr[24] = /*_.SETQ___V27*/ meltfptr[26];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3638:/ clear"); -#line 3638 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V26*/ meltfptr[25] = 0; /*^clear */ -#line 3638 /*clear *//*_.SETQ___V27*/ meltfptr[26] = 0; } ; } else { /*^cond.else */ -#line 3638 /*_.IF___V25*/ meltfptr[24] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3640:/ checksignal"); -#line 3640 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = -#line 3640 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:3640:/ cond"); -#line 3640 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 3640 /*^block */ -#line 3640 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3641:/ getslot"); -#line 3641 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]) /*=obj*/ ; @@ -36862,79 +30486,63 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3641 /*_.FILNAM__V23*/ meltfptr[22] = /*_.SETQ___V30*/ meltfptr[29] = /*_.NAMED_NAME__V29*/ meltfptr[26];; /*_.IF___V28*/ meltfptr[25] = /*_.SETQ___V30*/ meltfptr[29];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3640:/ clear"); -#line 3640 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V29*/ meltfptr[26] = 0; /*^clear */ -#line 3640 /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0; } ; } else { /*^cond.else */ -#line 3640 /*_.IF___V28*/ meltfptr[25] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3643:/ checksignal"); -#line 3643 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[8] = -#line 3643 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22])) == MELTOBMAG_STRING);; MELT_LOCATION ("warmelt-macro.melt:3643:/ cond"); -#line 3643 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_STRING__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3643 /*^block */ -#line 3643 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3644:/ locexp"); -#line 3644 "warmelt-macro.melt" /**::locexp::**/ melt_inform_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("MELT loading file "), (melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22])); } ; MELT_LOCATION ("warmelt-macro.melt:3645:/ quasiblock"); -#line 3645 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREAD__V33*/ meltfptr[32] = -#line 3645 "warmelt-macro.melt" /**::expr::**/ (meltgc_read_file (melt_string_str ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22])), (char *) 0));; -#line 3646 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3646:/ cppif.then"); -#line 3646 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3646 /*anyblock */ { { /*^locexp */ -#line 3646 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -36943,11 +30551,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3646 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = -#line 3646 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -36956,18 +30562,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3646:/ cond"); -#line 3646 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3646 /*^block */ -#line 3646 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = -#line 3646 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -36975,30 +30577,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3646:/ checksignal"); -#line 3646 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3646 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3646 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; /*^apply.arg */ -#line 3646 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3646 argtab[2].meltbp_long = 3646; /*^apply.arg */ -#line 3646 argtab[3].meltbp_cstring = "mexpand_load curead"; /*^apply.arg */ -#line 3646 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CUREAD__V33*/ meltfptr[32]; /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = @@ -37017,72 +30612,57 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3646:/ clear"); -#line 3646 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ -#line 3646 /*clear *//*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0; } ; } else { /*^cond.else */ -#line 3646 /*_.IF___V35*/ meltfptr[34] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3646:/ quasiblock"); -#line 3646 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V37*/ meltfptr[35] = /*_.IF___V35*/ meltfptr[34];; /*^compute */ - /*_.IFCPP___V34*/ meltfptr[33] = /*_.PROGN___V37*/ meltfptr[35];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3646:/ clear"); -#line 3646 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0; /*^clear */ -#line 3646 /*clear *//*_.IF___V35*/ meltfptr[34] = 0; /*^clear */ -#line 3646 /*clear *//*_.PROGN___V37*/ meltfptr[35] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3646 /*_.IFCPP___V34*/ meltfptr[33] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3647:/ quasiblock"); -#line 3647 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3647 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3647 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3647 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3647 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3647 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.EXPLIST__V39*/ meltfptr[35] = @@ -37095,17 +30675,14 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3648:/ checksignal"); -#line 3648 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3648 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3648 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[7]); /*_.EXPTUPLE__V40*/ meltfptr[39] = @@ -37117,19 +30694,15 @@ lab_endgetargs:; } ; -#line 3650 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3650:/ cppif.then"); -#line 3650 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3650 /*anyblock */ { { /*^locexp */ -#line 3650 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -37138,11 +30711,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3650 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = -#line 3650 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -37151,18 +30722,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3650:/ cond"); -#line 3650 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 3650 /*^block */ -#line 3650 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[9] = -#line 3650 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -37170,30 +30737,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3650:/ checksignal"); -#line 3650 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3650 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3650 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[9]; /*^apply.arg */ -#line 3650 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3650 argtab[2].meltbp_long = 3650; /*^apply.arg */ -#line 3650 argtab[3].meltbp_cstring = "mexpand_load return exptuple"; /*^apply.arg */ -#line 3650 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.EXPTUPLE__V40*/ meltfptr[39]; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = @@ -37212,61 +30772,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3650:/ clear"); -#line 3650 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[9] = 0; /*^clear */ -#line 3650 /*clear *//*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0; } ; } else { /*^cond.else */ -#line 3650 /*_.IF___V42*/ meltfptr[41] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3650:/ quasiblock"); -#line 3650 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V44*/ meltfptr[42] = /*_.IF___V42*/ meltfptr[41];; /*^compute */ - /*_.IFCPP___V41*/ meltfptr[40] = /*_.PROGN___V44*/ meltfptr[42];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3650:/ clear"); -#line 3650 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0; /*^clear */ -#line 3650 /*clear *//*_.IF___V42*/ meltfptr[41] = 0; /*^clear */ -#line 3650 /*clear *//*_.PROGN___V44*/ meltfptr[42] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3650 /*_.IFCPP___V41*/ meltfptr[40] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3651:/ checksignal"); -#line 3651 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3651 /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPTUPLE__V40*/ meltfptr[39];; { MELT_LOCATION ("warmelt-macro.melt:3651:/ locexp"); -#line 3651 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -37277,76 +30825,58 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3651 ; /*finalret */ goto labend_rout; /*_.LET___V38*/ meltfptr[34] = /*_.RETURN___V45*/ meltfptr[41];; MELT_LOCATION ("warmelt-macro.melt:3647:/ clear"); -#line 3647 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.EXPLIST__V39*/ meltfptr[35] = 0; /*^clear */ -#line 3647 /*clear *//*_.EXPTUPLE__V40*/ meltfptr[39] = 0; /*^clear */ -#line 3647 /*clear *//*_.IFCPP___V41*/ meltfptr[40] = 0; /*^clear */ -#line 3647 /*clear *//*_.RETURN___V45*/ meltfptr[41] = 0; /*_.LET___V32*/ meltfptr[29] = /*_.LET___V38*/ meltfptr[34];; MELT_LOCATION ("warmelt-macro.melt:3645:/ clear"); -#line 3645 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREAD__V33*/ meltfptr[32] = 0; /*^clear */ -#line 3645 /*clear *//*_.IFCPP___V34*/ meltfptr[33] = 0; /*^clear */ -#line 3645 /*clear *//*_.LET___V38*/ meltfptr[34] = 0; MELT_LOCATION ("warmelt-macro.melt:3643:/ quasiblock"); -#line 3643 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V46*/ meltfptr[42] = /*_.LET___V32*/ meltfptr[29];; /*^compute */ - /*_.IFELSE___V31*/ meltfptr[26] = /*_.PROGN___V46*/ meltfptr[42];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3643:/ clear"); -#line 3643 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V32*/ meltfptr[29] = 0; /*^clear */ -#line 3643 /*clear *//*_.PROGN___V46*/ meltfptr[42] = 0; } ; } else { /*^cond.else */ -#line 3643 /*^block */ -#line 3643 /*anyblock */ { -#line 3656 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3656:/ cppif.then"); -#line 3656 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3656 /*anyblock */ { { /*^locexp */ -#line 3656 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -37355,11 +30885,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3656 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[9] = -#line 3656 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -37368,18 +30896,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3656:/ cond"); -#line 3656 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3656 /*^block */ -#line 3656 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[10] = -#line 3656 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -37387,30 +30911,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3656:/ checksignal"); -#line 3656 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3656 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3656 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[10]; /*^apply.arg */ -#line 3656 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3656 argtab[2].meltbp_long = 3656; /*^apply.arg */ -#line 3656 argtab[3].meltbp_cstring = "mexpand_load strange filnam"; /*^apply.arg */ -#line 3656 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FILNAM__V23*/ meltfptr[22]; /*_.MELT_DEBUG_FUN__V49*/ meltfptr[40] = @@ -37429,52 +30946,42 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3656:/ clear"); -#line 3656 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[10] = 0; /*^clear */ -#line 3656 /*clear *//*_.MELT_DEBUG_FUN__V49*/ meltfptr[40] = 0; } ; } else { /*^cond.else */ -#line 3656 /*_.IF___V48*/ meltfptr[39] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3656:/ quasiblock"); -#line 3656 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V50*/ meltfptr[41] = /*_.IF___V48*/ meltfptr[39];; /*^compute */ - /*_.IFCPP___V47*/ meltfptr[35] = /*_.PROGN___V50*/ meltfptr[41];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3656:/ clear"); -#line 3656 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[9] = 0; /*^clear */ -#line 3656 /*clear *//*_.IF___V48*/ meltfptr[39] = 0; /*^clear */ -#line 3656 /*clear *//*_.PROGN___V50*/ meltfptr[41] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3656 /*_.IFCPP___V47*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-macro.melt:3657:/ locexp"); -#line 3657 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("LOAD expects a string filename"), @@ -37482,13 +30989,11 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3655:/ quasiblock"); -#line 3655 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3643:/ clear"); -#line 3643 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V47*/ meltfptr[35] = 0; } ; @@ -37497,54 +31002,39 @@ lab_endgetargs:; /*_.LET___V18*/ meltfptr[16] = /*_.IFELSE___V31*/ meltfptr[26];; MELT_LOCATION ("warmelt-macro.melt:3631:/ clear"); -#line 3631 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ -#line 3631 /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; /*^clear */ -#line 3631 /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0; /*^clear */ -#line 3631 /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0; /*^clear */ -#line 3631 /*clear *//*_.FILNAM__V23*/ meltfptr[22] = 0; /*^clear */ -#line 3631 /*clear *//*_.PAIR_TAIL__V24*/ meltfptr[23] = 0; /*^clear */ -#line 3631 /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0; /*^clear */ -#line 3631 /*clear *//*_.IF___V25*/ meltfptr[24] = 0; /*^clear */ -#line 3631 /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ -#line 3631 /*clear *//*_.IF___V28*/ meltfptr[25] = 0; /*^clear */ -#line 3631 /*clear *//*_#IS_STRING__L9*/ meltfnum[8] = 0; /*^clear */ -#line 3631 /*clear *//*_.IFELSE___V31*/ meltfptr[26] = 0; MELT_LOCATION ("warmelt-macro.melt:3625:/ checksignal"); -#line 3625 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3625 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { MELT_LOCATION ("warmelt-macro.melt:3625:/ locexp"); -#line 3625 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -37555,31 +31045,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3625 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3625 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 3625 /*clear *//*_.IFCPP___V10*/ meltfptr[6] = 0; /*^clear */ -#line 3625 /*clear *//*_.IFCPP___V12*/ meltfptr[7] = 0; /*^clear */ -#line 3625 /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ -#line 3625 /*clear *//*_#NULL__L6*/ meltfnum[0] = 0; /*^clear */ -#line 3625 /*clear *//*_.IF___V16*/ meltfptr[14] = 0; /*^clear */ -#line 3625 /*clear *//*_.LET___V18*/ meltfptr[16] = 0; } @@ -37598,7 +31080,6 @@ labend_rout: } /*end meltrout_53_warmelt_macro_MEXPAND_LOAD */ -#line 3666 "warmelt-macro.melt" /**::proc::**/ @@ -37677,12 +31158,10 @@ meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3666:/ getarg"); -#line 3666 "warmelt-macro.melt" /**::getarg::**/ /*_.FKEYW__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3666 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.CLA__V3*/ meltfptr[2] = @@ -37692,7 +31171,6 @@ meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3666 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.FLPSEXP__V4*/ meltfptr[3] = @@ -37703,7 +31181,6 @@ meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 3666 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V5*/ meltfptr[4] = @@ -37713,7 +31190,6 @@ meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, /*getarg#4 */ /*^getarg */ -#line 3666 if (meltxargdescr_[3] != MELTBPAR_PTR) goto lab_endgetargs; /*_.PCTX__V6*/ meltfptr[5] = @@ -37724,7 +31200,6 @@ meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, /*getarg#5 */ /*^getarg */ -#line 3666 if (meltxargdescr_[4] != MELTBPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V7*/ meltfptr[6] = @@ -37737,24 +31212,19 @@ meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3666 /*anyblock*/ { -#line 3667 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3667:/ cppif.then"); -#line 3667 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3667 /*anyblock */ { { /*^locexp */ -#line 3667 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -37763,11 +31233,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3667 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 3667 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -37776,18 +31244,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3667:/ cond"); -#line 3667 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3667 /*^block */ -#line 3667 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = -#line 3667 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -37795,29 +31259,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3667:/ checksignal"); -#line 3667 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3667 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3667 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ -#line 3667 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3667 argtab[2].meltbp_long = 3667; /*^apply.arg */ -#line 3667 argtab[3].meltbp_cstring = "parse_field_pattern keyw"; /*^apply.arg */ -#line 3667 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FKEYW__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = @@ -37835,82 +31292,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3667:/ clear"); -#line 3667 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ -#line 3667 /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ -#line 3667 /*_.IF___V9*/ meltfptr[8] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3667:/ quasiblock"); -#line 3667 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3667:/ clear"); -#line 3667 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3667 /*clear *//*_.IF___V9*/ meltfptr[8] = 0; /*^clear */ -#line 3667 /*clear *//*_.PROGN___V11*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3667 /*_.IFCPP___V8*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3668 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3668:/ cppif.then"); -#line 3668 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3668 /*anyblock */ { /*^checksignal */ -#line 3668 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = -#line 3668 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FKEYW__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3668:/ cond"); -#line 3668 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3668 /*_.IFELSE___V13*/ meltfptr[9] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3668:/ cond.else"); -#line 3668 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3668 /*anyblock */ { @@ -37919,7 +31358,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3668 melt_assert_failed (("check fkeyw"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -37934,58 +31372,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[8] = /*_.IFELSE___V13*/ meltfptr[9];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3668:/ clear"); -#line 3668 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 3668 /*clear *//*_.IFELSE___V13*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3668 /*_.IFCPP___V12*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3669 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3669:/ cppif.then"); -#line 3669 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3669 /*anyblock */ { /*^checksignal */ -#line 3669 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[0] = -#line 3669 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:3669:/ cond"); -#line 3669 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3669 /*_.IFELSE___V15*/ meltfptr[14] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3669:/ cond.else"); -#line 3669 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3669 /*anyblock */ { @@ -37994,7 +31419,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3669 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -38009,57 +31433,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V14*/ meltfptr[9] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3669:/ clear"); -#line 3669 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ -#line 3669 /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3669 /*_.IFCPP___V14*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3670 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3670:/ cppif.then"); -#line 3670 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3670 /*anyblock */ { /*^checksignal */ -#line 3670 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[1] = -#line 3670 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:3670:/ cond"); -#line 3670 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3670 /*_.IFELSE___V17*/ meltfptr[16] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3670:/ cond.else"); -#line 3670 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3670 /*anyblock */ { @@ -38068,7 +31479,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3670 melt_assert_failed (("check pctc"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -38083,58 +31493,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3670:/ clear"); -#line 3670 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ -#line 3670 /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3670 /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3671 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3671:/ cppif.then"); -#line 3671 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3671 /*anyblock */ { /*^checksignal */ -#line 3671 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[0] = -#line 3671 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:3671:/ cond"); -#line 3671 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3671 /*_.IFELSE___V19*/ meltfptr[18] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3671:/ cond.else"); -#line 3671 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3671 /*anyblock */ { @@ -38143,7 +31540,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3671 melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -38158,30 +31554,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3671:/ clear"); -#line 3671 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ -#line 3671 /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3671 /*_.IFCPP___V18*/ meltfptr[16] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3672:/ quasiblock"); -#line 3672 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3673:/ getslot"); -#line 3673 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CLA__V3*/ meltfptr[2]) /*=obj*/ ; @@ -38190,15 +31580,12 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3674:/ checksignal"); -#line 3674 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3674 /*^rawallocobj */ -#line 3674 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -38211,7 +31598,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3674 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -38222,23 +31608,18 @@ lab_endgetargs:; ; /*_.FLDCONT__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; MELT_LOCATION ("warmelt-macro.melt:3675:/ checksignal"); -#line 3675 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3675 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3675 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V5*/ meltfptr[4]; /*^apply.arg */ -#line 3675 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.PCTX__V6*/ meltfptr[5]; /*^apply.arg */ -#line 3675 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.PSLOC__V7*/ meltfptr[6]; /*_.FLPAT__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t) @@ -38249,19 +31630,15 @@ lab_endgetargs:; } ; -#line 3677 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3677:/ cppif.then"); -#line 3677 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3677 /*anyblock */ { { /*^locexp */ -#line 3677 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -38270,11 +31647,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3677 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = -#line 3677 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -38283,18 +31658,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3677:/ cond"); -#line 3677 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3677 /*^block */ -#line 3677 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = -#line 3677 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -38302,29 +31673,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3677:/ checksignal"); -#line 3677 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3677 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3677 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0]; /*^apply.arg */ -#line 3677 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3677 argtab[2].meltbp_long = 3677; /*^apply.arg */ -#line 3677 argtab[3].meltbp_cstring = "parse_field_pattern clafields"; /*^apply.arg */ -#line 3677 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CLAFIELDS__V21*/ meltfptr[20]; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = @@ -38342,54 +31706,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3677:/ clear"); -#line 3677 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0; /*^clear */ -#line 3677 /*clear *//*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0; } ; } else { /*^cond.else */ -#line 3677 /*_.IF___V26*/ meltfptr[25] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3677:/ quasiblock"); -#line 3677 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V28*/ meltfptr[26] = /*_.IF___V26*/ meltfptr[25];; /*^compute */ - /*_.IFCPP___V25*/ meltfptr[24] = /*_.PROGN___V28*/ meltfptr[26];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3677:/ clear"); -#line 3677 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ -#line 3677 /*clear *//*_.IF___V26*/ meltfptr[25] = 0; /*^clear */ -#line 3677 /*clear *//*_.PROGN___V28*/ meltfptr[26] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3677 /*_.IFCPP___V25*/ meltfptr[24] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3681:/ quasiblock"); -#line 3681 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3681 /*newclosure *//*_.LAMBDA___V30*/ meltfptr[26] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -38398,7 +31751,6 @@ lab_endgetargs:; tabval[10])), (2)); ; /*^putclosedv */ -#line 3681 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -38412,7 +31764,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FKEYW__V2*/ meltfptr[1]); ; /*^putclosedv */ -#line 3681 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -38427,17 +31778,14 @@ lab_endgetargs:; ; /*_.LAMBDA___V29*/ meltfptr[25] = /*_.LAMBDA___V30*/ meltfptr[26];; MELT_LOCATION ("warmelt-macro.melt:3679:/ checksignal"); -#line 3679 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3679 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3679 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V29*/ meltfptr[25]; /*_.MULTIPLE_ITERATE_TEST__V31*/ meltfptr[30] = @@ -38449,13 +31797,10 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3691:/ quasiblock"); -#line 3691 "warmelt-macro.melt" /**::quasiblock::**/ /*^cond */ -#line 3691 /*cond */ if ( -#line 3691 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDCONT__V22*/ meltfptr[21]), @@ -38464,9 +31809,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3691 /*^getslot */ -#line 3691 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FLDCONT__V22*/ meltfptr[21]) /*=obj*/ ; @@ -38477,45 +31820,35 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3691 /*_.FLD__V33*/ meltfptr[32] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3693:/ checksignal"); -#line 3693 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L9*/ meltfnum[0] = -#line 3693 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.FLD__V33*/ meltfptr[32]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[11])));; MELT_LOCATION ("warmelt-macro.melt:3693:/ cond"); -#line 3693 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3693 /*^block */ -#line 3693 /*anyblock */ { -#line 3695 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3695:/ cppif.then"); -#line 3695 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3695 /*anyblock */ { { /*^locexp */ -#line 3695 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -38524,11 +31857,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3695 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = -#line 3695 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -38537,18 +31868,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3695:/ cond"); -#line 3695 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3695 /*^block */ -#line 3695 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = -#line 3695 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -38556,30 +31883,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3695:/ checksignal"); -#line 3695 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3695 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3695 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; /*^apply.arg */ -#line 3695 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3695 argtab[2].meltbp_long = 3695; /*^apply.arg */ -#line 3695 argtab[3].meltbp_cstring = "parse_field_pattern bad fld"; /*^apply.arg */ -#line 3695 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLD__V33*/ meltfptr[32]; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = @@ -38598,50 +31918,40 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3695:/ clear"); -#line 3695 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ -#line 3695 /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; } ; } else { /*^cond.else */ -#line 3695 /*_.IF___V36*/ meltfptr[35] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3695:/ quasiblock"); -#line 3695 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V38*/ meltfptr[36] = /*_.IF___V36*/ meltfptr[35];; /*^compute */ - /*_.IFCPP___V35*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[36];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3695:/ clear"); -#line 3695 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0; /*^clear */ -#line 3695 /*clear *//*_.IF___V36*/ meltfptr[35] = 0; /*^clear */ -#line 3695 /*clear *//*_.PROGN___V38*/ meltfptr[36] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3695 /*_.IFCPP___V35*/ meltfptr[34] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3697:/ getslot"); -#line 3697 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FKEYW__V2*/ meltfptr[1]) /*=obj*/ ; @@ -38652,7 +31962,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3696:/ locexp"); -#line 3696 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.PSLOC__V7*/ meltfptr[6]), ("invalid :field in pattern"), (melt_ptr_t) ( /*_.NAMED_NAME__V39*/ @@ -38660,14 +31969,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3698:/ quasiblock"); -#line 3698 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:3698:/ locexp"); -#line 3698 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -38678,55 +31985,43 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3698 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3694:/ quasiblock"); -#line 3694 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V41*/ meltfptr[40] = /*_.RETURN___V40*/ meltfptr[36];; /*^compute */ - /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V41*/ meltfptr[40];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3693:/ clear"); -#line 3693 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFCPP___V35*/ meltfptr[34] = 0; /*^clear */ -#line 3693 /*clear *//*_.NAMED_NAME__V39*/ meltfptr[35] = 0; /*^clear */ -#line 3693 /*clear *//*_.RETURN___V40*/ meltfptr[36] = 0; /*^clear */ -#line 3693 /*clear *//*_.PROGN___V41*/ meltfptr[40] = 0; } ; } else { /*^cond.else */ -#line 3693 /*_.IF___V34*/ meltfptr[33] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3699:/ quasiblock"); -#line 3699 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3700:/ checksignal"); -#line 3700 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3700 /*^rawallocobj */ -#line 3700 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -38739,7 +32034,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3700 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -38749,7 +32043,6 @@ lab_endgetargs:; ( /*_.PSLOC__V7*/ meltfptr[6]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3700 /*putslot */ melt_assertmsg ("putslot checkobj @SPAF_FIELD", melt_magic_discr ((melt_ptr_t) @@ -38759,7 +32052,6 @@ lab_endgetargs:; ( /*_.FLD__V33*/ meltfptr[32]), "SPAF_FIELD"); ; /*^putslot */ -#line 3700 /*putslot */ melt_assertmsg ("putslot checkobj @SPAF_PATTERN", melt_magic_discr ((melt_ptr_t) @@ -38770,19 +32062,15 @@ lab_endgetargs:; ; /*_.PATF__V43*/ meltfptr[35] = /*_.INST__V44*/ meltfptr[36];; -#line 3706 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3706:/ cppif.then"); -#line 3706 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3706 /*anyblock */ { { /*^locexp */ -#line 3706 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -38791,11 +32079,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3706 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = -#line 3706 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -38804,18 +32090,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3706:/ cond"); -#line 3706 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 3706 /*^block */ -#line 3706 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[1] = -#line 3706 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -38823,30 +32105,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3706:/ checksignal"); -#line 3706 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3706 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3706 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[1]; /*^apply.arg */ -#line 3706 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3706 argtab[2].meltbp_long = 3706; /*^apply.arg */ -#line 3706 argtab[3].meltbp_cstring = "parse_field_pattern return patf"; /*^apply.arg */ -#line 3706 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.PATF__V43*/ meltfptr[35]; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = @@ -38864,61 +32139,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3706:/ clear"); -#line 3706 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[1] = 0; /*^clear */ -#line 3706 /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0; } ; } else { /*^cond.else */ -#line 3706 /*_.IF___V46*/ meltfptr[45] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3706:/ quasiblock"); -#line 3706 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V48*/ meltfptr[46] = /*_.IF___V46*/ meltfptr[45];; /*^compute */ - /*_.IFCPP___V45*/ meltfptr[40] = /*_.PROGN___V48*/ meltfptr[46];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3706:/ clear"); -#line 3706 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0; /*^clear */ -#line 3706 /*clear *//*_.IF___V46*/ meltfptr[45] = 0; /*^clear */ -#line 3706 /*clear *//*_.PROGN___V48*/ meltfptr[46] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3706 /*_.IFCPP___V45*/ meltfptr[40] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3707:/ checksignal"); -#line 3707 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3707 /*_.RETVAL___V1*/ meltfptr[0] = /*_.PATF__V43*/ meltfptr[35];; { MELT_LOCATION ("warmelt-macro.melt:3707:/ locexp"); -#line 3707 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -38929,70 +32192,52 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3707 ; /*finalret */ goto labend_rout; /*_.LET___V42*/ meltfptr[34] = /*_.RETURN___V49*/ meltfptr[45];; MELT_LOCATION ("warmelt-macro.melt:3699:/ clear"); -#line 3699 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PATF__V43*/ meltfptr[35] = 0; /*^clear */ -#line 3699 /*clear *//*_.IFCPP___V45*/ meltfptr[40] = 0; /*^clear */ -#line 3699 /*clear *//*_.RETURN___V49*/ meltfptr[45] = 0; /*_.LET___V32*/ meltfptr[31] = /*_.LET___V42*/ meltfptr[34];; MELT_LOCATION ("warmelt-macro.melt:3691:/ clear"); -#line 3691 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLD__V33*/ meltfptr[32] = 0; /*^clear */ -#line 3691 /*clear *//*_#IS_NOT_A__L9*/ meltfnum[0] = 0; /*^clear */ -#line 3691 /*clear *//*_.IF___V34*/ meltfptr[33] = 0; /*^clear */ -#line 3691 /*clear *//*_.LET___V42*/ meltfptr[34] = 0; /*_.LET___V20*/ meltfptr[18] = /*_.LET___V32*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:3672:/ clear"); -#line 3672 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CLAFIELDS__V21*/ meltfptr[20] = 0; /*^clear */ -#line 3672 /*clear *//*_.FLDCONT__V22*/ meltfptr[21] = 0; /*^clear */ -#line 3672 /*clear *//*_.FLPAT__V24*/ meltfptr[23] = 0; /*^clear */ -#line 3672 /*clear *//*_.IFCPP___V25*/ meltfptr[24] = 0; /*^clear */ -#line 3672 /*clear *//*_.LAMBDA___V29*/ meltfptr[25] = 0; /*^clear */ -#line 3672 /*clear *//*_.MULTIPLE_ITERATE_TEST__V31*/ meltfptr[30] = 0; /*^clear */ -#line 3672 /*clear *//*_.LET___V32*/ meltfptr[31] = 0; MELT_LOCATION ("warmelt-macro.melt:3666:/ checksignal"); -#line 3666 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3666 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V20*/ meltfptr[18];; { MELT_LOCATION ("warmelt-macro.melt:3666:/ locexp"); -#line 3666 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -39003,28 +32248,21 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3666 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3666 /*clear *//*_.IFCPP___V8*/ meltfptr[7] = 0; /*^clear */ -#line 3666 /*clear *//*_.IFCPP___V12*/ meltfptr[8] = 0; /*^clear */ -#line 3666 /*clear *//*_.IFCPP___V14*/ meltfptr[9] = 0; /*^clear */ -#line 3666 /*clear *//*_.IFCPP___V16*/ meltfptr[14] = 0; /*^clear */ -#line 3666 /*clear *//*_.IFCPP___V18*/ meltfptr[16] = 0; /*^clear */ -#line 3666 /*clear *//*_.LET___V20*/ meltfptr[18] = 0; } @@ -39043,7 +32281,6 @@ labend_rout: } /*end meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN */ -#line 3681 "warmelt-macro.melt" /**::proc::**/ @@ -39119,12 +32356,10 @@ meltrout_55_warmelt_macro_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3681:/ getarg"); -#line 3681 "warmelt-macro.melt" /**::getarg::**/ /*_.CFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3681 if (meltxargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; @@ -39133,44 +32368,34 @@ meltrout_55_warmelt_macro_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3681 /*anyblock*/ { -#line 3682 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3682:/ cppif.then"); -#line 3682 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3682 /*anyblock */ { /*^checksignal */ -#line 3682 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[1] = -#line 3682 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CFLD__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3682:/ cond"); -#line 3682 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3682 /*_.IFELSE___V4*/ meltfptr[3] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3682:/ cond.else"); -#line 3682 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3682 /*anyblock */ { @@ -39179,7 +32404,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3682 melt_assert_failed (("check fld"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -39194,30 +32418,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3682:/ clear"); -#line 3682 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ -#line 3682 /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3682 /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3683:/ checksignal"); -#line 3683 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^getslot */ -#line 3683 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CFLD__V2*/ meltfptr[1]) /*=obj*/ ; @@ -39226,7 +32444,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3684:/ getslot"); -#line 3684 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~FKEYW */ meltfclos->tabval[0])) /*=obj*/ ; @@ -39235,28 +32452,21 @@ lab_endgetargs:; }; ; /*_#S__L3*/ meltfnum[1] = -#line 3683 "warmelt-macro.melt" /**::expr::**/ melt_string_same ((melt_ptr_t) ( /*_.NAMED_NAME__V5*/ meltfptr[3]), (melt_ptr_t) ( /*_.NAMED_NAME__V6*/ meltfptr[5]));; MELT_LOCATION ("warmelt-macro.melt:3683:/ cond"); -#line 3683 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#S__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3683 /*^block */ -#line 3683 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3686:/ checksignal"); -#line 3686 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3686 /*cond */ if ( -#line 3686 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*~FLDCONT */ meltfclos-> @@ -39265,14 +32475,11 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3686 /*^block */ -#line 3686 /*anyblock */ { /*^putslot */ -#line 3686 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -39284,7 +32491,6 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*^touch */ -#line 3686 meltgc_touch (( /*~FLDCONT */ meltfclos->tabval[1])); ; /*epilog */ @@ -39293,16 +32499,13 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3687:/ checksignal"); -#line 3687 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3687 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3687:/ putxtraresult"); -#line 3687 "warmelt-macro.melt" /**::putxtraresult::**/ if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -39311,48 +32514,38 @@ lab_endgetargs:; *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (( /*nil */ NULL)); ; /*^finalreturn */ -#line 3687 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3685:/ quasiblock"); -#line 3685 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V9*/ meltfptr[8] = /*_.RETURN___V8*/ meltfptr[7];; /*^compute */ - /*_.IFELSE___V7*/ meltfptr[6] = /*_.PROGN___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3683:/ clear"); -#line 3683 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V8*/ meltfptr[7] = 0; /*^clear */ -#line 3683 /*clear *//*_.PROGN___V9*/ meltfptr[8] = 0; } ; } else { /*^cond.else */ -#line 3683 /*^block */ -#line 3683 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3689:/ checksignal"); -#line 3689 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3689 /*_.RETVAL___V1*/ meltfptr[0] = /*_.CFLD__V2*/ meltfptr[1];; MELT_LOCATION ("warmelt-macro.melt:3689:/ putxtraresult"); -#line 3689 "warmelt-macro.melt" /**::putxtraresult::**/ if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -39361,32 +32554,27 @@ lab_endgetargs:; *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (( /*nil */ NULL)); ; /*^finalreturn */ -#line 3689 ; /*finalret */ goto labend_rout; /*_.IFELSE___V7*/ meltfptr[6] = /*_.RETURN___V10*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3683:/ clear"); -#line 3683 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V10*/ meltfptr[7] = 0; } ; } ; MELT_LOCATION ("warmelt-macro.melt:3681:/ checksignal"); -#line 3681 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3681 /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V7*/ meltfptr[6];; { MELT_LOCATION ("warmelt-macro.melt:3681:/ locexp"); -#line 3681 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -39397,25 +32585,19 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3681 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3681 /*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0; /*^clear */ -#line 3681 /*clear *//*_.NAMED_NAME__V5*/ meltfptr[3] = 0; /*^clear */ -#line 3681 /*clear *//*_.NAMED_NAME__V6*/ meltfptr[5] = 0; /*^clear */ -#line 3681 /*clear *//*_#S__L3*/ meltfnum[1] = 0; /*^clear */ -#line 3681 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } @@ -39434,7 +32616,6 @@ labend_rout: } /*end meltrout_55_warmelt_macro_LAMBDA___14__ */ -#line 3710 "warmelt-macro.melt" /**::proc::**/ @@ -39513,12 +32694,10 @@ meltrout_56_warmelt_macro_PATEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3710:/ getarg"); -#line 3710 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3710 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -39528,7 +32707,6 @@ meltrout_56_warmelt_macro_PATEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3710 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.PCTX__V4*/ meltfptr[3] = @@ -39541,44 +32719,34 @@ meltrout_56_warmelt_macro_PATEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3710 /*anyblock*/ { -#line 3711 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3711:/ cppif.then"); -#line 3711 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3711 /*anyblock */ { /*^checksignal */ -#line 3711 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3711 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3711:/ cond"); -#line 3711 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3711 /*_.IFELSE___V6*/ meltfptr[5] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3711:/ cond.else"); -#line 3711 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3711 /*anyblock */ { @@ -39587,7 +32755,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3711 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -39602,58 +32769,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3711:/ clear"); -#line 3711 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3711 /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3711 /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3712 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3712:/ cppif.then"); -#line 3712 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3712 /*anyblock */ { /*^checksignal */ -#line 3712 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3712 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3712:/ cond"); -#line 3712 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3712 /*_.IFELSE___V8*/ meltfptr[7] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3712:/ cond.else"); -#line 3712 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3712 /*anyblock */ { @@ -39662,7 +32816,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3712 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -39677,57 +32830,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3712:/ clear"); -#line 3712 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3712 /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3712 /*_.IFCPP___V7*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3713 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3713:/ cppif.then"); -#line 3713 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3713 /*anyblock */ { /*^checksignal */ -#line 3713 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[0] = -#line 3713 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:3713:/ cond"); -#line 3713 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3713 /*_.IFELSE___V10*/ meltfptr[9] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3713:/ cond.else"); -#line 3713 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3713 /*anyblock */ { @@ -39736,7 +32876,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3713 melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -39751,38 +32890,30 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3713:/ clear"); -#line 3713 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ -#line 3713 /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3713 /*_.IFCPP___V9*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3714 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3714:/ cppif.then"); -#line 3714 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3714 /*anyblock */ { { /*^locexp */ -#line 3714 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -39791,11 +32922,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3714 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = -#line 3714 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -39804,18 +32933,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3714:/ cond"); -#line 3714 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3714 /*^block */ -#line 3714 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = -#line 3714 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -39823,29 +32948,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3714:/ checksignal"); -#line 3714 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3714 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3714 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4]; /*^apply.arg */ -#line 3714 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3714 argtab[2].meltbp_long = 3714; /*^apply.arg */ -#line 3714 argtab[3].meltbp_cstring = "patexpand_instance sexpr"; /*^apply.arg */ -#line 3714 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = @@ -39863,54 +32981,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3714:/ clear"); -#line 3714 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ -#line 3714 /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; } ; } else { /*^cond.else */ -#line 3714 /*_.IF___V12*/ meltfptr[11] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3714:/ quasiblock"); -#line 3714 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; /*^compute */ - /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3714:/ clear"); -#line 3714 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ -#line 3714 /*clear *//*_.IF___V12*/ meltfptr[11] = 0; /*^clear */ -#line 3714 /*clear *//*_.PROGN___V14*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3714 /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3715:/ quasiblock"); -#line 3715 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3716:/ getslot"); -#line 3716 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -39919,7 +33026,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3717:/ getslot"); -#line 3717 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -39929,53 +33035,38 @@ lab_endgetargs:; ; /*_.FIELDS__V18*/ meltfptr[17] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDNAMS__V19*/ meltfptr[18] = ( /*nil */ NULL);; /*^compute */ - /*_.LIST_FIRST__V20*/ meltfptr[19] = -#line 3720 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V16*/ meltfptr[12])));; /*^compute */ - /*_.CURPAIR__V21*/ meltfptr[20] = -#line 3720 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V20*/ meltfptr[19])));; /*^compute */ - /*_.CLANAME__V22*/ meltfptr[21] = -#line 3721 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; /*^compute */ - /*_.CLA__V23*/ meltfptr[22] = ( /*nil */ NULL);; /*^compute */ - /*_.CLABIND__V24*/ meltfptr[23] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3725:/ checksignal"); -#line 3725 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[4] = -#line 3725 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CLANAME__V22*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:3725:/ cond"); -#line 3725 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3725 /*^block */ -#line 3725 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3726:/ locexp"); -#line 3726 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("missing class symbol for INSTANCE pattern"), @@ -39988,21 +33079,17 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3727:/ quasiblock"); -#line 3727 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3727 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3727 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3727 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CLANAME__V22*/ meltfptr[21]; /*_.BND__V26*/ meltfptr[25] = @@ -40014,35 +33101,27 @@ lab_endgetargs:; } ; /*_.FLDLIST__V27*/ meltfptr[26] = -#line 3728 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[6]))));; MELT_LOCATION ("warmelt-macro.melt:3731:/ checksignal"); -#line 3731 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[0] = -#line 3731 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[7])));; MELT_LOCATION ("warmelt-macro.melt:3731:/ cond"); -#line 3731 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3731 /*^block */ -#line 3731 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3732:/ compute"); -#line 3732 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] = /*_.BND__V26*/ meltfptr[25];; MELT_LOCATION ("warmelt-macro.melt:3733:/ getslot"); -#line 3733 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -40051,69 +33130,53 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3733 /*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V31*/ meltfptr[30] = /*_.CBIND_CLASS__V30*/ meltfptr[29];; MELT_LOCATION ("warmelt-macro.melt:3731:/ quasiblock"); -#line 3731 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V32*/ meltfptr[31] = /*_.SETQ___V31*/ meltfptr[30];; /*^compute */ - /*_.IFELSE___V28*/ meltfptr[27] = /*_.PROGN___V32*/ meltfptr[31];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3731:/ clear"); -#line 3731 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0; /*^clear */ -#line 3731 /*clear *//*_.CBIND_CLASS__V30*/ meltfptr[29] = 0; /*^clear */ -#line 3731 /*clear *//*_.SETQ___V31*/ meltfptr[30] = 0; /*^clear */ -#line 3731 /*clear *//*_.PROGN___V32*/ meltfptr[31] = 0; } ; } else { /*^cond.else */ -#line 3731 /*^block */ -#line 3731 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3735:/ checksignal"); -#line 3735 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 3735 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = -#line 3735 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[8])));; MELT_LOCATION ("warmelt-macro.melt:3735:/ cond"); -#line 3735 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 3735 /*^block */ -#line 3735 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3736:/ getslot"); -#line 3736 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -40122,51 +33185,41 @@ lab_endgetargs:; }; ; /*_#IS_A__L10*/ meltfnum[9] = -#line 3736 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VBIND_VALUE__V33*/ meltfptr[28]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[9])));; /*^compute */ - /*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3735:/ clear"); -#line 3735 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.VBIND_VALUE__V33*/ meltfptr[28] = 0; /*^clear */ -#line 3735 /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; } ; } else { /*^cond.else */ -#line 3735 /*_#IF___L9*/ meltfnum[8] = 0;; } ; MELT_LOCATION ("warmelt-macro.melt:3735:/ cond"); -#line 3735 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3735 /*^block */ -#line 3735 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3737:/ compute"); -#line 3737 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V35*/ meltfptr[30] = /*_.BND__V26*/ meltfptr[25];; MELT_LOCATION ("warmelt-macro.melt:3738:/ getslot"); -#line 3738 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -40175,47 +33228,37 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3738 /*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V37*/ meltfptr[28] = /*_.VBIND_VALUE__V36*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:3735:/ quasiblock"); -#line 3735 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V38*/ meltfptr[37] = /*_.SETQ___V37*/ meltfptr[28];; /*^compute */ - /*_.IFELSE___V34*/ meltfptr[29] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3735:/ clear"); -#line 3735 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V35*/ meltfptr[30] = 0; /*^clear */ -#line 3735 /*clear *//*_.VBIND_VALUE__V36*/ meltfptr[31] = 0; /*^clear */ -#line 3735 /*clear *//*_.SETQ___V37*/ meltfptr[28] = 0; /*^clear */ -#line 3735 /*clear *//*_.PROGN___V38*/ meltfptr[37] = 0; } ; } else { /*^cond.else */ -#line 3735 /*^block */ -#line 3735 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3742:/ getslot"); -#line 3742 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -40227,7 +33270,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3741:/ locexp"); -#line 3741 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("invalid class name for INSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V39*/ @@ -40235,18 +33277,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3743:/ checksignal"); -#line 3743 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3743 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { MELT_LOCATION ("warmelt-macro.melt:3743:/ locexp"); -#line 3743 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -40257,29 +33296,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3743 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3740:/ quasiblock"); -#line 3740 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V41*/ meltfptr[28] = /*_.RETURN___V40*/ meltfptr[31];; /*^compute */ - /*_.IFELSE___V34*/ meltfptr[29] = /*_.PROGN___V41*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3735:/ clear"); -#line 3735 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V39*/ meltfptr[30] = 0; /*^clear */ -#line 3735 /*clear *//*_.RETURN___V40*/ meltfptr[31] = 0; /*^clear */ -#line 3735 /*clear *//*_.PROGN___V41*/ meltfptr[28] = 0; } ; @@ -40289,52 +33322,40 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3731:/ clear"); -#line 3731 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ -#line 3731 /*clear *//*_#IF___L9*/ meltfnum[8] = 0; /*^clear */ -#line 3731 /*clear *//*_.IFELSE___V34*/ meltfptr[29] = 0; } ; } ; -#line 3745 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3745:/ cppif.then"); -#line 3745 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3745 /*anyblock */ { /*^checksignal */ -#line 3745 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L11*/ meltfnum[9] = -#line 3745 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[9])));; MELT_LOCATION ("warmelt-macro.melt:3745:/ cond"); -#line 3745 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3745 /*_.IFELSE___V43*/ meltfptr[30] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3745:/ cond.else"); -#line 3745 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3745 /*anyblock */ { @@ -40343,7 +33364,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3745 melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -40358,83 +33378,62 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V42*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[30];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3745:/ clear"); -#line 3745 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L11*/ meltfnum[9] = 0; /*^clear */ -#line 3745 /*clear *//*_.IFELSE___V43*/ meltfptr[30] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3745 /*_.IFCPP___V42*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V44*/ meltfptr[31] = -#line 3746 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3746:/ compute"); -#line 3746 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V45*/ meltfptr[28] = /*_.PAIR_TAIL__V44*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:3748:/ loop"); -#line 3748 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_INSLOOP_4:; /*^loopbody */ -#line 3748 /*^block */ -#line 3748 /*anyblock */ { /*^checksignal */ -#line 3748 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3750:/ checksignal"); -#line 3750 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L12*/ meltfnum[7] = -#line 3750 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L13*/ meltfnum[8] = -#line 3750 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L12*/ meltfnum[7]));; MELT_LOCATION ("warmelt-macro.melt:3750:/ cond"); -#line 3750 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3750 /*^block */ -#line 3750 /*anyblock */ { /*^quasiblock */ -#line 3750 /*^compute */ -#line 3750 /*_.INSLOOP__V47*/ meltfptr[30] = NULL;; /*^exit */ -#line 3750 /*exit */ { goto labexit_INSLOOP_4; @@ -40446,37 +33445,29 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3751:/ quasiblock"); -#line 3751 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURFKW__V48*/ meltfptr[47] = -#line 3751 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3752:/ checksignal"); -#line 3752 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L14*/ meltfnum[9] = -#line 3752 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V48*/ meltfptr[47]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[10])));; MELT_LOCATION ("warmelt-macro.melt:3752:/ cond"); -#line 3752 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3752 /*^block */ -#line 3752 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3753:/ locexp"); -#line 3753 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("expecting keyword in INSTANCE"), @@ -40489,49 +33480,37 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V49*/ meltfptr[48] = -#line 3754 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3754:/ compute"); -#line 3754 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V50*/ meltfptr[49] = /*_.PAIR_TAIL__V49*/ meltfptr[48];; MELT_LOCATION ("warmelt-macro.melt:3755:/ quasiblock"); -#line 3755 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V51*/ meltfptr[50] = -#line 3755 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3756:/ quasiblock"); -#line 3756 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3756 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3756 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3756 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CLA__V23*/ meltfptr[22]; /*^apply.arg */ -#line 3756 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CUREXP__V51*/ meltfptr[50]; /*^apply.arg */ -#line 3756 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3756 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.PCTX__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3756 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V17*/ meltfptr[16]; /*_.FLDP__V52*/ meltfptr[51] = @@ -40544,19 +33523,15 @@ lab_endgetargs:; } ; -#line 3757 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3757:/ cppif.then"); -#line 3757 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3757 /*anyblock */ { { /*^locexp */ -#line 3757 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -40565,11 +33540,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3757 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L15*/ meltfnum[14] = -#line 3757 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -40578,18 +33551,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3757:/ cond"); -#line 3757 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ -#line 3757 /*^block */ -#line 3757 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = -#line 3757 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -40597,30 +33566,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3757:/ checksignal"); -#line 3757 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3757 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3757 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15]; /*^apply.arg */ -#line 3757 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3757 argtab[2].meltbp_long = 3757; /*^apply.arg */ -#line 3757 argtab[3].meltbp_cstring = "patexpand_instance fldp"; /*^apply.arg */ -#line 3757 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLDP__V52*/ meltfptr[51]; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = @@ -40639,67 +33601,53 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3757:/ clear"); -#line 3757 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ -#line 3757 /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0; } ; } else { /*^cond.else */ -#line 3757 /*_.IF___V54*/ meltfptr[53] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3757:/ quasiblock"); -#line 3757 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];; /*^compute */ - /*_.IFCPP___V53*/ meltfptr[52] = /*_.PROGN___V56*/ meltfptr[54];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3757:/ clear"); -#line 3757 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0; /*^clear */ -#line 3757 /*clear *//*_.IF___V54*/ meltfptr[53] = 0; /*^clear */ -#line 3757 /*clear *//*_.PROGN___V56*/ meltfptr[54] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3757 /*_.IFCPP___V53*/ meltfptr[52] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3758:/ checksignal"); -#line 3758 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3758 /*cond */ if ( /*_.FLDP__V52*/ meltfptr[51]) /*then */ { /*^cond.then */ -#line 3758 /*^block */ -#line 3758 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3759:/ locexp"); -#line 3759 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V27*/ meltfptr[26]), (melt_ptr_t) ( /*_.FLDP__V52*/ @@ -40713,15 +33661,12 @@ lab_endgetargs:; else { MELT_LOCATION ("warmelt-macro.melt:3758:/ cond.else"); -#line 3758 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3758 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3761:/ getslot"); -#line 3761 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -40733,7 +33678,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3760:/ locexp"); -#line 3760 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("bad field name in INSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V57*/ @@ -40743,7 +33687,6 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3758:/ clear"); -#line 3758 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V57*/ meltfptr[53] = 0; } ; @@ -40751,79 +33694,60 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3756:/ clear"); -#line 3756 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDP__V52*/ meltfptr[51] = 0; /*^clear */ -#line 3756 /*clear *//*_.IFCPP___V53*/ meltfptr[52] = 0; MELT_LOCATION ("warmelt-macro.melt:3755:/ clear"); -#line 3755 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V51*/ meltfptr[50] = 0; MELT_LOCATION ("warmelt-macro.melt:3751:/ clear"); -#line 3751 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURFKW__V48*/ meltfptr[47] = 0; /*^clear */ -#line 3751 /*clear *//*_#IS_NOT_A__L14*/ meltfnum[9] = 0; /*^clear */ -#line 3751 /*clear *//*_.PAIR_TAIL__V49*/ meltfptr[48] = 0; /*^clear */ -#line 3751 /*clear *//*_.SETQ___V50*/ meltfptr[49] = 0; /*_.PAIR_TAIL__V58*/ meltfptr[54] = -#line 3763 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3763:/ compute"); -#line 3763 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V59*/ meltfptr[53] = /*_.PAIR_TAIL__V58*/ meltfptr[54];; MELT_LOCATION ("warmelt-macro.melt:3748:/ checksignal"); -#line 3748 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 3748 /*clear *//*_#IS_PAIR__L12*/ meltfnum[7] = 0; /*^clear */ -#line 3748 /*clear *//*_#NOT__L13*/ meltfnum[8] = 0; /*^clear */ -#line 3748 /*clear *//*_.PAIR_TAIL__V58*/ meltfptr[54] = 0; /*^clear */ -#line 3748 /*clear *//*_.SETQ___V59*/ meltfptr[53] = 0; } ; ; goto labloop_INSLOOP_4; labexit_INSLOOP_4:; /*^loopepilog */ -#line 3748 /*loopepilog */ /*_.FOREVER___V46*/ meltfptr[29] = /*_.INSLOOP__V47*/ meltfptr[30];; } ; MELT_LOCATION ("warmelt-macro.melt:3765:/ quasiblock"); -#line 3765 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3766:/ checksignal"); -#line 3766 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3766 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3766 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[13]); /*_.SPATFIELDS__V61*/ meltfptr[52] = @@ -40835,11 +33759,9 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3768:/ quasiblock"); -#line 3768 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3768 /*newclosure *//*_.LAMBDA___V63*/ meltfptr[47] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -40849,17 +33771,14 @@ lab_endgetargs:; ; /*_.LAMBDA___V62*/ meltfptr[50] = /*_.LAMBDA___V63*/ meltfptr[47];; MELT_LOCATION ("warmelt-macro.melt:3767:/ checksignal"); -#line 3767 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3767 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3767 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V62*/ meltfptr[50]; /*_.SUBPATS__V64*/ meltfptr[48] = @@ -40871,15 +33790,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3770:/ checksignal"); -#line 3770 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3770 /*^rawallocobj */ -#line 3770 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -40890,7 +33806,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3770 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -40900,7 +33815,6 @@ lab_endgetargs:; ( /*_.LOC__V17*/ meltfptr[16]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3770 /*putslot */ melt_assertmsg ("putslot checkobj @PAT_WEIGHT", melt_magic_discr ((melt_ptr_t) @@ -40910,7 +33824,6 @@ lab_endgetargs:; (( /*nil */ NULL)), "PAT_WEIGHT"); ; /*^putslot */ -#line 3770 /*putslot */ melt_assertmsg ("putslot checkobj @SPAT_CLASS", melt_magic_discr ((melt_ptr_t) @@ -40920,7 +33833,6 @@ lab_endgetargs:; ( /*_.CLA__V23*/ meltfptr[22]), "SPAT_CLASS"); ; /*^putslot */ -#line 3770 /*putslot */ melt_assertmsg ("putslot checkobj @SPAT_FIELDS", melt_magic_discr ((melt_ptr_t) @@ -40932,31 +33844,24 @@ lab_endgetargs:; ; /*_.SPATI__V65*/ meltfptr[49] = /*_.INST__V66*/ meltfptr[54];; MELT_LOCATION ("warmelt-macro.melt:3778:/ checksignal"); -#line 3778 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3776:/ quasiblock"); -#line 3776 "warmelt-macro.melt" /**::quasiblock::**/ /*^multiapply */ -#line 3776 /*multiapply 1args, 3x.res */ { union meltparam_un restab[3]; memset (&restab, 0, sizeof (restab)); /*^multiapply.xres */ -#line 3776 restab[0].meltbp_longptr = & /*_#IMAX__L17*/ meltfnum[15]; /*^multiapply.xres */ -#line 3776 restab[1].meltbp_longptr = & /*_#IMIN__L18*/ meltfnum[14]; /*^multiapply.xres */ -#line 3776 restab[2].meltbp_longptr = & /*_#ISUM__L19*/ meltfnum[9]; /*^multiapply.appl */ -#line 3776 /*_.SUBPATW__V67*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t) (( /*!PATTERN_WEIGHT_TUPLE */ meltfrout->tabval[18])), @@ -40967,30 +33872,23 @@ lab_endgetargs:; } ; /*^quasiblock */ -#line 3776 MELT_LOCATION ("warmelt-macro.melt:3779:/ checksignal"); -#line 3779 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#I__L20*/ meltfnum[7] = -#line 3782 "warmelt-macro.melt" /**::expr::**/ ((1) + ( /*_#ISUM__L19*/ meltfnum[9]));; /*^compute */ - /*_.MAKE_INTEGERBOX__V68*/ meltfptr[67] = -#line 3782 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[19])), ( /*_#I__L20*/ meltfnum[7])));; MELT_LOCATION ("warmelt-macro.melt:3779:/ quasiblock"); -#line 3779 "warmelt-macro.melt" /**::quasiblock::**/ /*^putslot */ -#line 3779 /*putslot */ melt_assertmsg ("putslot checkobj @PAT_WEIGHT", melt_magic_discr ((melt_ptr_t) @@ -41001,41 +33899,31 @@ lab_endgetargs:; "PAT_WEIGHT"); ; /*^touch */ -#line 3779 meltgc_touch ( /*_.SPATI__V65*/ meltfptr[49]); ; MELT_LOCATION ("warmelt-macro.melt:3776:/ clear"); -#line 3776 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#I__L20*/ meltfnum[7] = 0; /*^clear */ -#line 3776 /*clear *//*_.MAKE_INTEGERBOX__V68*/ meltfptr[67] = 0; /*^clear */ -#line 3776 /*clear *//*_#IMAX__L17*/ meltfnum[15] = 0; /*^clear */ -#line 3776 /*clear *//*_#IMIN__L18*/ meltfnum[14] = 0; /*^clear */ -#line 3776 /*clear *//*_#ISUM__L19*/ meltfnum[9] = 0; -#line 3784 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3784:/ cppif.then"); -#line 3784 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3784 /*anyblock */ { { /*^locexp */ -#line 3784 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -41044,11 +33932,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3784 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[8] = -#line 3784 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -41057,18 +33943,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3784:/ cond"); -#line 3784 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3784 /*^block */ -#line 3784 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[7] = -#line 3784 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -41076,30 +33958,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3784:/ checksignal"); -#line 3784 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3784 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3784 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[7]; /*^apply.arg */ -#line 3784 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3784 argtab[2].meltbp_long = 3784; /*^apply.arg */ -#line 3784 argtab[3].meltbp_cstring = "patexpand_instance return spati"; /*^apply.arg */ -#line 3784 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SPATI__V65*/ meltfptr[49]; /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = @@ -41117,61 +33992,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3784:/ clear"); -#line 3784 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[7] = 0; /*^clear */ -#line 3784 /*clear *//*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = 0; } ; } else { /*^cond.else */ -#line 3784 /*_.IF___V70*/ meltfptr[53] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3784:/ quasiblock"); -#line 3784 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V72*/ meltfptr[70] = /*_.IF___V70*/ meltfptr[53];; /*^compute */ - /*_.IFCPP___V69*/ meltfptr[67] = /*_.PROGN___V72*/ meltfptr[70];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3784:/ clear"); -#line 3784 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[8] = 0; /*^clear */ -#line 3784 /*clear *//*_.IF___V70*/ meltfptr[53] = 0; /*^clear */ -#line 3784 /*clear *//*_.PROGN___V72*/ meltfptr[70] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3784 /*_.IFCPP___V69*/ meltfptr[67] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3785:/ checksignal"); -#line 3785 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3785 /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPATI__V65*/ meltfptr[49];; { MELT_LOCATION ("warmelt-macro.melt:3785:/ locexp"); -#line 3785 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -41182,106 +34045,76 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3785 ; /*finalret */ goto labend_rout; /*_.LET___V60*/ meltfptr[51] = /*_.RETURN___V73*/ meltfptr[53];; MELT_LOCATION ("warmelt-macro.melt:3765:/ clear"); -#line 3765 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SPATFIELDS__V61*/ meltfptr[52] = 0; /*^clear */ -#line 3765 /*clear *//*_.LAMBDA___V62*/ meltfptr[50] = 0; /*^clear */ -#line 3765 /*clear *//*_.SUBPATS__V64*/ meltfptr[48] = 0; /*^clear */ -#line 3765 /*clear *//*_.SPATI__V65*/ meltfptr[49] = 0; /*^clear */ -#line 3765 /*clear *//*_.IFCPP___V69*/ meltfptr[67] = 0; /*^clear */ -#line 3765 /*clear *//*_.RETURN___V73*/ meltfptr[53] = 0; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V60*/ meltfptr[51];; MELT_LOCATION ("warmelt-macro.melt:3727:/ clear"); -#line 3727 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.BND__V26*/ meltfptr[25] = 0; /*^clear */ -#line 3727 /*clear *//*_.FLDLIST__V27*/ meltfptr[26] = 0; /*^clear */ -#line 3727 /*clear *//*_#IS_A__L7*/ meltfnum[0] = 0; /*^clear */ -#line 3727 /*clear *//*_.IFELSE___V28*/ meltfptr[27] = 0; /*^clear */ -#line 3727 /*clear *//*_.IFCPP___V42*/ meltfptr[37] = 0; /*^clear */ -#line 3727 /*clear *//*_.PAIR_TAIL__V44*/ meltfptr[31] = 0; /*^clear */ -#line 3727 /*clear *//*_.SETQ___V45*/ meltfptr[28] = 0; /*^clear */ -#line 3727 /*clear *//*_.FOREVER___V46*/ meltfptr[29] = 0; /*^clear */ -#line 3727 /*clear *//*_.LET___V60*/ meltfptr[51] = 0; /*_.LET___V15*/ meltfptr[11] = /*_.LET___V25*/ meltfptr[24];; MELT_LOCATION ("warmelt-macro.melt:3715:/ clear"); -#line 3715 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ -#line 3715 /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; /*^clear */ -#line 3715 /*clear *//*_.FIELDS__V18*/ meltfptr[17] = 0; /*^clear */ -#line 3715 /*clear *//*_.FIELDNAMS__V19*/ meltfptr[18] = 0; /*^clear */ -#line 3715 /*clear *//*_.LIST_FIRST__V20*/ meltfptr[19] = 0; /*^clear */ -#line 3715 /*clear *//*_.CURPAIR__V21*/ meltfptr[20] = 0; /*^clear */ -#line 3715 /*clear *//*_.CLANAME__V22*/ meltfptr[21] = 0; /*^clear */ -#line 3715 /*clear *//*_.CLA__V23*/ meltfptr[22] = 0; /*^clear */ -#line 3715 /*clear *//*_.CLABIND__V24*/ meltfptr[23] = 0; /*^clear */ -#line 3715 /*clear *//*_#IS_NOT_A__L6*/ meltfnum[4] = 0; /*^clear */ -#line 3715 /*clear *//*_.LET___V25*/ meltfptr[24] = 0; MELT_LOCATION ("warmelt-macro.melt:3710:/ checksignal"); -#line 3710 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3710 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { MELT_LOCATION ("warmelt-macro.melt:3710:/ locexp"); -#line 3710 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -41292,25 +34125,19 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3710 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3710 /*clear *//*_.IFCPP___V5*/ meltfptr[4] = 0; /*^clear */ -#line 3710 /*clear *//*_.IFCPP___V7*/ meltfptr[5] = 0; /*^clear */ -#line 3710 /*clear *//*_.IFCPP___V9*/ meltfptr[7] = 0; /*^clear */ -#line 3710 /*clear *//*_.IFCPP___V11*/ meltfptr[9] = 0; /*^clear */ -#line 3710 /*clear *//*_.LET___V15*/ meltfptr[11] = 0; } @@ -41329,7 +34156,6 @@ labend_rout: } /*end meltrout_56_warmelt_macro_PATEXPAND_INSTANCE */ -#line 3768 "warmelt-macro.melt" /**::proc::**/ @@ -41405,12 +34231,10 @@ meltrout_57_warmelt_macro_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3768:/ getarg"); -#line 3768 "warmelt-macro.melt" /**::getarg::**/ /*_.CURPATFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3768 if (meltxargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; /*_#CURIX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; @@ -41419,14 +34243,11 @@ meltrout_57_warmelt_macro_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3768 /*anyblock*/ { MELT_LOCATION ("warmelt-macro.melt:3769:/ cond"); -#line 3769 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 3769 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CURPATFLD__V2*/ meltfptr[1]), @@ -41434,9 +34255,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3769 /*^getslot */ -#line 3769 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURPATFLD__V2*/ meltfptr[1]) /*=obj*/ ; @@ -41447,20 +34266,17 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3769 /*_.SPAF_PATTERN__V3*/ meltfptr[2] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3768:/ quasiblock"); -#line 3768 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPAF_PATTERN__V3*/ meltfptr[2];; { MELT_LOCATION ("warmelt-macro.melt:3768:/ locexp"); -#line 3768 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -41471,13 +34287,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3768 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3768 /*clear *//*_.SPAF_PATTERN__V3*/ meltfptr[2] = 0; } @@ -41496,7 +34310,6 @@ labend_rout: } /*end meltrout_57_warmelt_macro_LAMBDA___15__ */ -#line 3805 "warmelt-macro.melt" /**::proc::**/ @@ -41573,12 +34386,10 @@ meltrout_58_warmelt_macro_PATEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3805:/ getarg"); -#line 3805 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3805 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -41588,7 +34399,6 @@ meltrout_58_warmelt_macro_PATEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3805 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.PCTX__V4*/ meltfptr[3] = @@ -41601,44 +34411,34 @@ meltrout_58_warmelt_macro_PATEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3805 /*anyblock*/ { -#line 3806 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3806:/ cppif.then"); -#line 3806 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3806 /*anyblock */ { /*^checksignal */ -#line 3806 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3806 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3806:/ cond"); -#line 3806 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3806 /*_.IFELSE___V6*/ meltfptr[5] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3806:/ cond.else"); -#line 3806 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3806 /*anyblock */ { @@ -41647,7 +34447,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3806 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -41662,58 +34461,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3806:/ clear"); -#line 3806 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3806 /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3806 /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3807 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3807:/ cppif.then"); -#line 3807 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3807 /*anyblock */ { /*^checksignal */ -#line 3807 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3807 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3807:/ cond"); -#line 3807 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3807 /*_.IFELSE___V8*/ meltfptr[7] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3807:/ cond.else"); -#line 3807 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3807 /*anyblock */ { @@ -41722,7 +34508,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3807 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -41737,57 +34522,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3807:/ clear"); -#line 3807 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3807 /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3807 /*_.IFCPP___V7*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3808 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3808:/ cppif.then"); -#line 3808 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3808 /*anyblock */ { /*^checksignal */ -#line 3808 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[0] = -#line 3808 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:3808:/ cond"); -#line 3808 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3808 /*_.IFELSE___V10*/ meltfptr[9] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3808:/ cond.else"); -#line 3808 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3808 /*anyblock */ { @@ -41796,7 +34568,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3808 melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -41811,38 +34582,30 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3808:/ clear"); -#line 3808 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ -#line 3808 /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3808 /*_.IFCPP___V9*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3809 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3809:/ cppif.then"); -#line 3809 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3809 /*anyblock */ { { /*^locexp */ -#line 3809 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -41851,11 +34614,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3809 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = -#line 3809 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -41864,18 +34625,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3809:/ cond"); -#line 3809 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3809 /*^block */ -#line 3809 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = -#line 3809 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -41883,29 +34640,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3809:/ checksignal"); -#line 3809 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3809 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3809 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4]; /*^apply.arg */ -#line 3809 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3809 argtab[2].meltbp_long = 3809; /*^apply.arg */ -#line 3809 argtab[3].meltbp_cstring = "patexpand_object sexpr"; /*^apply.arg */ -#line 3809 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = @@ -41923,54 +34673,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3809:/ clear"); -#line 3809 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ -#line 3809 /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; } ; } else { /*^cond.else */ -#line 3809 /*_.IF___V12*/ meltfptr[11] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3809:/ quasiblock"); -#line 3809 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; /*^compute */ - /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3809:/ clear"); -#line 3809 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ -#line 3809 /*clear *//*_.IF___V12*/ meltfptr[11] = 0; /*^clear */ -#line 3809 /*clear *//*_.PROGN___V14*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3809 /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3810:/ quasiblock"); -#line 3810 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3811:/ getslot"); -#line 3811 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -41979,7 +34718,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3812:/ getslot"); -#line 3812 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -41989,53 +34727,38 @@ lab_endgetargs:; ; /*_.FIELDS__V18*/ meltfptr[17] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDNAMS__V19*/ meltfptr[18] = ( /*nil */ NULL);; /*^compute */ - /*_.LIST_FIRST__V20*/ meltfptr[19] = -#line 3815 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V16*/ meltfptr[12])));; /*^compute */ - /*_.CURPAIR__V21*/ meltfptr[20] = -#line 3815 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V20*/ meltfptr[19])));; /*^compute */ - /*_.CLANAME__V22*/ meltfptr[21] = -#line 3816 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; /*^compute */ - /*_.CLA__V23*/ meltfptr[22] = ( /*nil */ NULL);; /*^compute */ - /*_.CLABIND__V24*/ meltfptr[23] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3820:/ checksignal"); -#line 3820 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[4] = -#line 3820 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CLANAME__V22*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:3820:/ cond"); -#line 3820 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3820 /*^block */ -#line 3820 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3821:/ locexp"); -#line 3821 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("missing class symbol for OBJECT pattern"), @@ -42048,21 +34771,17 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3822:/ quasiblock"); -#line 3822 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3822 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3822 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3822 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CLANAME__V22*/ meltfptr[21]; /*_.BND__V26*/ meltfptr[25] = @@ -42074,35 +34793,27 @@ lab_endgetargs:; } ; /*_.FLDLIST__V27*/ meltfptr[26] = -#line 3823 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[6]))));; MELT_LOCATION ("warmelt-macro.melt:3826:/ checksignal"); -#line 3826 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[0] = -#line 3826 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[7])));; MELT_LOCATION ("warmelt-macro.melt:3826:/ cond"); -#line 3826 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3826 /*^block */ -#line 3826 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3827:/ compute"); -#line 3827 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] = /*_.BND__V26*/ meltfptr[25];; MELT_LOCATION ("warmelt-macro.melt:3828:/ getslot"); -#line 3828 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -42111,69 +34822,53 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3828 /*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V31*/ meltfptr[30] = /*_.CBIND_CLASS__V30*/ meltfptr[29];; MELT_LOCATION ("warmelt-macro.melt:3826:/ quasiblock"); -#line 3826 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V32*/ meltfptr[31] = /*_.SETQ___V31*/ meltfptr[30];; /*^compute */ - /*_.IFELSE___V28*/ meltfptr[27] = /*_.PROGN___V32*/ meltfptr[31];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3826:/ clear"); -#line 3826 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0; /*^clear */ -#line 3826 /*clear *//*_.CBIND_CLASS__V30*/ meltfptr[29] = 0; /*^clear */ -#line 3826 /*clear *//*_.SETQ___V31*/ meltfptr[30] = 0; /*^clear */ -#line 3826 /*clear *//*_.PROGN___V32*/ meltfptr[31] = 0; } ; } else { /*^cond.else */ -#line 3826 /*^block */ -#line 3826 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3830:/ checksignal"); -#line 3830 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 3830 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = -#line 3830 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[8])));; MELT_LOCATION ("warmelt-macro.melt:3830:/ cond"); -#line 3830 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 3830 /*^block */ -#line 3830 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3831:/ getslot"); -#line 3831 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -42182,51 +34877,41 @@ lab_endgetargs:; }; ; /*_#IS_A__L10*/ meltfnum[9] = -#line 3831 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VBIND_VALUE__V33*/ meltfptr[28]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[9])));; /*^compute */ - /*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3830:/ clear"); -#line 3830 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.VBIND_VALUE__V33*/ meltfptr[28] = 0; /*^clear */ -#line 3830 /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; } ; } else { /*^cond.else */ -#line 3830 /*_#IF___L9*/ meltfnum[8] = 0;; } ; MELT_LOCATION ("warmelt-macro.melt:3830:/ cond"); -#line 3830 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3830 /*^block */ -#line 3830 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3832:/ compute"); -#line 3832 "warmelt-macro.melt" /**::compute::**/ /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V35*/ meltfptr[30] = /*_.BND__V26*/ meltfptr[25];; MELT_LOCATION ("warmelt-macro.melt:3833:/ getslot"); -#line 3833 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -42235,47 +34920,37 @@ lab_endgetargs:; }; ; /*^compute */ -#line 3833 /*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V37*/ meltfptr[28] = /*_.VBIND_VALUE__V36*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:3830:/ quasiblock"); -#line 3830 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V38*/ meltfptr[37] = /*_.SETQ___V37*/ meltfptr[28];; /*^compute */ - /*_.IFELSE___V34*/ meltfptr[29] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3830:/ clear"); -#line 3830 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V35*/ meltfptr[30] = 0; /*^clear */ -#line 3830 /*clear *//*_.VBIND_VALUE__V36*/ meltfptr[31] = 0; /*^clear */ -#line 3830 /*clear *//*_.SETQ___V37*/ meltfptr[28] = 0; /*^clear */ -#line 3830 /*clear *//*_.PROGN___V38*/ meltfptr[37] = 0; } ; } else { /*^cond.else */ -#line 3830 /*^block */ -#line 3830 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3837:/ getslot"); -#line 3837 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -42287,7 +34962,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3836:/ locexp"); -#line 3836 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("invalid class name for OBJECT pattern"), (melt_ptr_t) ( /*_.NAMED_NAME__V39*/ @@ -42295,18 +34969,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3838:/ checksignal"); -#line 3838 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3838 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { MELT_LOCATION ("warmelt-macro.melt:3838:/ locexp"); -#line 3838 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -42317,29 +34988,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3838 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3835:/ quasiblock"); -#line 3835 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V41*/ meltfptr[28] = /*_.RETURN___V40*/ meltfptr[31];; /*^compute */ - /*_.IFELSE___V34*/ meltfptr[29] = /*_.PROGN___V41*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3830:/ clear"); -#line 3830 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V39*/ meltfptr[30] = 0; /*^clear */ -#line 3830 /*clear *//*_.RETURN___V40*/ meltfptr[31] = 0; /*^clear */ -#line 3830 /*clear *//*_.PROGN___V41*/ meltfptr[28] = 0; } ; @@ -42349,52 +35014,40 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3826:/ clear"); -#line 3826 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ -#line 3826 /*clear *//*_#IF___L9*/ meltfnum[8] = 0; /*^clear */ -#line 3826 /*clear *//*_.IFELSE___V34*/ meltfptr[29] = 0; } ; } ; -#line 3840 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3840:/ cppif.then"); -#line 3840 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3840 /*anyblock */ { /*^checksignal */ -#line 3840 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L11*/ meltfnum[9] = -#line 3840 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[9])));; MELT_LOCATION ("warmelt-macro.melt:3840:/ cond"); -#line 3840 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3840 /*_.IFELSE___V43*/ meltfptr[30] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3840:/ cond.else"); -#line 3840 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3840 /*anyblock */ { @@ -42403,7 +35056,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3840 melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -42418,83 +35070,62 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V42*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[30];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3840:/ clear"); -#line 3840 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L11*/ meltfnum[9] = 0; /*^clear */ -#line 3840 /*clear *//*_.IFELSE___V43*/ meltfptr[30] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3840 /*_.IFCPP___V42*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V44*/ meltfptr[31] = -#line 3841 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3841:/ compute"); -#line 3841 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V45*/ meltfptr[28] = /*_.PAIR_TAIL__V44*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:3843:/ loop"); -#line 3843 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_INSLOOP_5:; /*^loopbody */ -#line 3843 /*^block */ -#line 3843 /*anyblock */ { /*^checksignal */ -#line 3843 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3845:/ checksignal"); -#line 3845 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L12*/ meltfnum[7] = -#line 3845 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L13*/ meltfnum[8] = -#line 3845 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L12*/ meltfnum[7]));; MELT_LOCATION ("warmelt-macro.melt:3845:/ cond"); -#line 3845 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3845 /*^block */ -#line 3845 /*anyblock */ { /*^quasiblock */ -#line 3845 /*^compute */ -#line 3845 /*_.INSLOOP__V47*/ meltfptr[30] = NULL;; /*^exit */ -#line 3845 /*exit */ { goto labexit_INSLOOP_5; @@ -42506,37 +35137,29 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3846:/ quasiblock"); -#line 3846 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURFKW__V48*/ meltfptr[47] = -#line 3846 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3847:/ checksignal"); -#line 3847 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L14*/ meltfnum[9] = -#line 3847 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V48*/ meltfptr[47]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[10])));; MELT_LOCATION ("warmelt-macro.melt:3847:/ cond"); -#line 3847 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 3847 /*^block */ -#line 3847 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3848:/ locexp"); -#line 3848 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("expecting keyword in OBJECT pattern"), @@ -42549,49 +35172,37 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V49*/ meltfptr[48] = -#line 3849 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3849:/ compute"); -#line 3849 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V50*/ meltfptr[49] = /*_.PAIR_TAIL__V49*/ meltfptr[48];; MELT_LOCATION ("warmelt-macro.melt:3850:/ quasiblock"); -#line 3850 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V51*/ meltfptr[50] = -#line 3850 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3851:/ quasiblock"); -#line 3851 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3851 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3851 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3851 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CLA__V23*/ meltfptr[22]; /*^apply.arg */ -#line 3851 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CUREXP__V51*/ meltfptr[50]; /*^apply.arg */ -#line 3851 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3851 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.PCTX__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3851 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V17*/ meltfptr[16]; /*_.FLDP__V52*/ meltfptr[51] = @@ -42604,19 +35215,15 @@ lab_endgetargs:; } ; -#line 3852 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3852:/ cppif.then"); -#line 3852 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3852 /*anyblock */ { { /*^locexp */ -#line 3852 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -42625,11 +35232,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3852 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L15*/ meltfnum[14] = -#line 3852 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -42638,18 +35243,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3852:/ cond"); -#line 3852 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ -#line 3852 /*^block */ -#line 3852 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = -#line 3852 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -42657,30 +35258,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3852:/ checksignal"); -#line 3852 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3852 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3852 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15]; /*^apply.arg */ -#line 3852 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3852 argtab[2].meltbp_long = 3852; /*^apply.arg */ -#line 3852 argtab[3].meltbp_cstring = "patexpand_object fldp"; /*^apply.arg */ -#line 3852 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.FLDP__V52*/ meltfptr[51]; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = @@ -42699,67 +35293,53 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3852:/ clear"); -#line 3852 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ -#line 3852 /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0; } ; } else { /*^cond.else */ -#line 3852 /*_.IF___V54*/ meltfptr[53] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3852:/ quasiblock"); -#line 3852 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];; /*^compute */ - /*_.IFCPP___V53*/ meltfptr[52] = /*_.PROGN___V56*/ meltfptr[54];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3852:/ clear"); -#line 3852 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0; /*^clear */ -#line 3852 /*clear *//*_.IF___V54*/ meltfptr[53] = 0; /*^clear */ -#line 3852 /*clear *//*_.PROGN___V56*/ meltfptr[54] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3852 /*_.IFCPP___V53*/ meltfptr[52] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3853:/ checksignal"); -#line 3853 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3853 /*cond */ if ( /*_.FLDP__V52*/ meltfptr[51]) /*then */ { /*^cond.then */ -#line 3853 /*^block */ -#line 3853 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3854:/ locexp"); -#line 3854 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V27*/ meltfptr[26]), (melt_ptr_t) ( /*_.FLDP__V52*/ @@ -42773,15 +35353,12 @@ lab_endgetargs:; else { MELT_LOCATION ("warmelt-macro.melt:3853:/ cond.else"); -#line 3853 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3853 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3856:/ getslot"); -#line 3856 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -42793,7 +35370,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3855:/ locexp"); -#line 3855 "warmelt-macro.melt" /**::locexp::**/ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("bad field name in OBJECT pattern"), (melt_ptr_t) ( /*_.NAMED_NAME__V57*/ @@ -42803,7 +35379,6 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3853:/ clear"); -#line 3853 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V57*/ meltfptr[53] = 0; } ; @@ -42811,79 +35386,60 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3851:/ clear"); -#line 3851 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDP__V52*/ meltfptr[51] = 0; /*^clear */ -#line 3851 /*clear *//*_.IFCPP___V53*/ meltfptr[52] = 0; MELT_LOCATION ("warmelt-macro.melt:3850:/ clear"); -#line 3850 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V51*/ meltfptr[50] = 0; MELT_LOCATION ("warmelt-macro.melt:3846:/ clear"); -#line 3846 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURFKW__V48*/ meltfptr[47] = 0; /*^clear */ -#line 3846 /*clear *//*_#IS_NOT_A__L14*/ meltfnum[9] = 0; /*^clear */ -#line 3846 /*clear *//*_.PAIR_TAIL__V49*/ meltfptr[48] = 0; /*^clear */ -#line 3846 /*clear *//*_.SETQ___V50*/ meltfptr[49] = 0; /*_.PAIR_TAIL__V58*/ meltfptr[54] = -#line 3858 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; MELT_LOCATION ("warmelt-macro.melt:3858:/ compute"); -#line 3858 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V59*/ meltfptr[53] = /*_.PAIR_TAIL__V58*/ meltfptr[54];; MELT_LOCATION ("warmelt-macro.melt:3843:/ checksignal"); -#line 3843 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 3843 /*clear *//*_#IS_PAIR__L12*/ meltfnum[7] = 0; /*^clear */ -#line 3843 /*clear *//*_#NOT__L13*/ meltfnum[8] = 0; /*^clear */ -#line 3843 /*clear *//*_.PAIR_TAIL__V58*/ meltfptr[54] = 0; /*^clear */ -#line 3843 /*clear *//*_.SETQ___V59*/ meltfptr[53] = 0; } ; ; goto labloop_INSLOOP_5; labexit_INSLOOP_5:; /*^loopepilog */ -#line 3843 /*loopepilog */ /*_.FOREVER___V46*/ meltfptr[29] = /*_.INSLOOP__V47*/ meltfptr[30];; } ; MELT_LOCATION ("warmelt-macro.melt:3860:/ quasiblock"); -#line 3860 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3861:/ checksignal"); -#line 3861 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3861 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3861 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[13]); /*_.PATFIELDS__V61*/ meltfptr[52] = @@ -42895,11 +35451,9 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3863:/ quasiblock"); -#line 3863 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3863 /*newclosure *//*_.LAMBDA___V63*/ meltfptr[47] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -42909,17 +35463,14 @@ lab_endgetargs:; ; /*_.LAMBDA___V62*/ meltfptr[50] = /*_.LAMBDA___V63*/ meltfptr[47];; MELT_LOCATION ("warmelt-macro.melt:3862:/ checksignal"); -#line 3862 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3862 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3862 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V62*/ meltfptr[50]; /*_.SUBPATS__V64*/ meltfptr[48] = @@ -42931,15 +35482,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3865:/ checksignal"); -#line 3865 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3865 /*^rawallocobj */ -#line 3865 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -42950,7 +35498,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3865 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -42960,7 +35507,6 @@ lab_endgetargs:; ( /*_.LOC__V17*/ meltfptr[16]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3865 /*putslot */ melt_assertmsg ("putslot checkobj @SPAT_CLASS", melt_magic_discr ((melt_ptr_t) @@ -42970,7 +35516,6 @@ lab_endgetargs:; ( /*_.CLA__V23*/ meltfptr[22]), "SPAT_CLASS"); ; /*^putslot */ -#line 3865 /*putslot */ melt_assertmsg ("putslot checkobj @SPAT_FIELDS", melt_magic_discr ((melt_ptr_t) @@ -42982,31 +35527,24 @@ lab_endgetargs:; ; /*_.SPATI__V65*/ meltfptr[49] = /*_.INST__V66*/ meltfptr[54];; MELT_LOCATION ("warmelt-macro.melt:3872:/ checksignal"); -#line 3872 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3870:/ quasiblock"); -#line 3870 "warmelt-macro.melt" /**::quasiblock::**/ /*^multiapply */ -#line 3870 /*multiapply 1args, 3x.res */ { union meltparam_un restab[3]; memset (&restab, 0, sizeof (restab)); /*^multiapply.xres */ -#line 3870 restab[0].meltbp_longptr = & /*_#IMAX__L17*/ meltfnum[15]; /*^multiapply.xres */ -#line 3870 restab[1].meltbp_longptr = & /*_#IMIN__L18*/ meltfnum[14]; /*^multiapply.xres */ -#line 3870 restab[2].meltbp_longptr = & /*_#ISUM__L19*/ meltfnum[9]; /*^multiapply.appl */ -#line 3870 /*_.SUBPATW__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t) (( /*!PATTERN_WEIGHT_TUPLE */ meltfrout->tabval[18])), @@ -43017,30 +35555,23 @@ lab_endgetargs:; } ; /*^quasiblock */ -#line 3870 MELT_LOCATION ("warmelt-macro.melt:3873:/ checksignal"); -#line 3873 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#I__L20*/ meltfnum[7] = -#line 3876 "warmelt-macro.melt" /**::expr::**/ ((1) + ( /*_#ISUM__L19*/ meltfnum[9]));; /*^compute */ - /*_.MAKE_INTEGERBOX__V69*/ meltfptr[68] = -#line 3876 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[19])), ( /*_#I__L20*/ meltfnum[7])));; MELT_LOCATION ("warmelt-macro.melt:3873:/ quasiblock"); -#line 3873 "warmelt-macro.melt" /**::quasiblock::**/ /*^putslot */ -#line 3873 /*putslot */ melt_assertmsg ("putslot checkobj @PAT_WEIGHT", melt_magic_discr ((melt_ptr_t) @@ -43051,24 +35582,19 @@ lab_endgetargs:; "PAT_WEIGHT"); ; /*^touch */ -#line 3873 meltgc_touch ( /*_.SPATI__V65*/ meltfptr[49]); ; -#line 3877 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3877:/ cppif.then"); -#line 3877 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3877 /*anyblock */ { { /*^locexp */ -#line 3877 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -43077,11 +35603,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3877 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[8] = -#line 3877 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -43090,18 +35614,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3877:/ cond"); -#line 3877 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3877 /*^block */ -#line 3877 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = -#line 3877 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -43109,30 +35629,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3877:/ checksignal"); -#line 3877 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3877 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3877 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21]; /*^apply.arg */ -#line 3877 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3877 argtab[2].meltbp_long = 3877; /*^apply.arg */ -#line 3877 argtab[3].meltbp_cstring = "patexpand_object return spati"; /*^apply.arg */ -#line 3877 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SPATI__V65*/ meltfptr[49]; /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = @@ -43150,61 +35663,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3877:/ clear"); -#line 3877 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = 0; /*^clear */ -#line 3877 /*clear *//*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = 0; } ; } else { /*^cond.else */ -#line 3877 /*_.IF___V71*/ meltfptr[70] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3877:/ quasiblock"); -#line 3877 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V73*/ meltfptr[71] = /*_.IF___V71*/ meltfptr[70];; /*^compute */ - /*_.IFCPP___V70*/ meltfptr[69] = /*_.PROGN___V73*/ meltfptr[71];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3877:/ clear"); -#line 3877 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[8] = 0; /*^clear */ -#line 3877 /*clear *//*_.IF___V71*/ meltfptr[70] = 0; /*^clear */ -#line 3877 /*clear *//*_.PROGN___V73*/ meltfptr[71] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3877 /*_.IFCPP___V70*/ meltfptr[69] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3878:/ checksignal"); -#line 3878 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3878 /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPATI__V65*/ meltfptr[49];; { MELT_LOCATION ("warmelt-macro.melt:3878:/ locexp"); -#line 3878 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -43215,131 +35716,94 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3878 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:3870:/ checksignal"); -#line 3870 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.MULTI___V67*/ meltfptr[53] = /*_.RETURN___V74*/ meltfptr[70];; MELT_LOCATION ("warmelt-macro.melt:3870:/ clear"); -#line 3870 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#I__L20*/ meltfnum[7] = 0; /*^clear */ -#line 3870 /*clear *//*_.MAKE_INTEGERBOX__V69*/ meltfptr[68] = 0; /*^clear */ -#line 3870 /*clear *//*_.IFCPP___V70*/ meltfptr[69] = 0; /*^clear */ -#line 3870 /*clear *//*_.RETURN___V74*/ meltfptr[70] = 0; /*^clear */ -#line 3870 /*clear *//*_#IMAX__L17*/ meltfnum[15] = 0; /*^clear */ -#line 3870 /*clear *//*_#IMIN__L18*/ meltfnum[14] = 0; /*^clear */ -#line 3870 /*clear *//*_#ISUM__L19*/ meltfnum[9] = 0; /*_.LET___V60*/ meltfptr[51] = /*_.MULTI___V67*/ meltfptr[53];; MELT_LOCATION ("warmelt-macro.melt:3860:/ clear"); -#line 3860 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.PATFIELDS__V61*/ meltfptr[52] = 0; /*^clear */ -#line 3860 /*clear *//*_.LAMBDA___V62*/ meltfptr[50] = 0; /*^clear */ -#line 3860 /*clear *//*_.SUBPATS__V64*/ meltfptr[48] = 0; /*^clear */ -#line 3860 /*clear *//*_.SPATI__V65*/ meltfptr[49] = 0; /*^clear */ -#line 3860 /*clear *//*_.MULTI___V67*/ meltfptr[53] = 0; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V60*/ meltfptr[51];; MELT_LOCATION ("warmelt-macro.melt:3822:/ clear"); -#line 3822 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.BND__V26*/ meltfptr[25] = 0; /*^clear */ -#line 3822 /*clear *//*_.FLDLIST__V27*/ meltfptr[26] = 0; /*^clear */ -#line 3822 /*clear *//*_#IS_A__L7*/ meltfnum[0] = 0; /*^clear */ -#line 3822 /*clear *//*_.IFELSE___V28*/ meltfptr[27] = 0; /*^clear */ -#line 3822 /*clear *//*_.IFCPP___V42*/ meltfptr[37] = 0; /*^clear */ -#line 3822 /*clear *//*_.PAIR_TAIL__V44*/ meltfptr[31] = 0; /*^clear */ -#line 3822 /*clear *//*_.SETQ___V45*/ meltfptr[28] = 0; /*^clear */ -#line 3822 /*clear *//*_.FOREVER___V46*/ meltfptr[29] = 0; /*^clear */ -#line 3822 /*clear *//*_.LET___V60*/ meltfptr[51] = 0; /*_.LET___V15*/ meltfptr[11] = /*_.LET___V25*/ meltfptr[24];; MELT_LOCATION ("warmelt-macro.melt:3810:/ clear"); -#line 3810 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ -#line 3810 /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; /*^clear */ -#line 3810 /*clear *//*_.FIELDS__V18*/ meltfptr[17] = 0; /*^clear */ -#line 3810 /*clear *//*_.FIELDNAMS__V19*/ meltfptr[18] = 0; /*^clear */ -#line 3810 /*clear *//*_.LIST_FIRST__V20*/ meltfptr[19] = 0; /*^clear */ -#line 3810 /*clear *//*_.CURPAIR__V21*/ meltfptr[20] = 0; /*^clear */ -#line 3810 /*clear *//*_.CLANAME__V22*/ meltfptr[21] = 0; /*^clear */ -#line 3810 /*clear *//*_.CLA__V23*/ meltfptr[22] = 0; /*^clear */ -#line 3810 /*clear *//*_.CLABIND__V24*/ meltfptr[23] = 0; /*^clear */ -#line 3810 /*clear *//*_#IS_NOT_A__L6*/ meltfnum[4] = 0; /*^clear */ -#line 3810 /*clear *//*_.LET___V25*/ meltfptr[24] = 0; MELT_LOCATION ("warmelt-macro.melt:3805:/ checksignal"); -#line 3805 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3805 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { MELT_LOCATION ("warmelt-macro.melt:3805:/ locexp"); -#line 3805 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -43350,25 +35814,19 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3805 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3805 /*clear *//*_.IFCPP___V5*/ meltfptr[4] = 0; /*^clear */ -#line 3805 /*clear *//*_.IFCPP___V7*/ meltfptr[5] = 0; /*^clear */ -#line 3805 /*clear *//*_.IFCPP___V9*/ meltfptr[7] = 0; /*^clear */ -#line 3805 /*clear *//*_.IFCPP___V11*/ meltfptr[9] = 0; /*^clear */ -#line 3805 /*clear *//*_.LET___V15*/ meltfptr[11] = 0; } @@ -43387,7 +35845,6 @@ labend_rout: } /*end meltrout_58_warmelt_macro_PATEXPAND_OBJECT */ -#line 3863 "warmelt-macro.melt" /**::proc::**/ @@ -43463,12 +35920,10 @@ meltrout_59_warmelt_macro_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3863:/ getarg"); -#line 3863 "warmelt-macro.melt" /**::getarg::**/ /*_.CURPATFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3863 if (meltxargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; @@ -43477,14 +35932,11 @@ meltrout_59_warmelt_macro_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3863 /*anyblock*/ { MELT_LOCATION ("warmelt-macro.melt:3864:/ cond"); -#line 3864 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 3864 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CURPATFLD__V2*/ meltfptr[1]), @@ -43492,9 +35944,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3864 /*^getslot */ -#line 3864 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURPATFLD__V2*/ meltfptr[1]) /*=obj*/ ; @@ -43505,20 +35955,17 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3864 /*_.SPAF_PATTERN__V3*/ meltfptr[2] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3863:/ quasiblock"); -#line 3863 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPAF_PATTERN__V3*/ meltfptr[2];; { MELT_LOCATION ("warmelt-macro.melt:3863:/ locexp"); -#line 3863 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -43529,13 +35976,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3863 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3863 /*clear *//*_.SPAF_PATTERN__V3*/ meltfptr[2] = 0; } @@ -43554,7 +35999,6 @@ labend_rout: } /*end meltrout_59_warmelt_macro_LAMBDA___16__ */ -#line 3882 "warmelt-macro.melt" /**::proc::**/ @@ -43631,12 +36075,10 @@ meltrout_60_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3882:/ getarg"); -#line 3882 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3882 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -43646,7 +36088,6 @@ meltrout_60_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3882 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -43657,7 +36098,6 @@ meltrout_60_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 3882 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -43670,44 +36110,34 @@ meltrout_60_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3882 /*anyblock*/ { -#line 3883 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3883:/ cppif.then"); -#line 3883 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3883 /*anyblock */ { /*^checksignal */ -#line 3883 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3883 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3883:/ cond"); -#line 3883 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3883 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3883:/ cond.else"); -#line 3883 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3883 /*anyblock */ { @@ -43716,7 +36146,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3883 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -43731,58 +36160,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3883:/ clear"); -#line 3883 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3883 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3883 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3884 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3884:/ cppif.then"); -#line 3884 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3884 /*anyblock */ { /*^checksignal */ -#line 3884 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3884 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3884:/ cond"); -#line 3884 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3884 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3884:/ cond.else"); -#line 3884 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3884 /*anyblock */ { @@ -43791,7 +36207,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3884 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -43806,38 +36221,30 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3884:/ clear"); -#line 3884 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3884 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3884 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3885 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3885:/ cppif.then"); -#line 3885 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3885 /*anyblock */ { { /*^locexp */ -#line 3885 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -43846,11 +36253,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3885 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = -#line 3885 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -43859,18 +36264,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3885:/ cond"); -#line 3885 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3885 /*^block */ -#line 3885 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = -#line 3885 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -43878,29 +36279,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3885:/ checksignal"); -#line 3885 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3885 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3885 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg */ -#line 3885 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3885 argtab[2].meltbp_long = 3885; /*^apply.arg */ -#line 3885 argtab[3].meltbp_cstring = "mexpand_object sexpr"; /*^apply.arg */ -#line 3885 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = @@ -43918,54 +36312,43 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3885:/ clear"); -#line 3885 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ -#line 3885 /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; } ; } else { /*^cond.else */ -#line 3885 /*_.IF___V11*/ meltfptr[10] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3885:/ quasiblock"); -#line 3885 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3885:/ clear"); -#line 3885 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ -#line 3885 /*clear *//*_.IF___V11*/ meltfptr[10] = 0; /*^clear */ -#line 3885 /*clear *//*_.PROGN___V13*/ meltfptr[11] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3885 /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3886:/ quasiblock"); -#line 3886 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:3887:/ getslot"); -#line 3887 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -43976,7 +36359,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3889:/ locexp"); -#line 3889 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V15*/ meltfptr[11]), ("OBJECT cannot be macro-expanded in expression context - use INSTANCE instead"), @@ -43984,14 +36366,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3890:/ quasiblock"); -#line 3890 "warmelt-macro.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-macro.melt:3890:/ locexp"); -#line 3890 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -44002,30 +36382,24 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3890 ; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[10] = /*_.RETURN___V16*/ meltfptr[15];; MELT_LOCATION ("warmelt-macro.melt:3886:/ clear"); -#line 3886 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LOC__V15*/ meltfptr[11] = 0; /*^clear */ -#line 3886 /*clear *//*_.RETURN___V16*/ meltfptr[15] = 0; MELT_LOCATION ("warmelt-macro.melt:3882:/ checksignal"); -#line 3882 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3882 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];; { MELT_LOCATION ("warmelt-macro.melt:3882:/ locexp"); -#line 3882 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -44036,22 +36410,17 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3882 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3882 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 3882 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 3882 /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; /*^clear */ -#line 3882 /*clear *//*_.LET___V14*/ meltfptr[10] = 0; } @@ -44070,7 +36439,6 @@ labend_rout: } /*end meltrout_60_warmelt_macro_MEXPAND_OBJECT */ -#line 3905 "warmelt-macro.melt" /**::proc::**/ @@ -44149,12 +36517,10 @@ meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3905:/ getarg"); -#line 3905 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3905 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -44164,7 +36530,6 @@ meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3905 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -44175,7 +36540,6 @@ meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 3905 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -44188,44 +36552,34 @@ meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3905 /*anyblock*/ { -#line 3906 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3906:/ cppif.then"); -#line 3906 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3906 /*anyblock */ { /*^checksignal */ -#line 3906 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3906 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3906:/ cond"); -#line 3906 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3906 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3906:/ cond.else"); -#line 3906 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3906 /*anyblock */ { @@ -44234,7 +36588,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3906 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -44249,58 +36602,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3906:/ clear"); -#line 3906 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3906 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3906 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3907 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3907:/ cppif.then"); -#line 3907 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3907 /*anyblock */ { /*^checksignal */ -#line 3907 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3907 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3907:/ cond"); -#line 3907 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3907 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3907:/ cond.else"); -#line 3907 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3907 /*anyblock */ { @@ -44309,7 +36649,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3907 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -44324,30 +36663,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3907:/ clear"); -#line 3907 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3907 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3907 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3908:/ quasiblock"); -#line 3908 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 3908 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -44356,7 +36689,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3909:/ getslot"); -#line 3909 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -44365,76 +36697,56 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V13*/ meltfptr[12] = -#line 3910 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V11*/ meltfptr[10])));; /*^compute */ - /*_.CURPAIR__V14*/ meltfptr[13] = -#line 3910 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V13*/ meltfptr[12])));; /*^compute */ - /*_.CURCHK__V15*/ meltfptr[14] = ( /*nil */ NULL);; /*^compute */ - /*_.GSYM__V16*/ meltfptr[15] = ( /*nil */ NULL);; /*^compute */ - /*_.CHKLIST__V17*/ meltfptr[16] = -#line 3913 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; /*^compute */ - /*_.CUREL__V18*/ meltfptr[17] = ( /*nil */ NULL);; /*^compute */ - /*_.PAIR_HEAD__V19*/ meltfptr[18] = -#line 3916 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:3916:/ compute"); -#line 3916 "warmelt-macro.melt" /**::compute::**/ /*_.CUREL__V18*/ meltfptr[17] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_HEAD__V19*/ meltfptr[18];; MELT_LOCATION ("warmelt-macro.melt:3917:/ checksignal"); -#line 3917 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[0] = -#line 3917 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CUREL__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:3917:/ cond"); -#line 3917 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3917 /*^block */ -#line 3917 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3918:/ compute"); -#line 3918 "warmelt-macro.melt" /**::compute::**/ /*_.GSYM__V16*/ meltfptr[15] = /*_.SETQ___V22*/ meltfptr[21] = /*_.CUREL__V18*/ meltfptr[17];; /*_.IFELSE___V21*/ meltfptr[20] = /*_.SETQ___V22*/ meltfptr[21];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3917:/ clear"); -#line 3917 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V22*/ meltfptr[21] = 0; } ; } else { /*^cond.else */ -#line 3917 /*^block */ -#line 3917 /*anyblock */ { @@ -44443,7 +36755,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3919:/ locexp"); -#line 3919 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V12*/ meltfptr[11]), ("missing symbol in (CODE_CHUNK <state-symbol> <chunk>)"), @@ -44457,43 +36768,32 @@ lab_endgetargs:; } ; /*^compute */ - /*_.PAIR_TAIL__V23*/ meltfptr[21] = -#line 3920 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:3920:/ compute"); -#line 3920 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[21];; /*_.PAIR_HEAD__V25*/ meltfptr[24] = -#line 3921 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:3921:/ compute"); -#line 3921 "warmelt-macro.melt" /**::compute::**/ /*_.CURCHK__V15*/ meltfptr[14] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIR_HEAD__V25*/ meltfptr[24];; MELT_LOCATION ("warmelt-macro.melt:3922:/ checksignal"); -#line 3922 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V27*/ meltfptr[26] = -#line 3922 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:3922:/ cond"); -#line 3922 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_.PAIR_TAIL__V27*/ meltfptr[26]) /*then */ { /*^cond.then */ -#line 3922 /*^block */ -#line 3922 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3923:/ locexp"); -#line 3923 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V12*/ meltfptr[11]), ("CODE_CHUNK expects one single chunk sexpr"), @@ -44506,29 +36806,23 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3924:/ checksignal"); -#line 3924 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L4*/ meltfnum[3] = -#line 3924 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURCHK__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3924:/ cond"); -#line 3924 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3924 /*^block */ -#line 3924 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3925:/ locexp"); -#line 3925 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V12*/ meltfptr[11]), ("CODE_CHUNK expects a chunk sexpr"), @@ -44541,13 +36835,10 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3926:/ quasiblock"); -#line 3926 "warmelt-macro.melt" /**::quasiblock::**/ /*^cond */ -#line 3926 /*cond */ if ( -#line 3926 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CURCHK__V15*/ meltfptr[14]), @@ -44556,9 +36847,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3926 /*^getslot */ -#line 3926 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURCHK__V15*/ meltfptr[14]) /*=obj*/ ; @@ -44569,15 +36858,12 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3926 /*_.LOC__V29*/ meltfptr[28] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3927:/ cond"); -#line 3927 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( -#line 3927 "warmelt-macro.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CURCHK__V15*/ meltfptr[14]), @@ -44586,9 +36872,7 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3927 /*^getslot */ -#line 3927 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURCHK__V15*/ meltfptr[14]) /*=obj*/ ; @@ -44599,7 +36883,6 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3927 /*_.CHKCONT__V30*/ meltfptr[29] = NULL;; } @@ -44619,27 +36902,21 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-macro.melt:3932:/ checksignal"); -#line 3932 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L5*/ meltfnum[4] = -#line 3932 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURCOMP__V32*/ meltfptr[31])) == MELTOBMAG_STRING);; MELT_LOCATION ("warmelt-macro.melt:3932:/ cond"); -#line 3932 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_STRING__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3932 /*^block */ -#line 3932 /*anyblock */ { /*_.MAKE_STRING__V33*/ meltfptr[32] = -#line 3933 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_VERBATIM_STRING */ meltfrout->tabval[5])), @@ -44648,7 +36925,6 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:3933:/ locexp"); -#line 3933 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.CHKLIST__V17*/ meltfptr[16]), (melt_ptr_t) ( /*_.MAKE_STRING__V33*/ @@ -44658,46 +36934,37 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3932:/ clear"); -#line 3932 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MAKE_STRING__V33*/ meltfptr[32] = 0; } ; } else { /*^cond.else */ -#line 3932 /*^block */ -#line 3932 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3935:/ checksignal"); -#line 3935 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[5] = -#line 3935 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CURCOMP__V32*/ meltfptr[31]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:3935:/ cond"); -#line 3935 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ -#line 3935 /*^block */ -#line 3935 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3936:/ locexp"); -#line 3936 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.CHKLIST__V17*/ meltfptr[16]), @@ -44712,17 +36979,14 @@ lab_endgetargs:; else { MELT_LOCATION ("warmelt-macro.melt:3935:/ cond.else"); -#line 3935 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3935 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3938:/ locexp"); -#line 3938 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V29*/ meltfptr[28]), @@ -44731,7 +36995,6 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3937:/ quasiblock"); -#line 3937 "warmelt-macro.melt" /**::quasiblock::**/ /*epilog */ @@ -44742,7 +37005,6 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3932:/ clear"); -#line 3932 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; } ; @@ -44756,52 +37018,41 @@ lab_endgetargs:; /*citerepilog */ MELT_LOCATION ("warmelt-macro.melt:3929:/ clear"); -#line 3929 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURPAIR__V31*/ meltfptr[30] = 0; /*^clear */ -#line 3929 /*clear *//*_.CURCOMP__V32*/ meltfptr[31] = 0; /*^clear */ -#line 3929 /*clear *//*_#IS_STRING__L5*/ meltfnum[4] = 0; } /*endciterblock FOREACH_IN_LIST */ ; MELT_LOCATION ("warmelt-macro.melt:3940:/ quasiblock"); -#line 3940 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3940 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3941:/ cond"); -#line 3941 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_.LOC__V29*/ meltfptr[28]) /*then */ { /*^cond.then */ -#line 3941 /*_.OR___V35*/ meltfptr[34] = /*_.LOC__V29*/ meltfptr[28];; } else { MELT_LOCATION ("warmelt-macro.melt:3941:/ cond.else"); -#line 3941 "warmelt-macro.melt" /**::cond.else::**/ /*_.OR___V35*/ meltfptr[34] = /*_.SLOC__V12*/ meltfptr[11];; } ; MELT_LOCATION ("warmelt-macro.melt:3943:/ checksignal"); -#line 3943 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3943 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3943 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[8]); /*_.LIST_TO_MULTIPLE__V36*/ meltfptr[35] = @@ -44813,11 +37064,9 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3940:/ quasiblock"); -#line 3940 "warmelt-macro.melt" /**::quasiblock::**/ /*^rawallocobj */ -#line 3940 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -44830,7 +37079,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3940 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -44840,7 +37088,6 @@ lab_endgetargs:; ( /*_.OR___V35*/ meltfptr[34]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3940 /*putslot */ melt_assertmsg ("putslot checkobj @SCH_GENSYM", melt_magic_discr ((melt_ptr_t) @@ -44850,7 +37097,6 @@ lab_endgetargs:; ( /*_.GSYM__V16*/ meltfptr[15]), "SCH_GENSYM"); ; /*^putslot */ -#line 3940 /*putslot */ melt_assertmsg ("putslot checkobj @SCH_CHUNKS", melt_magic_discr ((melt_ptr_t) @@ -44862,19 +37108,15 @@ lab_endgetargs:; ; /*_.MRES__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; -#line 3945 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3945:/ cppif.then"); -#line 3945 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3945 /*anyblock */ { { /*^locexp */ -#line 3945 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -44883,11 +37125,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 3945 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[5] = -#line 3945 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -44896,18 +37136,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:3945:/ cond"); -#line 3945 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ -#line 3945 /*^block */ -#line 3945 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = -#line 3945 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -44915,29 +37151,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:3945:/ checksignal"); -#line 3945 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3945 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3945 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg */ -#line 3945 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 3945 argtab[2].meltbp_long = 3945; /*^apply.arg */ -#line 3945 argtab[3].meltbp_cstring = "mexpand_code_chunk result"; /*^apply.arg */ -#line 3945 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MRES__V37*/ meltfptr[36]; /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = @@ -44955,61 +37184,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3945:/ clear"); -#line 3945 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ -#line 3945 /*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0; } ; } else { /*^cond.else */ -#line 3945 /*_.IF___V40*/ meltfptr[39] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:3945:/ quasiblock"); -#line 3945 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V42*/ meltfptr[40] = /*_.IF___V40*/ meltfptr[39];; /*^compute */ - /*_.IFCPP___V39*/ meltfptr[38] = /*_.PROGN___V42*/ meltfptr[40];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3945:/ clear"); -#line 3945 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[5] = 0; /*^clear */ -#line 3945 /*clear *//*_.IF___V40*/ meltfptr[39] = 0; /*^clear */ -#line 3945 /*clear *//*_.PROGN___V42*/ meltfptr[40] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3945 /*_.IFCPP___V39*/ meltfptr[38] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3946:/ checksignal"); -#line 3946 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3946 /*_.RETVAL___V1*/ meltfptr[0] = /*_.MRES__V37*/ meltfptr[36];; { MELT_LOCATION ("warmelt-macro.melt:3946:/ locexp"); -#line 3946 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -45020,109 +37237,78 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3946 ; /*finalret */ goto labend_rout; /*_.LET___V34*/ meltfptr[32] = /*_.RETURN___V43*/ meltfptr[39];; MELT_LOCATION ("warmelt-macro.melt:3940:/ clear"); -#line 3940 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.OR___V35*/ meltfptr[34] = 0; /*^clear */ -#line 3940 /*clear *//*_.LIST_TO_MULTIPLE__V36*/ meltfptr[35] = 0; /*^clear */ -#line 3940 /*clear *//*_.MRES__V37*/ meltfptr[36] = 0; /*^clear */ -#line 3940 /*clear *//*_.IFCPP___V39*/ meltfptr[38] = 0; /*^clear */ -#line 3940 /*clear *//*_.RETURN___V43*/ meltfptr[39] = 0; /*_.LET___V28*/ meltfptr[27] = /*_.LET___V34*/ meltfptr[32];; MELT_LOCATION ("warmelt-macro.melt:3926:/ clear"); -#line 3926 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LOC__V29*/ meltfptr[28] = 0; /*^clear */ -#line 3926 /*clear *//*_.CHKCONT__V30*/ meltfptr[29] = 0; /*^clear */ -#line 3926 /*clear *//*_.LET___V34*/ meltfptr[32] = 0; /*_.LET___V10*/ meltfptr[8] = /*_.LET___V28*/ meltfptr[27];; MELT_LOCATION ("warmelt-macro.melt:3908:/ clear"); -#line 3908 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V11*/ meltfptr[10] = 0; /*^clear */ -#line 3908 /*clear *//*_.SLOC__V12*/ meltfptr[11] = 0; /*^clear */ -#line 3908 /*clear *//*_.LIST_FIRST__V13*/ meltfptr[12] = 0; /*^clear */ -#line 3908 /*clear *//*_.CURPAIR__V14*/ meltfptr[13] = 0; /*^clear */ -#line 3908 /*clear *//*_.CURCHK__V15*/ meltfptr[14] = 0; /*^clear */ -#line 3908 /*clear *//*_.GSYM__V16*/ meltfptr[15] = 0; /*^clear */ -#line 3908 /*clear *//*_.CHKLIST__V17*/ meltfptr[16] = 0; /*^clear */ -#line 3908 /*clear *//*_.CUREL__V18*/ meltfptr[17] = 0; /*^clear */ -#line 3908 /*clear *//*_.PAIR_HEAD__V19*/ meltfptr[18] = 0; /*^clear */ -#line 3908 /*clear *//*_.SETQ___V20*/ meltfptr[19] = 0; /*^clear */ -#line 3908 /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ -#line 3908 /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; /*^clear */ -#line 3908 /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[21] = 0; /*^clear */ -#line 3908 /*clear *//*_.SETQ___V24*/ meltfptr[23] = 0; /*^clear */ -#line 3908 /*clear *//*_.PAIR_HEAD__V25*/ meltfptr[24] = 0; /*^clear */ -#line 3908 /*clear *//*_.SETQ___V26*/ meltfptr[25] = 0; /*^clear */ -#line 3908 /*clear *//*_.PAIR_TAIL__V27*/ meltfptr[26] = 0; /*^clear */ -#line 3908 /*clear *//*_#IS_NOT_A__L4*/ meltfnum[3] = 0; /*^clear */ -#line 3908 /*clear *//*_.LET___V28*/ meltfptr[27] = 0; MELT_LOCATION ("warmelt-macro.melt:3905:/ checksignal"); -#line 3905 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3905 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION ("warmelt-macro.melt:3905:/ locexp"); -#line 3905 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -45133,19 +37319,15 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3905 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3905 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 3905 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 3905 /*clear *//*_.LET___V10*/ meltfptr[8] = 0; } @@ -45164,7 +37346,6 @@ labend_rout: } /*end meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK */ -#line 3956 "warmelt-macro.melt" /**::proc::**/ @@ -45247,12 +37428,10 @@ meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:3956:/ getarg"); -#line 3956 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3956 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -45262,7 +37441,6 @@ meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t /*getarg#2 */ /*^getarg */ -#line 3956 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -45273,7 +37451,6 @@ meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t /*getarg#3 */ /*^getarg */ -#line 3956 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -45286,44 +37463,34 @@ meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t lab_endgetargs:; /*body*/ /*^block*/ -#line 3956 /*anyblock*/ { -#line 3957 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3957:/ cppif.then"); -#line 3957 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3957 /*anyblock */ { /*^checksignal */ -#line 3957 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3957 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3957:/ cond"); -#line 3957 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3957 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3957:/ cond.else"); -#line 3957 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3957 /*anyblock */ { @@ -45332,7 +37499,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3957 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -45347,58 +37513,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3957:/ clear"); -#line 3957 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3957 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3957 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3958 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3958:/ cppif.then"); -#line 3958 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3958 /*anyblock */ { /*^checksignal */ -#line 3958 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3958 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:3958:/ cond"); -#line 3958 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3958 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3958:/ cond.else"); -#line 3958 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3958 /*anyblock */ { @@ -45407,7 +37560,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3958 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -45422,95 +37574,74 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3958:/ clear"); -#line 3958 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3958 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3958 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3959:/ checksignal"); -#line 3959 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = -#line 3959 "warmelt-macro.melt" /**::expr::**/ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:3959:/ cond"); -#line 3959 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3959 /*^block */ -#line 3959 /*anyblock */ { /*^compute */ -#line 3959 /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V11*/ meltfptr[10] = ( /*!MACROEXPAND_1 */ meltfrout->tabval[2]);; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3959:/ clear"); -#line 3959 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; } else { /*^cond.else */ -#line 3959 /*_.IF___V10*/ meltfptr[8] = NULL;; } ; -#line 3960 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3960:/ cppif.then"); -#line 3960 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3960 /*anyblock */ { /*^checksignal */ -#line 3960 MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L4*/ meltfnum[3] = -#line 3960 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; MELT_LOCATION ("warmelt-macro.melt:3960:/ cond"); -#line 3960 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3960 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3960:/ cond.else"); -#line 3960 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3960 /*anyblock */ { @@ -45519,7 +37650,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3960 melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -45534,57 +37664,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3960:/ clear"); -#line 3960 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[3] = 0; /*^clear */ -#line 3960 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3960 /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3961 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:3961:/ cppif.then"); -#line 3961 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 3961 /*anyblock */ { /*^checksignal */ -#line 3961 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L5*/ meltfnum[3] = -#line 3961 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:3961:/ cond"); -#line 3961 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3961 /*_.IFELSE___V15*/ meltfptr[14] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:3961:/ cond.else"); -#line 3961 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 3961 /*anyblock */ { @@ -45593,7 +37710,6 @@ lab_endgetargs:; { /*^locexp */ -#line 3961 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -45608,34 +37724,27 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3961:/ clear"); -#line 3961 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L5*/ meltfnum[3] = 0; /*^clear */ -#line 3961 /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3961 /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:3962:/ quasiblock"); -#line 3962 "warmelt-macro.melt" /**::quasiblock::**/ /*_.FIELDS__V17*/ meltfptr[16] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDNAMS__V18*/ meltfptr[17] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:3964:/ getslot"); -#line 3964 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -45644,7 +37753,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:3965:/ getslot"); -#line 3965 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -45653,58 +37761,43 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V21*/ meltfptr[20] = -#line 3966 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));; /*^compute */ - /*_.CURPAIR__V22*/ meltfptr[21] = -#line 3966 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; /*^compute */ - /*_.OBJSRC__V23*/ meltfptr[22] = -#line 3967 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3969:/ checksignal"); -#line 3969 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[3] = -#line 3969 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.OBJSRC__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:3969:/ cond"); -#line 3969 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L6*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 3969 /*^block */ -#line 3969 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:3970:/ checksignal"); -#line 3970 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3970 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3970 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3970 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3970 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V25*/ meltfptr[24] = @@ -45719,85 +37812,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3969:/ clear"); -#line 3969 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V25*/ meltfptr[24] = 0; } ; } else { /*^cond.else */ -#line 3969 /*_.OBJEXP__V24*/ meltfptr[23] = /*_.OBJSRC__V23*/ meltfptr[22];; } ; /*^compute */ - /*_.PAIR_TAIL__V26*/ meltfptr[24] = -#line 3973 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3973:/ compute"); -#line 3973 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[24];; MELT_LOCATION ("warmelt-macro.melt:3974:/ quasiblock"); -#line 3974 "warmelt-macro.melt" /**::quasiblock::**/ /*_.FLDLIST__V29*/ meltfptr[28] = -#line 3974 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[3]))));; MELT_LOCATION ("warmelt-macro.melt:3976:/ loop"); -#line 3976 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_INSLOOP_6:; /*^loopbody */ -#line 3976 /*^block */ -#line 3976 /*anyblock */ { /*^checksignal */ -#line 3976 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:3977:/ checksignal"); -#line 3977 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[6] = -#line 3977 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L8*/ meltfnum[7] = -#line 3977 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L7*/ meltfnum[6]));; MELT_LOCATION ("warmelt-macro.melt:3977:/ cond"); -#line 3977 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 3977 /*^block */ -#line 3977 /*anyblock */ { /*^quasiblock */ -#line 3977 /*^compute */ -#line 3977 /*_.INSLOOP__V31*/ meltfptr[30] = NULL;; /*^exit */ -#line 3977 /*exit */ { goto labexit_INSLOOP_6; @@ -45809,37 +37881,29 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:3978:/ quasiblock"); -#line 3978 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURFKW__V32*/ meltfptr[31] = -#line 3978 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3979:/ checksignal"); -#line 3979 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L9*/ meltfnum[8] = -#line 3979 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V32*/ meltfptr[31]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:3979:/ cond"); -#line 3979 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 3979 /*^block */ -#line 3979 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3980:/ locexp"); -#line 3980 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("expecting heyword in UNSAFE_PUT_FIELDS"), @@ -45852,54 +37916,41 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V33*/ meltfptr[32] = -#line 3981 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3981:/ compute"); -#line 3981 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V34*/ meltfptr[33] = /*_.PAIR_TAIL__V33*/ meltfptr[32];; MELT_LOCATION ("warmelt-macro.melt:3982:/ quasiblock"); -#line 3982 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V35*/ meltfptr[34] = -#line 3982 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3983:/ quasiblock"); -#line 3983 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3983 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3983 /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3983 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V20*/ meltfptr[19]; /*^apply.arg */ -#line 3983 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CURFKW__V32*/ meltfptr[31]; /*^apply.arg */ -#line 3983 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.CUREXP__V35*/ meltfptr[34]; /*^apply.arg */ -#line 3983 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 3983 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 3983 argtab[5].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.FLDA__V36*/ meltfptr[35] = @@ -45912,24 +37963,19 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3984:/ checksignal"); -#line 3984 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3984 /*cond */ if ( /*_.FLDA__V36*/ meltfptr[35]) /*then */ { /*^cond.then */ -#line 3984 /*^block */ -#line 3984 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:3985:/ locexp"); -#line 3985 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V29*/ meltfptr[28]), (melt_ptr_t) ( /*_.FLDA__V36*/ @@ -45943,76 +37989,58 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:3983:/ clear"); -#line 3983 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDA__V36*/ meltfptr[35] = 0; MELT_LOCATION ("warmelt-macro.melt:3982:/ clear"); -#line 3982 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V35*/ meltfptr[34] = 0; MELT_LOCATION ("warmelt-macro.melt:3978:/ clear"); -#line 3978 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURFKW__V32*/ meltfptr[31] = 0; /*^clear */ -#line 3978 /*clear *//*_#IS_NOT_A__L9*/ meltfnum[8] = 0; /*^clear */ -#line 3978 /*clear *//*_.PAIR_TAIL__V33*/ meltfptr[32] = 0; /*^clear */ -#line 3978 /*clear *//*_.SETQ___V34*/ meltfptr[33] = 0; /*_.PAIR_TAIL__V37*/ meltfptr[35] = -#line 3987 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:3987:/ compute"); -#line 3987 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V38*/ meltfptr[34] = /*_.PAIR_TAIL__V37*/ meltfptr[35];; MELT_LOCATION ("warmelt-macro.melt:3976:/ checksignal"); -#line 3976 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 3976 /*clear *//*_#IS_PAIR__L7*/ meltfnum[6] = 0; /*^clear */ -#line 3976 /*clear *//*_#NOT__L8*/ meltfnum[7] = 0; /*^clear */ -#line 3976 /*clear *//*_.PAIR_TAIL__V37*/ meltfptr[35] = 0; /*^clear */ -#line 3976 /*clear *//*_.SETQ___V38*/ meltfptr[34] = 0; } ; ; goto labloop_INSLOOP_6; labexit_INSLOOP_6:; /*^loopepilog */ -#line 3976 /*loopepilog */ /*_.FOREVER___V30*/ meltfptr[29] = /*_.INSLOOP__V31*/ meltfptr[30];; } ; MELT_LOCATION ("warmelt-macro.melt:3989:/ quasiblock"); -#line 3989 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3989 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3989 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3989 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[7]); /*_.FASTUP__V40*/ meltfptr[32] = @@ -46024,15 +38052,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:3990:/ checksignal"); -#line 3990 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3990 /*^rawallocobj */ -#line 3990 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -46043,7 +38068,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3990 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -46053,7 +38077,6 @@ lab_endgetargs:; ( /*_.LOC__V20*/ meltfptr[19]), "LOCA_LOCATION"); ; /*^putslot */ -#line 3990 /*putslot */ melt_assertmsg ("putslot checkobj @SUPUT_OBJ", melt_magic_discr ((melt_ptr_t) @@ -46063,7 +38086,6 @@ lab_endgetargs:; ( /*_.OBJEXP__V24*/ meltfptr[23]), "SUPUT_OBJ"); ; /*^putslot */ -#line 3990 /*putslot */ melt_assertmsg ("putslot checkobj @SUPUT_FIELDS", melt_magic_discr ((melt_ptr_t) @@ -46074,77 +38096,56 @@ lab_endgetargs:; ; /*_.INST___V41*/ meltfptr[33] = /*_.INST__V42*/ meltfptr[35];; /*^compute */ - /*_.LET___V39*/ meltfptr[31] = /*_.INST___V41*/ meltfptr[33];; MELT_LOCATION ("warmelt-macro.melt:3989:/ clear"); -#line 3989 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FASTUP__V40*/ meltfptr[32] = 0; /*^clear */ -#line 3989 /*clear *//*_.INST___V41*/ meltfptr[33] = 0; /*_.LET___V28*/ meltfptr[27] = /*_.LET___V39*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:3974:/ clear"); -#line 3974 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDLIST__V29*/ meltfptr[28] = 0; /*^clear */ -#line 3974 /*clear *//*_.FOREVER___V30*/ meltfptr[29] = 0; /*^clear */ -#line 3974 /*clear *//*_.LET___V39*/ meltfptr[31] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V28*/ meltfptr[27];; MELT_LOCATION ("warmelt-macro.melt:3962:/ clear"); -#line 3962 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FIELDS__V17*/ meltfptr[16] = 0; /*^clear */ -#line 3962 /*clear *//*_.FIELDNAMS__V18*/ meltfptr[17] = 0; /*^clear */ -#line 3962 /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ -#line 3962 /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; /*^clear */ -#line 3962 /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0; /*^clear */ -#line 3962 /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0; /*^clear */ -#line 3962 /*clear *//*_.OBJSRC__V23*/ meltfptr[22] = 0; /*^clear */ -#line 3962 /*clear *//*_#IS_A__L6*/ meltfnum[3] = 0; /*^clear */ -#line 3962 /*clear *//*_.OBJEXP__V24*/ meltfptr[23] = 0; /*^clear */ -#line 3962 /*clear *//*_.PAIR_TAIL__V26*/ meltfptr[24] = 0; /*^clear */ -#line 3962 /*clear *//*_.SETQ___V27*/ meltfptr[26] = 0; /*^clear */ -#line 3962 /*clear *//*_.LET___V28*/ meltfptr[27] = 0; MELT_LOCATION ("warmelt-macro.melt:3956:/ checksignal"); -#line 3956 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3956 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { MELT_LOCATION ("warmelt-macro.melt:3956:/ locexp"); -#line 3956 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -46155,31 +38156,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3956 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3956 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 3956 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 3956 /*clear *//*_#NULL__L3*/ meltfnum[0] = 0; /*^clear */ -#line 3956 /*clear *//*_.IF___V10*/ meltfptr[8] = 0; /*^clear */ -#line 3956 /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0; /*^clear */ -#line 3956 /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ -#line 3956 /*clear *//*_.LET___V16*/ meltfptr[14] = 0; } @@ -46198,7 +38191,6 @@ labend_rout: } /*end meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS */ -#line 4004 "warmelt-macro.melt" /**::proc::**/ @@ -46277,12 +38269,10 @@ meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:4004:/ getarg"); -#line 4004 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 4004 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -46292,7 +38282,6 @@ meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 4004 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -46303,7 +38292,6 @@ meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 4004 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -46316,44 +38304,34 @@ meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 4004 /*anyblock*/ { -#line 4005 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4005:/ cppif.then"); -#line 4005 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4005 /*anyblock */ { /*^checksignal */ -#line 4005 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 4005 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:4005:/ cond"); -#line 4005 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4005 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4005:/ cond.else"); -#line 4005 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4005 /*anyblock */ { @@ -46362,7 +38340,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4005 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -46377,58 +38354,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4005:/ clear"); -#line 4005 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 4005 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4005 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4006 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4006:/ cppif.then"); -#line 4006 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4006 /*anyblock */ { /*^checksignal */ -#line 4006 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 4006 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:4006:/ cond"); -#line 4006 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4006 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4006:/ cond.else"); -#line 4006 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4006 /*anyblock */ { @@ -46437,7 +38401,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4006 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -46452,72 +38415,57 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4006:/ clear"); -#line 4006 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 4006 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4006 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4007:/ checksignal"); -#line 4007 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = -#line 4007 "warmelt-macro.melt" /**::expr::**/ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:4007:/ cond"); -#line 4007 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4007 /*^block */ -#line 4007 /*anyblock */ { /*^compute */ -#line 4007 /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V11*/ meltfptr[10] = ( /*!MACROEXPAND_1 */ meltfrout->tabval[2]);; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4007:/ clear"); -#line 4007 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; } else { /*^cond.else */ -#line 4007 /*_.IF___V10*/ meltfptr[8] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4008:/ quasiblock"); -#line 4008 "warmelt-macro.melt" /**::quasiblock::**/ /*_.FIELDS__V13*/ meltfptr[12] = ( /*nil */ NULL);; /*^compute */ - /*_.FIELDNAMS__V14*/ meltfptr[13] = ( /*nil */ NULL);; MELT_LOCATION ("warmelt-macro.melt:4010:/ getslot"); -#line 4010 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -46526,7 +38474,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4011:/ getslot"); -#line 4011 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -46535,58 +38482,43 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V17*/ meltfptr[16] = -#line 4012 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[14])));; /*^compute */ - /*_.CURPAIR__V18*/ meltfptr[17] = -#line 4012 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));; /*^compute */ - /*_.OBJSRC__V19*/ meltfptr[18] = -#line 4013 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:4015:/ checksignal"); -#line 4015 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = -#line 4015 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.OBJSRC__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:4015:/ cond"); -#line 4015 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 4015 /*^block */ -#line 4015 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:4016:/ checksignal"); -#line 4016 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4016 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4016 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4016 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4016 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V21*/ meltfptr[20] = @@ -46601,85 +38533,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4015:/ clear"); -#line 4015 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MEXPANDER__V21*/ meltfptr[20] = 0; } ; } else { /*^cond.else */ -#line 4015 /*_.OBJEXP__V20*/ meltfptr[19] = /*_.OBJSRC__V19*/ meltfptr[18];; } ; /*^compute */ - /*_.PAIR_TAIL__V22*/ meltfptr[20] = -#line 4019 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:4019:/ compute"); -#line 4019 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[20];; MELT_LOCATION ("warmelt-macro.melt:4020:/ quasiblock"); -#line 4020 "warmelt-macro.melt" /**::quasiblock::**/ /*_.FLDLIST__V25*/ meltfptr[24] = -#line 4020 "warmelt-macro.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[3]))));; MELT_LOCATION ("warmelt-macro.melt:4022:/ loop"); -#line 4022 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_INSLOOP_7:; /*^loopbody */ -#line 4022 /*^block */ -#line 4022 /*anyblock */ { /*^checksignal */ -#line 4022 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:4023:/ checksignal"); -#line 4023 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L5*/ meltfnum[4] = -#line 4023 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L6*/ meltfnum[5] = -#line 4023 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L5*/ meltfnum[4]));; MELT_LOCATION ("warmelt-macro.melt:4023:/ cond"); -#line 4023 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ -#line 4023 /*^block */ -#line 4023 /*anyblock */ { /*^quasiblock */ -#line 4023 /*^compute */ -#line 4023 /*_.INSLOOP__V27*/ meltfptr[26] = NULL;; /*^exit */ -#line 4023 /*exit */ { goto labexit_INSLOOP_7; @@ -46691,37 +38602,29 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4024:/ quasiblock"); -#line 4024 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURFKW__V28*/ meltfptr[27] = -#line 4024 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:4025:/ checksignal"); -#line 4025 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[6] = -#line 4025 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V28*/ meltfptr[27]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[4])));; MELT_LOCATION ("warmelt-macro.melt:4025:/ cond"); -#line 4025 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ -#line 4025 /*^block */ -#line 4025 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4026:/ locexp"); -#line 4026 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("expecting heyword in PUT_FIELDS"), @@ -46734,54 +38637,41 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V29*/ meltfptr[28] = -#line 4027 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:4027:/ compute"); -#line 4027 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V30*/ meltfptr[29] = /*_.PAIR_TAIL__V29*/ meltfptr[28];; MELT_LOCATION ("warmelt-macro.melt:4028:/ quasiblock"); -#line 4028 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V31*/ meltfptr[30] = -#line 4028 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:4029:/ quasiblock"); -#line 4029 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:4030:/ checksignal"); -#line 4030 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4030 /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4030 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V16*/ meltfptr[15]; /*^apply.arg */ -#line 4030 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CURFKW__V28*/ meltfptr[27]; /*^apply.arg */ -#line 4030 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.CUREXP__V31*/ meltfptr[30]; /*^apply.arg */ -#line 4030 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4030 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4030 argtab[5].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.FLDA__V32*/ meltfptr[31] = @@ -46794,24 +38684,19 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4031:/ checksignal"); -#line 4031 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 4031 /*cond */ if ( /*_.FLDA__V32*/ meltfptr[31]) /*then */ { /*^cond.then */ -#line 4031 /*^block */ -#line 4031 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4032:/ locexp"); -#line 4032 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V25*/ meltfptr[24]), (melt_ptr_t) ( /*_.FLDA__V32*/ @@ -46825,76 +38710,58 @@ lab_endgetargs:; ; MELT_LOCATION ("warmelt-macro.melt:4029:/ clear"); -#line 4029 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDA__V32*/ meltfptr[31] = 0; MELT_LOCATION ("warmelt-macro.melt:4028:/ clear"); -#line 4028 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V31*/ meltfptr[30] = 0; MELT_LOCATION ("warmelt-macro.melt:4024:/ clear"); -#line 4024 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURFKW__V28*/ meltfptr[27] = 0; /*^clear */ -#line 4024 /*clear *//*_#IS_NOT_A__L7*/ meltfnum[6] = 0; /*^clear */ -#line 4024 /*clear *//*_.PAIR_TAIL__V29*/ meltfptr[28] = 0; /*^clear */ -#line 4024 /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0; /*_.PAIR_TAIL__V33*/ meltfptr[31] = -#line 4034 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:4034:/ compute"); -#line 4034 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V34*/ meltfptr[30] = /*_.PAIR_TAIL__V33*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:4022:/ checksignal"); -#line 4022 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ -#line 4022 /*clear *//*_#IS_PAIR__L5*/ meltfnum[4] = 0; /*^clear */ -#line 4022 /*clear *//*_#NOT__L6*/ meltfnum[5] = 0; /*^clear */ -#line 4022 /*clear *//*_.PAIR_TAIL__V33*/ meltfptr[31] = 0; /*^clear */ -#line 4022 /*clear *//*_.SETQ___V34*/ meltfptr[30] = 0; } ; ; goto labloop_INSLOOP_7; labexit_INSLOOP_7:; /*^loopepilog */ -#line 4022 /*loopepilog */ /*_.FOREVER___V26*/ meltfptr[25] = /*_.INSLOOP__V27*/ meltfptr[26];; } ; MELT_LOCATION ("warmelt-macro.melt:4036:/ quasiblock"); -#line 4036 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 4036 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4036 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4036 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[7]); /*_.FASTUP__V36*/ meltfptr[28] = @@ -46906,15 +38773,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4037:/ checksignal"); -#line 4037 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4037 /*^rawallocobj */ -#line 4037 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -46927,7 +38791,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 4037 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -46937,7 +38800,6 @@ lab_endgetargs:; ( /*_.LOC__V16*/ meltfptr[15]), "LOCA_LOCATION"); ; /*^putslot */ -#line 4037 /*putslot */ melt_assertmsg ("putslot checkobj @SUPUT_OBJ", melt_magic_discr ((melt_ptr_t) @@ -46947,7 +38809,6 @@ lab_endgetargs:; ( /*_.OBJEXP__V20*/ meltfptr[19]), "SUPUT_OBJ"); ; /*^putslot */ -#line 4037 /*putslot */ melt_assertmsg ("putslot checkobj @SUPUT_FIELDS", melt_magic_discr ((melt_ptr_t) @@ -46958,77 +38819,56 @@ lab_endgetargs:; ; /*_.INST___V37*/ meltfptr[29] = /*_.INST__V38*/ meltfptr[31];; /*^compute */ - /*_.LET___V35*/ meltfptr[27] = /*_.INST___V37*/ meltfptr[29];; MELT_LOCATION ("warmelt-macro.melt:4036:/ clear"); -#line 4036 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FASTUP__V36*/ meltfptr[28] = 0; /*^clear */ -#line 4036 /*clear *//*_.INST___V37*/ meltfptr[29] = 0; /*_.LET___V24*/ meltfptr[23] = /*_.LET___V35*/ meltfptr[27];; MELT_LOCATION ("warmelt-macro.melt:4020:/ clear"); -#line 4020 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDLIST__V25*/ meltfptr[24] = 0; /*^clear */ -#line 4020 /*clear *//*_.FOREVER___V26*/ meltfptr[25] = 0; /*^clear */ -#line 4020 /*clear *//*_.LET___V35*/ meltfptr[27] = 0; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V24*/ meltfptr[23];; MELT_LOCATION ("warmelt-macro.melt:4008:/ clear"); -#line 4008 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FIELDS__V13*/ meltfptr[12] = 0; /*^clear */ -#line 4008 /*clear *//*_.FIELDNAMS__V14*/ meltfptr[13] = 0; /*^clear */ -#line 4008 /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ -#line 4008 /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; /*^clear */ -#line 4008 /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0; /*^clear */ -#line 4008 /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0; /*^clear */ -#line 4008 /*clear *//*_.OBJSRC__V19*/ meltfptr[18] = 0; /*^clear */ -#line 4008 /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ -#line 4008 /*clear *//*_.OBJEXP__V20*/ meltfptr[19] = 0; /*^clear */ -#line 4008 /*clear *//*_.PAIR_TAIL__V22*/ meltfptr[20] = 0; /*^clear */ -#line 4008 /*clear *//*_.SETQ___V23*/ meltfptr[22] = 0; /*^clear */ -#line 4008 /*clear *//*_.LET___V24*/ meltfptr[23] = 0; MELT_LOCATION ("warmelt-macro.melt:4004:/ checksignal"); -#line 4004 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4004 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION ("warmelt-macro.melt:4004:/ locexp"); -#line 4004 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -47039,25 +38879,19 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4004 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 4004 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 4004 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 4004 /*clear *//*_#NULL__L3*/ meltfnum[0] = 0; /*^clear */ -#line 4004 /*clear *//*_.IF___V10*/ meltfptr[8] = 0; /*^clear */ -#line 4004 /*clear *//*_.LET___V12*/ meltfptr[10] = 0; } @@ -47076,7 +38910,6 @@ labend_rout: } /*end meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS */ -#line 4051 "warmelt-macro.melt" /**::proc::**/ @@ -47156,12 +38989,10 @@ meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:4051:/ getarg"); -#line 4051 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 4051 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -47171,7 +39002,6 @@ meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t /*getarg#2 */ /*^getarg */ -#line 4051 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -47182,7 +39012,6 @@ meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t /*getarg#3 */ /*^getarg */ -#line 4051 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -47195,44 +39024,34 @@ meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t lab_endgetargs:; /*body*/ /*^block*/ -#line 4051 /*anyblock*/ { -#line 4052 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4052:/ cppif.then"); -#line 4052 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4052 /*anyblock */ { /*^checksignal */ -#line 4052 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 4052 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:4052:/ cond"); -#line 4052 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4052 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4052:/ cond.else"); -#line 4052 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4052 /*anyblock */ { @@ -47241,7 +39060,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4052 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -47256,58 +39074,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4052:/ clear"); -#line 4052 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 4052 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4052 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4053 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4053:/ cppif.then"); -#line 4053 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4053 /*anyblock */ { /*^checksignal */ -#line 4053 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 4053 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:4053:/ cond"); -#line 4053 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4053 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4053:/ cond.else"); -#line 4053 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4053 /*anyblock */ { @@ -47316,7 +39121,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4053 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -47331,30 +39135,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4053:/ clear"); -#line 4053 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 4053 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4053 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4054:/ quasiblock"); -#line 4054 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 4054 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -47363,7 +39161,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4055:/ getslot"); -#line 4055 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -47372,42 +39169,31 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V13*/ meltfptr[12] = -#line 4056 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V11*/ meltfptr[10])));; /*^compute */ - /*_.CURPAIR__V14*/ meltfptr[13] = -#line 4056 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V13*/ meltfptr[12])));; /*^compute */ - /*_.CURFKW__V15*/ meltfptr[14] = -#line 4057 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:4059:/ checksignal"); -#line 4059 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L3*/ meltfnum[0] = -#line 4059 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:4059:/ cond"); -#line 4059 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4059 /*^block */ -#line 4059 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4061:/ locexp"); -#line 4061 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("field keyword expected in UNSAFE_GET_FIELD"), @@ -47415,18 +39201,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4062:/ checksignal"); -#line 4062 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4062 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { MELT_LOCATION ("warmelt-macro.melt:4062:/ locexp"); -#line 4062 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -47437,79 +39220,60 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4062 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:4060:/ quasiblock"); -#line 4060 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; /*^compute */ - /*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4059:/ clear"); -#line 4059 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V17*/ meltfptr[16] = 0; /*^clear */ -#line 4059 /*clear *//*_.PROGN___V18*/ meltfptr[17] = 0; } ; } else { /*^cond.else */ -#line 4059 /*_.IF___V16*/ meltfptr[15] = NULL;; } ; /*^compute */ - /*_.PAIR_TAIL__V19*/ meltfptr[16] = -#line 4063 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:4063:/ compute"); -#line 4063 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V20*/ meltfptr[17] = /*_.PAIR_TAIL__V19*/ meltfptr[16];; MELT_LOCATION ("warmelt-macro.melt:4064:/ quasiblock"); -#line 4064 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V22*/ meltfptr[21] = -#line 4064 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; /*^compute */ - /*_.PAIR_TAIL__V23*/ meltfptr[22] = -#line 4065 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:4065:/ compute"); -#line 4065 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[22];; MELT_LOCATION ("warmelt-macro.melt:4066:/ checksignal"); -#line 4066 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 4066 /*cond */ if ( /*_.CURPAIR__V14*/ meltfptr[13]) /*then */ { /*^cond.then */ -#line 4066 /*^block */ -#line 4066 /*anyblock */ { { /*^locexp */ -#line 4066 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("UNSAFE_GET_FIELD with more than two sons"), @@ -47522,37 +39286,28 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4069:/ quasiblock"); -#line 4069 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 4069 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4069 /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4069 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V12*/ meltfptr[11]; /*^apply.arg */ -#line 4069 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CURFKW__V15*/ meltfptr[14]; /*^apply.arg */ -#line 4069 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.CUREXP__V22*/ meltfptr[21]; /*^apply.arg */ -#line 4069 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4069 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4069 argtab[5].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.FLDA__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t) @@ -47564,34 +39319,26 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4070:/ checksignal"); -#line 4070 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = -#line 4070 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_SOURCE_FIELDASSIGN */ meltfrout->tabval[4])));; /*^compute */ - /*_#NOT__L5*/ meltfnum[4] = -#line 4070 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_A__L4*/ meltfnum[3]));; MELT_LOCATION ("warmelt-macro.melt:4070:/ cond"); -#line 4070 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 4070 /*^block */ -#line 4070 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4072:/ locexp"); -#line 4072 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("bad field and expression in UNSAFE_GET_FIELD"), @@ -47599,18 +39346,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4073:/ checksignal"); -#line 4073 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4073 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { MELT_LOCATION ("warmelt-macro.melt:4073:/ locexp"); -#line 4073 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -47621,41 +39365,33 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4073 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:4071:/ quasiblock"); -#line 4071 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; /*^compute */ - /*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4070:/ clear"); -#line 4070 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V28*/ meltfptr[27] = 0; /*^clear */ -#line 4070 /*clear *//*_.PROGN___V29*/ meltfptr[28] = 0; } ; } else { /*^cond.else */ -#line 4070 /*_.IF___V27*/ meltfptr[26] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4074:/ quasiblock"); -#line 4074 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 4074 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]) /*=obj*/ ; @@ -47664,7 +39400,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4075:/ getslot"); -#line 4075 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]) /*=obj*/ ; @@ -47673,27 +39408,21 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4076:/ checksignal"); -#line 4076 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[5] = -#line 4076 "warmelt-macro.melt" /**::expr::**/ (( /*_.EXP__V32*/ meltfptr[31]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:4076:/ cond"); -#line 4076 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ -#line 4076 /*^block */ -#line 4076 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4077:/ locexp"); -#line 4077 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("missing object expression for (UNSAFE_GET_FIELD :field objexpr)"), @@ -47706,15 +39435,12 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4078:/ checksignal"); -#line 4078 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4078 /*^rawallocobj */ -#line 4078 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -47725,7 +39451,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 4078 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -47735,7 +39460,6 @@ lab_endgetargs:; ( /*_.LOC__V12*/ meltfptr[11]), "LOCA_LOCATION"); ; /*^putslot */ -#line 4078 /*putslot */ melt_assertmsg ("putslot checkobj @SUGET_OBJ", melt_magic_discr ((melt_ptr_t) @@ -47745,7 +39469,6 @@ lab_endgetargs:; ( /*_.EXP__V32*/ meltfptr[31]), "SUGET_OBJ"); ; /*^putslot */ -#line 4078 /*putslot */ melt_assertmsg ("putslot checkobj @SUGET_FIELD", melt_magic_discr ((melt_ptr_t) @@ -47756,97 +39479,70 @@ lab_endgetargs:; ; /*_.INST___V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; /*^compute */ - /*_.LET___V30*/ meltfptr[27] = /*_.INST___V33*/ meltfptr[32];; MELT_LOCATION ("warmelt-macro.melt:4074:/ clear"); -#line 4074 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLD__V31*/ meltfptr[28] = 0; /*^clear */ -#line 4074 /*clear *//*_.EXP__V32*/ meltfptr[31] = 0; /*^clear */ -#line 4074 /*clear *//*_#NULL__L6*/ meltfnum[5] = 0; /*^clear */ -#line 4074 /*clear *//*_.INST___V33*/ meltfptr[32] = 0; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V30*/ meltfptr[27];; MELT_LOCATION ("warmelt-macro.melt:4069:/ clear"); -#line 4069 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDA__V26*/ meltfptr[25] = 0; /*^clear */ -#line 4069 /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ -#line 4069 /*clear *//*_#NOT__L5*/ meltfnum[4] = 0; /*^clear */ -#line 4069 /*clear *//*_.IF___V27*/ meltfptr[26] = 0; /*^clear */ -#line 4069 /*clear *//*_.LET___V30*/ meltfptr[27] = 0; /*_.LET___V21*/ meltfptr[20] = /*_.LET___V25*/ meltfptr[24];; MELT_LOCATION ("warmelt-macro.melt:4064:/ clear"); -#line 4064 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V22*/ meltfptr[21] = 0; /*^clear */ -#line 4064 /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[22] = 0; /*^clear */ -#line 4064 /*clear *//*_.SETQ___V24*/ meltfptr[23] = 0; /*^clear */ -#line 4064 /*clear *//*_.LET___V25*/ meltfptr[24] = 0; /*_.LET___V10*/ meltfptr[8] = /*_.LET___V21*/ meltfptr[20];; MELT_LOCATION ("warmelt-macro.melt:4054:/ clear"); -#line 4054 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V11*/ meltfptr[10] = 0; /*^clear */ -#line 4054 /*clear *//*_.LOC__V12*/ meltfptr[11] = 0; /*^clear */ -#line 4054 /*clear *//*_.LIST_FIRST__V13*/ meltfptr[12] = 0; /*^clear */ -#line 4054 /*clear *//*_.CURPAIR__V14*/ meltfptr[13] = 0; /*^clear */ -#line 4054 /*clear *//*_.CURFKW__V15*/ meltfptr[14] = 0; /*^clear */ -#line 4054 /*clear *//*_#IS_NOT_A__L3*/ meltfnum[0] = 0; /*^clear */ -#line 4054 /*clear *//*_.IF___V16*/ meltfptr[15] = 0; /*^clear */ -#line 4054 /*clear *//*_.PAIR_TAIL__V19*/ meltfptr[16] = 0; /*^clear */ -#line 4054 /*clear *//*_.SETQ___V20*/ meltfptr[17] = 0; /*^clear */ -#line 4054 /*clear *//*_.LET___V21*/ meltfptr[20] = 0; MELT_LOCATION ("warmelt-macro.melt:4051:/ checksignal"); -#line 4051 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4051 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION ("warmelt-macro.melt:4051:/ locexp"); -#line 4051 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -47857,19 +39553,15 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4051 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 4051 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 4051 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 4051 /*clear *//*_.LET___V10*/ meltfptr[8] = 0; } @@ -47888,7 +39580,6 @@ labend_rout: } /*end meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD */ -#line 4092 "warmelt-macro.melt" /**::proc::**/ @@ -47967,12 +39658,10 @@ meltrout_65_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:4092:/ getarg"); -#line 4092 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 4092 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -47982,7 +39671,6 @@ meltrout_65_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 4092 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -47993,7 +39681,6 @@ meltrout_65_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 4092 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -48006,44 +39693,34 @@ meltrout_65_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 4092 /*anyblock*/ { -#line 4093 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4093:/ cppif.then"); -#line 4093 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4093 /*anyblock */ { /*^checksignal */ -#line 4093 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 4093 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:4093:/ cond"); -#line 4093 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4093 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4093:/ cond.else"); -#line 4093 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4093 /*anyblock */ { @@ -48052,7 +39729,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4093 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -48067,58 +39743,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4093:/ clear"); -#line 4093 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 4093 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4093 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4094 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4094:/ cppif.then"); -#line 4094 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4094 /*anyblock */ { /*^checksignal */ -#line 4094 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 4094 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:4094:/ cond"); -#line 4094 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4094 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4094:/ cond.else"); -#line 4094 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4094 /*anyblock */ { @@ -48127,7 +39790,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4094 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -48142,30 +39804,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4094:/ clear"); -#line 4094 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 4094 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4094 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4095:/ quasiblock"); -#line 4095 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 4095 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -48174,7 +39830,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4096:/ getslot"); -#line 4096 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -48183,42 +39838,31 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V13*/ meltfptr[12] = -#line 4097 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V11*/ meltfptr[10])));; /*^compute */ - /*_.CURPAIR__V14*/ meltfptr[13] = -#line 4097 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V13*/ meltfptr[12])));; /*^compute */ - /*_.CURFKW__V15*/ meltfptr[14] = -#line 4098 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:4100:/ checksignal"); -#line 4100 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L3*/ meltfnum[0] = -#line 4100 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:4100:/ cond"); -#line 4100 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4100 /*^block */ -#line 4100 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4102:/ locexp"); -#line 4102 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("field keyword expected in GET_FIELD"), @@ -48226,18 +39870,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4103:/ checksignal"); -#line 4103 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4103 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { MELT_LOCATION ("warmelt-macro.melt:4103:/ locexp"); -#line 4103 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -48248,79 +39889,60 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4103 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:4101:/ quasiblock"); -#line 4101 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; /*^compute */ - /*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4100:/ clear"); -#line 4100 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V17*/ meltfptr[16] = 0; /*^clear */ -#line 4100 /*clear *//*_.PROGN___V18*/ meltfptr[17] = 0; } ; } else { /*^cond.else */ -#line 4100 /*_.IF___V16*/ meltfptr[15] = NULL;; } ; /*^compute */ - /*_.PAIR_TAIL__V19*/ meltfptr[16] = -#line 4104 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:4104:/ compute"); -#line 4104 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V20*/ meltfptr[17] = /*_.PAIR_TAIL__V19*/ meltfptr[16];; MELT_LOCATION ("warmelt-macro.melt:4105:/ quasiblock"); -#line 4105 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V22*/ meltfptr[21] = -#line 4105 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; /*^compute */ - /*_.PAIR_TAIL__V23*/ meltfptr[22] = -#line 4106 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; MELT_LOCATION ("warmelt-macro.melt:4106:/ compute"); -#line 4106 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[22];; MELT_LOCATION ("warmelt-macro.melt:4107:/ checksignal"); -#line 4107 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 4107 /*cond */ if ( /*_.CURPAIR__V14*/ meltfptr[13]) /*then */ { /*^cond.then */ -#line 4107 /*^block */ -#line 4107 /*anyblock */ { { /*^locexp */ -#line 4107 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("UNSAFE_GET_FIELD with more than two sons"), @@ -48333,37 +39955,28 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4110:/ quasiblock"); -#line 4110 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 4110 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4110 /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4110 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V12*/ meltfptr[11]; /*^apply.arg */ -#line 4110 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CURFKW__V15*/ meltfptr[14]; /*^apply.arg */ -#line 4110 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.CUREXP__V22*/ meltfptr[21]; /*^apply.arg */ -#line 4110 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4110 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4110 argtab[5].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.FLDA__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t) @@ -48375,34 +39988,26 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4111:/ checksignal"); -#line 4111 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = -#line 4111 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_SOURCE_FIELDASSIGN */ meltfrout->tabval[4])));; /*^compute */ - /*_#NOT__L5*/ meltfnum[4] = -#line 4111 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_A__L4*/ meltfnum[3]));; MELT_LOCATION ("warmelt-macro.melt:4111:/ cond"); -#line 4111 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 4111 /*^block */ -#line 4111 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4113:/ locexp"); -#line 4113 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("bad field and expression in GET_FIELD"), @@ -48410,18 +40015,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4114:/ checksignal"); -#line 4114 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4114 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { MELT_LOCATION ("warmelt-macro.melt:4114:/ locexp"); -#line 4114 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -48432,41 +40034,33 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4114 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:4112:/ quasiblock"); -#line 4112 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; /*^compute */ - /*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4111:/ clear"); -#line 4111 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V28*/ meltfptr[27] = 0; /*^clear */ -#line 4111 /*clear *//*_.PROGN___V29*/ meltfptr[28] = 0; } ; } else { /*^cond.else */ -#line 4111 /*_.IF___V27*/ meltfptr[26] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4115:/ quasiblock"); -#line 4115 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 4115 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]) /*=obj*/ ; @@ -48475,7 +40069,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4116:/ getslot"); -#line 4116 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]) /*=obj*/ ; @@ -48484,27 +40077,21 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4117:/ checksignal"); -#line 4117 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[5] = -#line 4117 "warmelt-macro.melt" /**::expr::**/ (( /*_.EXP__V32*/ meltfptr[31]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:4117:/ cond"); -#line 4117 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ -#line 4117 /*^block */ -#line 4117 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4118:/ locexp"); -#line 4118 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("missing object expression for (GET_FIELD :field objexpr)"), @@ -48517,15 +40104,12 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4119:/ checksignal"); -#line 4119 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4119 /*^rawallocobj */ -#line 4119 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -48538,7 +40122,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 4119 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -48548,7 +40131,6 @@ lab_endgetargs:; ( /*_.LOC__V12*/ meltfptr[11]), "LOCA_LOCATION"); ; /*^putslot */ -#line 4119 /*putslot */ melt_assertmsg ("putslot checkobj @SUGET_OBJ", melt_magic_discr ((melt_ptr_t) @@ -48558,7 +40140,6 @@ lab_endgetargs:; ( /*_.EXP__V32*/ meltfptr[31]), "SUGET_OBJ"); ; /*^putslot */ -#line 4119 /*putslot */ melt_assertmsg ("putslot checkobj @SUGET_FIELD", melt_magic_discr ((melt_ptr_t) @@ -48569,97 +40150,70 @@ lab_endgetargs:; ; /*_.INST___V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; /*^compute */ - /*_.LET___V30*/ meltfptr[27] = /*_.INST___V33*/ meltfptr[32];; MELT_LOCATION ("warmelt-macro.melt:4115:/ clear"); -#line 4115 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLD__V31*/ meltfptr[28] = 0; /*^clear */ -#line 4115 /*clear *//*_.EXP__V32*/ meltfptr[31] = 0; /*^clear */ -#line 4115 /*clear *//*_#NULL__L6*/ meltfnum[5] = 0; /*^clear */ -#line 4115 /*clear *//*_.INST___V33*/ meltfptr[32] = 0; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V30*/ meltfptr[27];; MELT_LOCATION ("warmelt-macro.melt:4110:/ clear"); -#line 4110 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.FLDA__V26*/ meltfptr[25] = 0; /*^clear */ -#line 4110 /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ -#line 4110 /*clear *//*_#NOT__L5*/ meltfnum[4] = 0; /*^clear */ -#line 4110 /*clear *//*_.IF___V27*/ meltfptr[26] = 0; /*^clear */ -#line 4110 /*clear *//*_.LET___V30*/ meltfptr[27] = 0; /*_.LET___V21*/ meltfptr[20] = /*_.LET___V25*/ meltfptr[24];; MELT_LOCATION ("warmelt-macro.melt:4105:/ clear"); -#line 4105 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V22*/ meltfptr[21] = 0; /*^clear */ -#line 4105 /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[22] = 0; /*^clear */ -#line 4105 /*clear *//*_.SETQ___V24*/ meltfptr[23] = 0; /*^clear */ -#line 4105 /*clear *//*_.LET___V25*/ meltfptr[24] = 0; /*_.LET___V10*/ meltfptr[8] = /*_.LET___V21*/ meltfptr[20];; MELT_LOCATION ("warmelt-macro.melt:4095:/ clear"); -#line 4095 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V11*/ meltfptr[10] = 0; /*^clear */ -#line 4095 /*clear *//*_.LOC__V12*/ meltfptr[11] = 0; /*^clear */ -#line 4095 /*clear *//*_.LIST_FIRST__V13*/ meltfptr[12] = 0; /*^clear */ -#line 4095 /*clear *//*_.CURPAIR__V14*/ meltfptr[13] = 0; /*^clear */ -#line 4095 /*clear *//*_.CURFKW__V15*/ meltfptr[14] = 0; /*^clear */ -#line 4095 /*clear *//*_#IS_NOT_A__L3*/ meltfnum[0] = 0; /*^clear */ -#line 4095 /*clear *//*_.IF___V16*/ meltfptr[15] = 0; /*^clear */ -#line 4095 /*clear *//*_.PAIR_TAIL__V19*/ meltfptr[16] = 0; /*^clear */ -#line 4095 /*clear *//*_.SETQ___V20*/ meltfptr[17] = 0; /*^clear */ -#line 4095 /*clear *//*_.LET___V21*/ meltfptr[20] = 0; MELT_LOCATION ("warmelt-macro.melt:4092:/ checksignal"); -#line 4092 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4092 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION ("warmelt-macro.melt:4092:/ locexp"); -#line 4092 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -48670,19 +40224,15 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4092 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 4092 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 4092 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 4092 /*clear *//*_.LET___V10*/ meltfptr[8] = 0; } @@ -48701,7 +40251,6 @@ labend_rout: } /*end meltrout_65_warmelt_macro_MEXPAND_GET_FIELD */ -#line 4133 "warmelt-macro.melt" /**::proc::**/ @@ -48780,12 +40329,10 @@ meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:4133:/ getarg"); -#line 4133 "warmelt-macro.melt" /**::getarg::**/ /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 4133 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.LOC__V3*/ meltfptr[2] = @@ -48795,7 +40342,6 @@ meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 4133 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V4*/ meltfptr[3] = @@ -48805,7 +40351,6 @@ meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 4133 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V5*/ meltfptr[4] = @@ -48816,7 +40361,6 @@ meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, /*getarg#4 */ /*^getarg */ -#line 4133 if (meltxargdescr_[3] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V6*/ meltfptr[5] = @@ -48829,44 +40373,34 @@ meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 4133 /*anyblock*/ { -#line 4134 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4134:/ cppif.then"); -#line 4134 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4134 /*anyblock */ { /*^checksignal */ -#line 4134 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 4134 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:4134:/ cond"); -#line 4134 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4134 /*_.IFELSE___V8*/ meltfptr[7] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4134:/ cond.else"); -#line 4134 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4134 /*anyblock */ { @@ -48875,7 +40409,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4134 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -48890,38 +40423,30 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4134:/ clear"); -#line 4134 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 4134 /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4134 /*_.IFCPP___V7*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4135 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4135:/ cppif.then"); -#line 4135 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4135 /*anyblock */ { { /*^locexp */ -#line 4135 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -48930,11 +40455,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4135 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L2*/ meltfnum[0] = -#line 4135 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -48943,18 +40466,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4135:/ cond"); -#line 4135 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4135 /*^block */ -#line 4135 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = -#line 4135 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -48962,29 +40481,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4135:/ checksignal"); -#line 4135 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4135 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4135 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg */ -#line 4135 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4135 argtab[2].meltbp_long = 4135; /*^apply.arg */ -#line 4135 argtab[3].meltbp_cstring = "pairlist_to_progn pair"; /*^apply.arg */ -#line 4135 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.PAIR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = @@ -49002,81 +40514,63 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4135:/ clear"); -#line 4135 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ -#line 4135 /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0; } ; } else { /*^cond.else */ -#line 4135 /*_.IF___V10*/ meltfptr[9] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4135:/ quasiblock"); -#line 4135 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[9];; /*^compute */ - /*_.IFCPP___V9*/ meltfptr[7] = /*_.PROGN___V12*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4135:/ clear"); -#line 4135 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[0] = 0; /*^clear */ -#line 4135 /*clear *//*_.IF___V10*/ meltfptr[9] = 0; /*^clear */ -#line 4135 /*clear *//*_.PROGN___V12*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4135 /*_.IFCPP___V9*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4136 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4136:/ cppif.then"); -#line 4136 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4136 /*anyblock */ { /*^checksignal */ -#line 4136 MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L4*/ meltfnum[2] = -#line 4136 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.PAIR__V2*/ meltfptr[1])) == MELTOBMAG_PAIR);; MELT_LOCATION ("warmelt-macro.melt:4136:/ cond"); -#line 4136 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_PAIR__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ -#line 4136 /*_.IFELSE___V14*/ meltfptr[10] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4136:/ cond.else"); -#line 4136 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4136 /*anyblock */ { @@ -49085,7 +40579,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4136 melt_assert_failed (("check_pair"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -49100,57 +40593,44 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V13*/ meltfptr[9] = /*_.IFELSE___V14*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4136:/ clear"); -#line 4136 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_PAIR__L4*/ meltfnum[2] = 0; /*^clear */ -#line 4136 /*clear *//*_.IFELSE___V14*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4136 /*_.IFCPP___V13*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4137 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4137:/ cppif.then"); -#line 4137 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4137 /*anyblock */ { /*^checksignal */ -#line 4137 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L5*/ meltfnum[0] = -#line 4137 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:4137:/ cond"); -#line 4137 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4137 /*_.IFELSE___V16*/ meltfptr[15] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4137:/ cond.else"); -#line 4137 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4137 /*anyblock */ { @@ -49159,7 +40639,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4137 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -49174,34 +40653,27 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V15*/ meltfptr[10] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4137:/ clear"); -#line 4137 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L5*/ meltfnum[0] = 0; /*^clear */ -#line 4137 /*clear *//*_.IFELSE___V16*/ meltfptr[15] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4137 /*_.IFCPP___V15*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4138:/ quasiblock"); -#line 4138 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:4141:/ quasiblock"); -#line 4141 "warmelt-macro.melt" /**::quasiblock::**/ /*^newclosure */ -#line 4141 /*newclosure *//*_.LAMBDA___V19*/ meltfptr[18] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -49210,7 +40682,6 @@ lab_endgetargs:; tabval[4])), (3)); ; /*^putclosedv */ -#line 4141 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -49224,7 +40695,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MEXPANDER__V5*/ meltfptr[4]); ; /*^putclosedv */ -#line 4141 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -49238,7 +40708,6 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3]); ; /*^putclosedv */ -#line 4141 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -49253,21 +40722,17 @@ lab_endgetargs:; ; /*_.LAMBDA___V18*/ meltfptr[17] = /*_.LAMBDA___V19*/ meltfptr[18];; MELT_LOCATION ("warmelt-macro.melt:4138:/ checksignal"); -#line 4138 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4138 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4138 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[3]); /*^apply.arg */ -#line 4138 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V18*/ meltfptr[17]; /*_.BODYTUP__V20*/ meltfptr[19] = @@ -49279,15 +40744,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4143:/ checksignal"); -#line 4143 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4143 /*^rawallocobj */ -#line 4143 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -49300,7 +40762,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 4143 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -49310,7 +40771,6 @@ lab_endgetargs:; ( /*_.LOC__V3*/ meltfptr[2]), "LOCA_LOCATION"); ; /*^putslot */ -#line 4143 /*putslot */ melt_assertmsg ("putslot checkobj @SPROGN_BODY", melt_magic_discr ((melt_ptr_t) @@ -49321,19 +40781,15 @@ lab_endgetargs:; ; /*_.SPROGN__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; -#line 4147 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4147:/ cppif.then"); -#line 4147 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4147 /*anyblock */ { { /*^locexp */ -#line 4147 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -49342,11 +40798,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4147 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L6*/ meltfnum[2] = -#line 4147 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -49355,18 +40809,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4147:/ cond"); -#line 4147 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[2]) /*then */ { /*^cond.then */ -#line 4147 /*^block */ -#line 4147 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = -#line 4147 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -49374,29 +40824,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4147:/ checksignal"); -#line 4147 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4147 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4147 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; /*^apply.arg */ -#line 4147 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4147 argtab[2].meltbp_long = 4147; /*^apply.arg */ -#line 4147 argtab[3].meltbp_cstring = "pairlist_to_progn sprogn"; /*^apply.arg */ -#line 4147 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SPROGN__V21*/ meltfptr[20]; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = @@ -49414,61 +40857,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4147:/ clear"); -#line 4147 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0; /*^clear */ -#line 4147 /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; } ; } else { /*^cond.else */ -#line 4147 /*_.IF___V24*/ meltfptr[23] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4147:/ quasiblock"); -#line 4147 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[23];; /*^compute */ - /*_.IFCPP___V23*/ meltfptr[22] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4147:/ clear"); -#line 4147 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[2] = 0; /*^clear */ -#line 4147 /*clear *//*_.IF___V24*/ meltfptr[23] = 0; /*^clear */ -#line 4147 /*clear *//*_.PROGN___V26*/ meltfptr[24] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4147 /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4148:/ checksignal"); -#line 4148 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4148 /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPROGN__V21*/ meltfptr[20];; { MELT_LOCATION ("warmelt-macro.melt:4148:/ locexp"); -#line 4148 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -49479,39 +40910,30 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4148 ; /*finalret */ goto labend_rout; /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V27*/ meltfptr[23];; MELT_LOCATION ("warmelt-macro.melt:4138:/ clear"); -#line 4138 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LAMBDA___V18*/ meltfptr[17] = 0; /*^clear */ -#line 4138 /*clear *//*_.BODYTUP__V20*/ meltfptr[19] = 0; /*^clear */ -#line 4138 /*clear *//*_.SPROGN__V21*/ meltfptr[20] = 0; /*^clear */ -#line 4138 /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*^clear */ -#line 4138 /*clear *//*_.RETURN___V27*/ meltfptr[23] = 0; MELT_LOCATION ("warmelt-macro.melt:4133:/ checksignal"); -#line 4133 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4133 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { MELT_LOCATION ("warmelt-macro.melt:4133:/ locexp"); -#line 4133 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -49522,25 +40944,19 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4133 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 4133 /*clear *//*_.IFCPP___V7*/ meltfptr[6] = 0; /*^clear */ -#line 4133 /*clear *//*_.IFCPP___V9*/ meltfptr[7] = 0; /*^clear */ -#line 4133 /*clear *//*_.IFCPP___V13*/ meltfptr[9] = 0; /*^clear */ -#line 4133 /*clear *//*_.IFCPP___V15*/ meltfptr[10] = 0; /*^clear */ -#line 4133 /*clear *//*_.LET___V17*/ meltfptr[15] = 0; } @@ -49559,7 +40975,6 @@ labend_rout: } /*end meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN */ -#line 4141 "warmelt-macro.melt" /**::proc::**/ @@ -49635,37 +41050,30 @@ meltrout_67_warmelt_macro_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:4141:/ getarg"); -#line 4141 "warmelt-macro.melt" /**::getarg::**/ /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 4141 /*anyblock*/ { /*^checksignal */ -#line 4141 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4141 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4141 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*~ENV */ meltfclos->tabval[1]); /*^apply.arg */ -#line 4141 argtab[1].meltbp_aptr = (melt_ptr_t *) & ( /*~MEXPANDER */ meltfclos->tabval[0]); /*^apply.arg */ -#line 4141 argtab[2].meltbp_aptr = (melt_ptr_t *) & ( /*~MODCTX */ meltfclos->tabval[2]); /*_.MEXPANDER__V3*/ meltfptr[2] = @@ -49677,14 +41085,12 @@ lab_endgetargs:; } ; /*^quasiblock */ -#line 4141 /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { MELT_LOCATION ("warmelt-macro.melt:4141:/ locexp"); -#line 4141 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -49695,13 +41101,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4141 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 4141 /*clear *//*_.MEXPANDER__V3*/ meltfptr[2] = 0; } @@ -49720,7 +41124,6 @@ labend_rout: } /*end meltrout_67_warmelt_macro_LAMBDA___17__ */ -#line 4152 "warmelt-macro.melt" /**::proc::**/ @@ -49796,12 +41199,10 @@ meltrout_68_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:4152:/ getarg"); -#line 4152 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 4152 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -49811,7 +41212,6 @@ meltrout_68_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 4152 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -49822,7 +41222,6 @@ meltrout_68_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 4152 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -49835,44 +41234,34 @@ meltrout_68_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 4152 /*anyblock*/ { -#line 4153 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4153:/ cppif.then"); -#line 4153 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4153 /*anyblock */ { /*^checksignal */ -#line 4153 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 4153 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:4153:/ cond"); -#line 4153 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4153 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4153:/ cond.else"); -#line 4153 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4153 /*anyblock */ { @@ -49881,7 +41270,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4153 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -49896,58 +41284,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4153:/ clear"); -#line 4153 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 4153 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4153 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4154 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4154:/ cppif.then"); -#line 4154 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4154 /*anyblock */ { /*^checksignal */ -#line 4154 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 4154 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:4154:/ cond"); -#line 4154 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4154 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4154:/ cond.else"); -#line 4154 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4154 /*anyblock */ { @@ -49956,7 +41331,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4154 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -49971,95 +41345,74 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4154:/ clear"); -#line 4154 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 4154 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4154 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4155:/ checksignal"); -#line 4155 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = -#line 4155 "warmelt-macro.melt" /**::expr::**/ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:4155:/ cond"); -#line 4155 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4155 /*^block */ -#line 4155 /*anyblock */ { /*^compute */ -#line 4155 /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V11*/ meltfptr[10] = ( /*!MACROEXPAND_1 */ meltfrout->tabval[2]);; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4155:/ clear"); -#line 4155 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; } else { /*^cond.else */ -#line 4155 /*_.IF___V10*/ meltfptr[8] = NULL;; } ; -#line 4156 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4156:/ cppif.then"); -#line 4156 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4156 /*anyblock */ { /*^checksignal */ -#line 4156 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L4*/ meltfnum[3] = -#line 4156 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:4156:/ cond"); -#line 4156 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 4156 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4156:/ cond.else"); -#line 4156 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4156 /*anyblock */ { @@ -50068,7 +41421,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4156 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -50083,30 +41435,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4156:/ clear"); -#line 4156 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L4*/ meltfnum[3] = 0; /*^clear */ -#line 4156 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4156 /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4157:/ quasiblock"); -#line 4157 "warmelt-macro.melt" /**::quasiblock::**/ /*^getslot */ -#line 4157 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -50115,7 +41461,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4158:/ getslot"); -#line 4158 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -50124,42 +41469,31 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V17*/ meltfptr[16] = -#line 4159 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[14])));; /*^compute */ - /*_.CURPAIR__V18*/ meltfptr[17] = -#line 4159 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));; /*^compute */ - /*_.CURSYM__V19*/ meltfptr[18] = -#line 4160 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:4162:/ checksignal"); -#line 4162 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L5*/ meltfnum[3] = -#line 4162 "warmelt-macro.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURSYM__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; MELT_LOCATION ("warmelt-macro.melt:4162:/ cond"); -#line 4162 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ -#line 4162 /*^block */ -#line 4162 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4164:/ locexp"); -#line 4164 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("var symbol name expected in SETQ"), @@ -50167,18 +41501,15 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4165:/ checksignal"); -#line 4165 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4165 /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { MELT_LOCATION ("warmelt-macro.melt:4165:/ locexp"); -#line 4165 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -50189,79 +41520,60 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4165 ; /*finalret */ goto labend_rout; MELT_LOCATION ("warmelt-macro.melt:4163:/ quasiblock"); -#line 4163 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V22*/ meltfptr[21] = /*_.RETURN___V21*/ meltfptr[20];; /*^compute */ - /*_.IF___V20*/ meltfptr[19] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4162:/ clear"); -#line 4162 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RETURN___V21*/ meltfptr[20] = 0; /*^clear */ -#line 4162 /*clear *//*_.PROGN___V22*/ meltfptr[21] = 0; } ; } else { /*^cond.else */ -#line 4162 /*_.IF___V20*/ meltfptr[19] = NULL;; } ; /*^compute */ - /*_.PAIR_TAIL__V23*/ meltfptr[20] = -#line 4166 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:4166:/ compute"); -#line 4166 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V24*/ meltfptr[21] = /*_.PAIR_TAIL__V23*/ meltfptr[20];; MELT_LOCATION ("warmelt-macro.melt:4167:/ quasiblock"); -#line 4167 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CUREXP__V26*/ meltfptr[25] = -#line 4167 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; /*^compute */ - /*_.PAIR_TAIL__V27*/ meltfptr[26] = -#line 4168 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; MELT_LOCATION ("warmelt-macro.melt:4168:/ compute"); -#line 4168 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V28*/ meltfptr[27] = /*_.PAIR_TAIL__V27*/ meltfptr[26];; MELT_LOCATION ("warmelt-macro.melt:4169:/ checksignal"); -#line 4169 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 4169 /*cond */ if ( /*_.CURPAIR__V18*/ meltfptr[17]) /*then */ { /*^cond.then */ -#line 4169 /*^block */ -#line 4169 /*anyblock */ { { /*^locexp */ -#line 4169 /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("SETQ with more than two sons"), @@ -50274,28 +41586,22 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4170:/ checksignal"); -#line 4170 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:4173:/ checksignal"); -#line 4173 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4173 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4173 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4173 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4173 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXPANDER__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]), @@ -50305,11 +41611,9 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4170:/ quasiblock"); -#line 4170 "warmelt-macro.melt" /**::quasiblock::**/ /*^rawallocobj */ -#line 4170 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -50322,7 +41626,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 4170 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -50332,7 +41635,6 @@ lab_endgetargs:; ( /*_.LOC__V16*/ meltfptr[15]), "LOCA_LOCATION"); ; /*^putslot */ -#line 4170 /*putslot */ melt_assertmsg ("putslot checkobj @SSTQ_VAR", melt_magic_discr ((melt_ptr_t) @@ -50342,7 +41644,6 @@ lab_endgetargs:; ( /*_.CURSYM__V19*/ meltfptr[18]), "SSTQ_VAR"); ; /*^putslot */ -#line 4170 /*putslot */ melt_assertmsg ("putslot checkobj @SSTQ_EXPR", melt_magic_discr ((melt_ptr_t) @@ -50353,69 +41654,50 @@ lab_endgetargs:; ; /*_.INST___V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; /*^compute */ - /*_.LET___V25*/ meltfptr[24] = /*_.INST___V30*/ meltfptr[29];; MELT_LOCATION ("warmelt-macro.melt:4167:/ clear"); -#line 4167 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CUREXP__V26*/ meltfptr[25] = 0; /*^clear */ -#line 4167 /*clear *//*_.PAIR_TAIL__V27*/ meltfptr[26] = 0; /*^clear */ -#line 4167 /*clear *//*_.SETQ___V28*/ meltfptr[27] = 0; /*^clear */ -#line 4167 /*clear *//*_.MEXPANDER__V29*/ meltfptr[28] = 0; /*^clear */ -#line 4167 /*clear *//*_.INST___V30*/ meltfptr[29] = 0; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V25*/ meltfptr[24];; MELT_LOCATION ("warmelt-macro.melt:4157:/ clear"); -#line 4157 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ -#line 4157 /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; /*^clear */ -#line 4157 /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0; /*^clear */ -#line 4157 /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0; /*^clear */ -#line 4157 /*clear *//*_.CURSYM__V19*/ meltfptr[18] = 0; /*^clear */ -#line 4157 /*clear *//*_#IS_NOT_A__L5*/ meltfnum[3] = 0; /*^clear */ -#line 4157 /*clear *//*_.IF___V20*/ meltfptr[19] = 0; /*^clear */ -#line 4157 /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[20] = 0; /*^clear */ -#line 4157 /*clear *//*_.SETQ___V24*/ meltfptr[21] = 0; /*^clear */ -#line 4157 /*clear *//*_.LET___V25*/ meltfptr[24] = 0; MELT_LOCATION ("warmelt-macro.melt:4152:/ checksignal"); -#line 4152 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4152 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { MELT_LOCATION ("warmelt-macro.melt:4152:/ locexp"); -#line 4152 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -50426,28 +41708,21 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4152 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 4152 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 4152 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ -#line 4152 /*clear *//*_#NULL__L3*/ meltfnum[0] = 0; /*^clear */ -#line 4152 /*clear *//*_.IF___V10*/ meltfptr[8] = 0; /*^clear */ -#line 4152 /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0; /*^clear */ -#line 4152 /*clear *//*_.LET___V14*/ meltfptr[12] = 0; } @@ -50466,7 +41741,6 @@ labend_rout: } /*end meltrout_68_warmelt_macro_MEXPAND_SETQ */ -#line 4183 "warmelt-macro.melt" /**::proc::**/ @@ -50542,12 +41816,10 @@ meltrout_69_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:4183:/ getarg"); -#line 4183 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 4183 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -50557,7 +41829,6 @@ meltrout_69_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 4183 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -50568,7 +41839,6 @@ meltrout_69_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 4183 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -50581,24 +41851,19 @@ meltrout_69_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 4183 /*anyblock*/ { -#line 4184 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4184:/ cppif.then"); -#line 4184 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4184 /*anyblock */ { { /*^locexp */ -#line 4184 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -50607,11 +41872,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4184 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 4184 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -50620,18 +41883,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4184:/ cond"); -#line 4184 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4184 /*^block */ -#line 4184 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = -#line 4184 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -50639,29 +41898,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4184:/ checksignal"); -#line 4184 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4184 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4184 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ -#line 4184 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4184 argtab[2].meltbp_long = 4184; /*^apply.arg */ -#line 4184 argtab[3].meltbp_cstring = "mexpand_if sexpr"; /*^apply.arg */ -#line 4184 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = @@ -50678,82 +41930,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4184:/ clear"); -#line 4184 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ -#line 4184 /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; } ; } else { /*^cond.else */ -#line 4184 /*_.IF___V7*/ meltfptr[6] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4184:/ quasiblock"); -#line 4184 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4184:/ clear"); -#line 4184 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 4184 /*clear *//*_.IF___V7*/ meltfptr[6] = 0; /*^clear */ -#line 4184 /*clear *//*_.PROGN___V9*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4184 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4185 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4185:/ cppif.then"); -#line 4185 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4185 /*anyblock */ { /*^checksignal */ -#line 4185 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = -#line 4185 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:4185:/ cond"); -#line 4185 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 4185 /*_.IFELSE___V11*/ meltfptr[7] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4185:/ cond.else"); -#line 4185 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4185 /*anyblock */ { @@ -50762,7 +41996,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4185 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -50777,58 +42010,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4185:/ clear"); -#line 4185 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 4185 /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4185 /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4186 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4186:/ cppif.then"); -#line 4186 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4186 /*anyblock */ { /*^checksignal */ -#line 4186 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[0] = -#line 4186 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:4186:/ cond"); -#line 4186 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4186 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4186:/ cond.else"); -#line 4186 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4186 /*anyblock */ { @@ -50837,7 +42057,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4186 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -50852,95 +42071,74 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4186:/ clear"); -#line 4186 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ -#line 4186 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4186 /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4187:/ checksignal"); -#line 4187 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = -#line 4187 "warmelt-macro.melt" /**::expr::**/ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:4187:/ cond"); -#line 4187 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 4187 /*^block */ -#line 4187 /*anyblock */ { /*^compute */ -#line 4187 /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[14] = ( /*!MACROEXPAND_1 */ meltfrout->tabval[3]);; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4187:/ clear"); -#line 4187 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; } else { /*^cond.else */ -#line 4187 /*_.IF___V14*/ meltfptr[12] = NULL;; } ; -#line 4188 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4188:/ cppif.then"); -#line 4188 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4188 /*anyblock */ { /*^checksignal */ -#line 4188 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L6*/ meltfnum[0] = -#line 4188 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:4188:/ cond"); -#line 4188 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4188 /*_.IFELSE___V17*/ meltfptr[16] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4188:/ cond.else"); -#line 4188 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4188 /*anyblock */ { @@ -50949,7 +42147,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4188 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -50964,30 +42161,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4188:/ clear"); -#line 4188 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ -#line 4188 /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4188 /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4189:/ quasiblock"); -#line 4189 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:4190:/ getslot"); -#line 4190 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -50996,7 +42187,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4191:/ getslot"); -#line 4191 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -51005,46 +42195,33 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V21*/ meltfptr[20] = -#line 4192 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));; /*^compute */ - /*_.CURPAIR__V22*/ meltfptr[21] = -#line 4192 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; /*^compute */ - /*_.CURIF__V23*/ meltfptr[22] = -#line 4193 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:4194:/ checksignal"); -#line 4194 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[0] = -#line 4194 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L8*/ meltfnum[7] = -#line 4194 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L7*/ meltfnum[0]));; MELT_LOCATION ("warmelt-macro.melt:4194:/ cond"); -#line 4194 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 4194 /*^block */ -#line 4194 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4195:/ locexp"); -#line 4195 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing condition in IF"), (melt_ptr_t) 0); @@ -51056,40 +42233,30 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = -#line 4196 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:4196:/ compute"); -#line 4196 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[23];; MELT_LOCATION ("warmelt-macro.melt:4197:/ checksignal"); -#line 4197 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L9*/ meltfnum[8] = -#line 4197 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L10*/ meltfnum[9] = -#line 4197 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L9*/ meltfnum[8]));; MELT_LOCATION ("warmelt-macro.melt:4197:/ cond"); -#line 4197 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 4197 /*^block */ -#line 4197 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4198:/ locexp"); -#line 4198 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing then in IF"), (melt_ptr_t) 0); @@ -51101,28 +42268,22 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4199:/ quasiblock"); -#line 4199 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 4199 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4199 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4199 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4199 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4199 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.XCOND__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]), @@ -51132,19 +42293,15 @@ lab_endgetargs:; } ; -#line 4200 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4200:/ cppif.then"); -#line 4200 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4200 /*anyblock */ { { /*^locexp */ -#line 4200 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -51153,11 +42310,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4200 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = -#line 4200 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -51166,18 +42321,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4200:/ cond"); -#line 4200 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 4200 /*^block */ -#line 4200 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = -#line 4200 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -51185,30 +42336,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4200:/ checksignal"); -#line 4200 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4200 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4200 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11]; /*^apply.arg */ -#line 4200 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4200 argtab[2].meltbp_long = 4200; /*^apply.arg */ -#line 4200 argtab[3].meltbp_cstring = "mexpand_if xcond"; /*^apply.arg */ -#line 4200 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.XCOND__V27*/ meltfptr[26]; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = @@ -51226,87 +42370,67 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4200:/ clear"); -#line 4200 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ -#line 4200 /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; } ; } else { /*^cond.else */ -#line 4200 /*_.IF___V29*/ meltfptr[28] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4200:/ quasiblock"); -#line 4200 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];; /*^compute */ - /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4200:/ clear"); -#line 4200 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ -#line 4200 /*clear *//*_.IF___V29*/ meltfptr[28] = 0; /*^clear */ -#line 4200 /*clear *//*_.PROGN___V31*/ meltfptr[29] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4200 /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4201:/ quasiblock"); -#line 4201 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURTHEN__V33*/ meltfptr[29] = -#line 4201 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; /*^compute */ - /*_.PAIR_TAIL__V34*/ meltfptr[33] = -#line 4202 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:4202:/ compute"); -#line 4202 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V35*/ meltfptr[34] = /*_.PAIR_TAIL__V34*/ meltfptr[33];; MELT_LOCATION ("warmelt-macro.melt:4203:/ quasiblock"); -#line 4203 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 4203 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4203 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4203 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4203 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4203 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.XTHEN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]), @@ -51316,19 +42440,15 @@ lab_endgetargs:; } ; -#line 4205 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4205:/ cppif.then"); -#line 4205 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4205 /*anyblock */ { { /*^locexp */ -#line 4205 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -51337,11 +42457,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4205 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = -#line 4205 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -51350,18 +42468,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4205:/ cond"); -#line 4205 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 4205 /*^block */ -#line 4205 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10] = -#line 4205 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -51369,30 +42483,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4205:/ checksignal"); -#line 4205 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4205 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4205 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10]; /*^apply.arg */ -#line 4205 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4205 argtab[2].meltbp_long = 4205; /*^apply.arg */ -#line 4205 argtab[3].meltbp_cstring = "mexpand_if xthen"; /*^apply.arg */ -#line 4205 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.XTHEN__V37*/ meltfptr[36]; /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = @@ -51410,95 +42517,74 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4205:/ clear"); -#line 4205 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10] = 0; /*^clear */ -#line 4205 /*clear *//*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0; } ; } else { /*^cond.else */ -#line 4205 /*_.IF___V39*/ meltfptr[38] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4205:/ quasiblock"); -#line 4205 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V41*/ meltfptr[39] = /*_.IF___V39*/ meltfptr[38];; /*^compute */ - /*_.IFCPP___V38*/ meltfptr[37] = /*_.PROGN___V41*/ meltfptr[39];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4205:/ clear"); -#line 4205 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 0; /*^clear */ -#line 4205 /*clear *//*_.IF___V39*/ meltfptr[38] = 0; /*^clear */ -#line 4205 /*clear *//*_.PROGN___V41*/ meltfptr[39] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4205 /*_.IFCPP___V38*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4206:/ checksignal"); -#line 4206 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L15*/ meltfnum[10] = -#line 4206 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; MELT_LOCATION ("warmelt-macro.melt:4206:/ cond"); -#line 4206 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_PAIR__L15*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 4206 /*^block */ -#line 4206 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:4207:/ quasiblock"); -#line 4207 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURELSE__V44*/ meltfptr[43] = -#line 4207 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:4208:/ checksignal"); -#line 4208 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4208 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4208 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4208 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4208 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.XELSE__V45*/ meltfptr[44] = @@ -51510,19 +42596,15 @@ lab_endgetargs:; } ; -#line 4209 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4209:/ cppif.then"); -#line 4209 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4209 /*anyblock */ { { /*^locexp */ -#line 4209 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -51531,11 +42613,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4209 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L16*/ meltfnum[11] = -#line 4209 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -51544,18 +42624,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4209:/ cond"); -#line 4209 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 4209 /*^block */ -#line 4209 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = -#line 4209 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -51563,30 +42639,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4209:/ checksignal"); -#line 4209 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4209 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4209 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16]; /*^apply.arg */ -#line 4209 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4209 argtab[2].meltbp_long = 4209; /*^apply.arg */ -#line 4209 argtab[3].meltbp_cstring = "mexpand_if xelse"; /*^apply.arg */ -#line 4209 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.XELSE__V45*/ meltfptr[44]; /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = @@ -51605,82 +42674,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4209:/ clear"); -#line 4209 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ -#line 4209 /*clear *//*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0; } ; } else { /*^cond.else */ -#line 4209 /*_.IF___V47*/ meltfptr[46] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4209:/ quasiblock"); -#line 4209 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V49*/ meltfptr[47] = /*_.IF___V47*/ meltfptr[46];; /*^compute */ - /*_.IFCPP___V46*/ meltfptr[45] = /*_.PROGN___V49*/ meltfptr[47];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4209:/ clear"); -#line 4209 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[11] = 0; /*^clear */ -#line 4209 /*clear *//*_.IF___V47*/ meltfptr[46] = 0; /*^clear */ -#line 4209 /*clear *//*_.PROGN___V49*/ meltfptr[47] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4209 /*_.IFCPP___V46*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.PAIR_TAIL__V50*/ meltfptr[46] = -#line 4210 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:4210:/ compute"); -#line 4210 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V51*/ meltfptr[47] = /*_.PAIR_TAIL__V50*/ meltfptr[46];; MELT_LOCATION ("warmelt-macro.melt:4211:/ checksignal"); -#line 4211 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L18*/ meltfnum[16] = -#line 4211 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; MELT_LOCATION ("warmelt-macro.melt:4211:/ cond"); -#line 4211 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_PAIR__L18*/ meltfnum[16]) /*then */ { /*^cond.then */ -#line 4211 /*^block */ -#line 4211 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4212:/ locexp"); -#line 4212 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -51694,19 +42745,15 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4213:/ quasiblock"); -#line 4213 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:4214:/ checksignal"); -#line 4214 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4214 /*^rawallocobj */ -#line 4214 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -51719,7 +42766,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 4214 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -51730,7 +42776,6 @@ lab_endgetargs:; "LOCA_LOCATION"); ; /*^putslot */ -#line 4214 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_TEST", melt_magic_discr ((melt_ptr_t) @@ -51740,7 +42785,6 @@ lab_endgetargs:; ( /*_.XCOND__V27*/ meltfptr[26]), "SIF_TEST"); ; /*^putslot */ -#line 4214 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_THEN", melt_magic_discr ((melt_ptr_t) @@ -51750,7 +42794,6 @@ lab_endgetargs:; ( /*_.XTHEN__V37*/ meltfptr[36]), "SIF_THEN"); ; /*^putslot */ -#line 4214 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_ELSE", melt_magic_discr ((melt_ptr_t) @@ -51761,19 +42804,15 @@ lab_endgetargs:; ; /*_.RESE__V53*/ meltfptr[52] = /*_.INST__V54*/ meltfptr[53];; -#line 4220 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4220:/ cppif.then"); -#line 4220 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4220 /*anyblock */ { { /*^locexp */ -#line 4220 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -51782,11 +42821,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4220 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L19*/ meltfnum[11] = -#line 4220 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -51795,18 +42832,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4220:/ cond"); -#line 4220 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 4220 /*^block */ -#line 4220 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = -#line 4220 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -51814,31 +42847,24 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4220:/ checksignal"); -#line 4220 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4220 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4220 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19]; /*^apply.arg */ -#line 4220 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4220 argtab[2].meltbp_long = 4220; /*^apply.arg */ -#line 4220 argtab[3].meltbp_cstring = "mexpand_if with else return rese"; /*^apply.arg */ -#line 4220 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.RESE__V53*/ meltfptr[52]; /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = @@ -51857,61 +42883,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4220:/ clear"); -#line 4220 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0; /*^clear */ -#line 4220 /*clear *//*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0; } ; } else { /*^cond.else */ -#line 4220 /*_.IF___V56*/ meltfptr[55] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4220:/ quasiblock"); -#line 4220 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V58*/ meltfptr[56] = /*_.IF___V56*/ meltfptr[55];; /*^compute */ - /*_.IFCPP___V55*/ meltfptr[54] = /*_.PROGN___V58*/ meltfptr[56];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4220:/ clear"); -#line 4220 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[11] = 0; /*^clear */ -#line 4220 /*clear *//*_.IF___V56*/ meltfptr[55] = 0; /*^clear */ -#line 4220 /*clear *//*_.PROGN___V58*/ meltfptr[56] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4220 /*_.IFCPP___V55*/ meltfptr[54] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4221:/ checksignal"); -#line 4221 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4221 /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESE__V53*/ meltfptr[52];; { MELT_LOCATION ("warmelt-macro.melt:4221:/ locexp"); -#line 4221 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -51922,75 +42936,57 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4221 ; /*finalret */ goto labend_rout; /*_.LET___V52*/ meltfptr[51] = /*_.RETURN___V59*/ meltfptr[55];; MELT_LOCATION ("warmelt-macro.melt:4213:/ clear"); -#line 4213 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RESE__V53*/ meltfptr[52] = 0; /*^clear */ -#line 4213 /*clear *//*_.IFCPP___V55*/ meltfptr[54] = 0; /*^clear */ -#line 4213 /*clear *//*_.RETURN___V59*/ meltfptr[55] = 0; /*_.LET___V43*/ meltfptr[39] = /*_.LET___V52*/ meltfptr[51];; MELT_LOCATION ("warmelt-macro.melt:4207:/ clear"); -#line 4207 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURELSE__V44*/ meltfptr[43] = 0; /*^clear */ -#line 4207 /*clear *//*_.XELSE__V45*/ meltfptr[44] = 0; /*^clear */ -#line 4207 /*clear *//*_.IFCPP___V46*/ meltfptr[45] = 0; /*^clear */ -#line 4207 /*clear *//*_.PAIR_TAIL__V50*/ meltfptr[46] = 0; /*^clear */ -#line 4207 /*clear *//*_.SETQ___V51*/ meltfptr[47] = 0; /*^clear */ -#line 4207 /*clear *//*_#IS_PAIR__L18*/ meltfnum[16] = 0; /*^clear */ -#line 4207 /*clear *//*_.LET___V52*/ meltfptr[51] = 0; /*_.IFELSE___V42*/ meltfptr[38] = /*_.LET___V43*/ meltfptr[39];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4206:/ clear"); -#line 4206 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V43*/ meltfptr[39] = 0; } ; } else { /*^cond.else */ -#line 4206 /*^block */ -#line 4206 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:4222:/ quasiblock"); -#line 4222 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 4222 MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4222 /*^rawallocobj */ -#line 4222 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -52003,7 +42999,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 4222 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -52014,7 +43009,6 @@ lab_endgetargs:; "LOCA_LOCATION"); ; /*^putslot */ -#line 4222 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_TEST", melt_magic_discr ((melt_ptr_t) @@ -52024,7 +43018,6 @@ lab_endgetargs:; ( /*_.XCOND__V27*/ meltfptr[26]), "SIF_TEST"); ; /*^putslot */ -#line 4222 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_THEN", melt_magic_discr ((melt_ptr_t) @@ -52035,19 +43028,15 @@ lab_endgetargs:; ; /*_.RESP__V61*/ meltfptr[52] = /*_.INST__V62*/ meltfptr[54];; -#line 4226 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4226:/ cppif.then"); -#line 4226 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4226 /*anyblock */ { { /*^locexp */ -#line 4226 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -52056,11 +43045,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4226 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = -#line 4226 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -52069,18 +43056,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4226:/ cond"); -#line 4226 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then */ { /*^cond.then */ -#line 4226 /*^block */ -#line 4226 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11] = -#line 4226 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -52088,30 +43071,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4226:/ checksignal"); -#line 4226 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4226 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4226 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11]; /*^apply.arg */ -#line 4226 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4226 argtab[2].meltbp_long = 4226; /*^apply.arg */ -#line 4226 argtab[3].meltbp_cstring = "mexpand_if plain return resp"; /*^apply.arg */ -#line 4226 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.RESP__V61*/ meltfptr[52]; /*_.MELT_DEBUG_FUN__V65*/ meltfptr[44] = @@ -52130,61 +43106,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4226:/ clear"); -#line 4226 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11] = 0; /*^clear */ -#line 4226 /*clear *//*_.MELT_DEBUG_FUN__V65*/ meltfptr[44] = 0; } ; } else { /*^cond.else */ -#line 4226 /*_.IF___V64*/ meltfptr[43] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4226:/ quasiblock"); -#line 4226 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V66*/ meltfptr[45] = /*_.IF___V64*/ meltfptr[43];; /*^compute */ - /*_.IFCPP___V63*/ meltfptr[55] = /*_.PROGN___V66*/ meltfptr[45];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4226:/ clear"); -#line 4226 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0; /*^clear */ -#line 4226 /*clear *//*_.IF___V64*/ meltfptr[43] = 0; /*^clear */ -#line 4226 /*clear *//*_.PROGN___V66*/ meltfptr[45] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4226 /*_.IFCPP___V63*/ meltfptr[55] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4227:/ checksignal"); -#line 4227 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4227 /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V61*/ meltfptr[52];; { MELT_LOCATION ("warmelt-macro.melt:4227:/ locexp"); -#line 4227 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -52195,25 +43159,20 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4227 ; /*finalret */ goto labend_rout; /*_.LET___V60*/ meltfptr[56] = /*_.RETURN___V67*/ meltfptr[46];; MELT_LOCATION ("warmelt-macro.melt:4222:/ clear"); -#line 4222 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.RESP__V61*/ meltfptr[52] = 0; /*^clear */ -#line 4222 /*clear *//*_.IFCPP___V63*/ meltfptr[55] = 0; /*^clear */ -#line 4222 /*clear *//*_.RETURN___V67*/ meltfptr[46] = 0; /*_.IFELSE___V42*/ meltfptr[38] = /*_.LET___V60*/ meltfptr[56];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4206:/ clear"); -#line 4206 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V60*/ meltfptr[56] = 0; } ; @@ -52222,93 +43181,67 @@ lab_endgetargs:; /*_.LET___V36*/ meltfptr[35] = /*_.IFELSE___V42*/ meltfptr[38];; MELT_LOCATION ("warmelt-macro.melt:4203:/ clear"); -#line 4203 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.XTHEN__V37*/ meltfptr[36] = 0; /*^clear */ -#line 4203 /*clear *//*_.IFCPP___V38*/ meltfptr[37] = 0; /*^clear */ -#line 4203 /*clear *//*_#IS_PAIR__L15*/ meltfnum[10] = 0; /*^clear */ -#line 4203 /*clear *//*_.IFELSE___V42*/ meltfptr[38] = 0; /*_.LET___V32*/ meltfptr[28] = /*_.LET___V36*/ meltfptr[35];; MELT_LOCATION ("warmelt-macro.melt:4201:/ clear"); -#line 4201 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURTHEN__V33*/ meltfptr[29] = 0; /*^clear */ -#line 4201 /*clear *//*_.PAIR_TAIL__V34*/ meltfptr[33] = 0; /*^clear */ -#line 4201 /*clear *//*_.SETQ___V35*/ meltfptr[34] = 0; /*^clear */ -#line 4201 /*clear *//*_.LET___V36*/ meltfptr[35] = 0; /*_.LET___V26*/ meltfptr[25] = /*_.LET___V32*/ meltfptr[28];; MELT_LOCATION ("warmelt-macro.melt:4199:/ clear"); -#line 4199 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.XCOND__V27*/ meltfptr[26] = 0; /*^clear */ -#line 4199 /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0; /*^clear */ -#line 4199 /*clear *//*_.LET___V32*/ meltfptr[28] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V26*/ meltfptr[25];; MELT_LOCATION ("warmelt-macro.melt:4189:/ clear"); -#line 4189 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ -#line 4189 /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; /*^clear */ -#line 4189 /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0; /*^clear */ -#line 4189 /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0; /*^clear */ -#line 4189 /*clear *//*_.CURIF__V23*/ meltfptr[22] = 0; /*^clear */ -#line 4189 /*clear *//*_#IS_PAIR__L7*/ meltfnum[0] = 0; /*^clear */ -#line 4189 /*clear *//*_#NOT__L8*/ meltfnum[7] = 0; /*^clear */ -#line 4189 /*clear *//*_.PAIR_TAIL__V24*/ meltfptr[23] = 0; /*^clear */ -#line 4189 /*clear *//*_.SETQ___V25*/ meltfptr[24] = 0; /*^clear */ -#line 4189 /*clear *//*_#IS_PAIR__L9*/ meltfnum[8] = 0; /*^clear */ -#line 4189 /*clear *//*_#NOT__L10*/ meltfnum[9] = 0; /*^clear */ -#line 4189 /*clear *//*_.LET___V26*/ meltfptr[25] = 0; MELT_LOCATION ("warmelt-macro.melt:4183:/ checksignal"); -#line 4183 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4183 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { MELT_LOCATION ("warmelt-macro.melt:4183:/ locexp"); -#line 4183 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -52319,31 +43252,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4183 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 4183 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 4183 /*clear *//*_.IFCPP___V10*/ meltfptr[6] = 0; /*^clear */ -#line 4183 /*clear *//*_.IFCPP___V12*/ meltfptr[7] = 0; /*^clear */ -#line 4183 /*clear *//*_#NULL__L5*/ meltfnum[1] = 0; /*^clear */ -#line 4183 /*clear *//*_.IF___V14*/ meltfptr[12] = 0; /*^clear */ -#line 4183 /*clear *//*_.IFCPP___V16*/ meltfptr[14] = 0; /*^clear */ -#line 4183 /*clear *//*_.LET___V18*/ meltfptr[16] = 0; } @@ -52362,7 +43287,6 @@ labend_rout: } /*end meltrout_69_warmelt_macro_MEXPAND_IF */ -#line 4237 "warmelt-macro.melt" /**::proc::**/ @@ -52438,12 +43362,10 @@ meltrout_70_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:4237:/ getarg"); -#line 4237 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 4237 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -52453,7 +43375,6 @@ meltrout_70_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 4237 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -52464,7 +43385,6 @@ meltrout_70_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 4237 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -52477,24 +43397,19 @@ meltrout_70_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 4237 /*anyblock*/ { -#line 4238 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4238:/ cppif.then"); -#line 4238 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4238 /*anyblock */ { { /*^locexp */ -#line 4238 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -52503,11 +43418,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4238 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 4238 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -52516,18 +43429,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4238:/ cond"); -#line 4238 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4238 /*^block */ -#line 4238 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = -#line 4238 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -52535,29 +43444,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4238:/ checksignal"); -#line 4238 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4238 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4238 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ -#line 4238 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4238 argtab[2].meltbp_long = 4238; /*^apply.arg */ -#line 4238 argtab[3].meltbp_cstring = "mexpand_when sexpr"; /*^apply.arg */ -#line 4238 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = @@ -52574,82 +43476,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4238:/ clear"); -#line 4238 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ -#line 4238 /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; } ; } else { /*^cond.else */ -#line 4238 /*_.IF___V7*/ meltfptr[6] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4238:/ quasiblock"); -#line 4238 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4238:/ clear"); -#line 4238 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 4238 /*clear *//*_.IF___V7*/ meltfptr[6] = 0; /*^clear */ -#line 4238 /*clear *//*_.PROGN___V9*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4238 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4239 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4239:/ cppif.then"); -#line 4239 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4239 /*anyblock */ { /*^checksignal */ -#line 4239 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = -#line 4239 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:4239:/ cond"); -#line 4239 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 4239 /*_.IFELSE___V11*/ meltfptr[7] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4239:/ cond.else"); -#line 4239 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4239 /*anyblock */ { @@ -52658,7 +43542,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4239 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -52673,58 +43556,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4239:/ clear"); -#line 4239 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 4239 /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4239 /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4240 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4240:/ cppif.then"); -#line 4240 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4240 /*anyblock */ { /*^checksignal */ -#line 4240 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[0] = -#line 4240 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:4240:/ cond"); -#line 4240 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4240 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4240:/ cond.else"); -#line 4240 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4240 /*anyblock */ { @@ -52733,7 +43603,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4240 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -52748,95 +43617,74 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4240:/ clear"); -#line 4240 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ -#line 4240 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4240 /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4241:/ checksignal"); -#line 4241 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = -#line 4241 "warmelt-macro.melt" /**::expr::**/ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:4241:/ cond"); -#line 4241 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 4241 /*^block */ -#line 4241 /*anyblock */ { /*^compute */ -#line 4241 /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[14] = ( /*!MACROEXPAND_1 */ meltfrout->tabval[3]);; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4241:/ clear"); -#line 4241 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; } else { /*^cond.else */ -#line 4241 /*_.IF___V14*/ meltfptr[12] = NULL;; } ; -#line 4242 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4242:/ cppif.then"); -#line 4242 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4242 /*anyblock */ { /*^checksignal */ -#line 4242 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L6*/ meltfnum[0] = -#line 4242 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:4242:/ cond"); -#line 4242 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4242 /*_.IFELSE___V17*/ meltfptr[16] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4242:/ cond.else"); -#line 4242 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4242 /*anyblock */ { @@ -52845,7 +43693,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4242 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -52860,30 +43707,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4242:/ clear"); -#line 4242 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ -#line 4242 /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4242 /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4243:/ quasiblock"); -#line 4243 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:4244:/ getslot"); -#line 4244 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -52892,7 +43733,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4245:/ getslot"); -#line 4245 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -52901,46 +43741,33 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V21*/ meltfptr[20] = -#line 4246 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));; /*^compute */ - /*_.CURPAIR__V22*/ meltfptr[21] = -#line 4246 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; /*^compute */ - /*_.CURIF__V23*/ meltfptr[22] = -#line 4247 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:4249:/ checksignal"); -#line 4249 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[0] = -#line 4249 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L8*/ meltfnum[7] = -#line 4249 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L7*/ meltfnum[0]));; MELT_LOCATION ("warmelt-macro.melt:4249:/ cond"); -#line 4249 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 4249 /*^block */ -#line 4249 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4250:/ locexp"); -#line 4250 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing condition in WHEN"), (melt_ptr_t) 0); @@ -52952,40 +43779,30 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = -#line 4251 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:4251:/ compute"); -#line 4251 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[23];; MELT_LOCATION ("warmelt-macro.melt:4252:/ checksignal"); -#line 4252 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L9*/ meltfnum[8] = -#line 4252 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L10*/ meltfnum[9] = -#line 4252 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L9*/ meltfnum[8]));; MELT_LOCATION ("warmelt-macro.melt:4252:/ cond"); -#line 4252 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 4252 /*^block */ -#line 4252 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4253:/ locexp"); -#line 4253 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing body in WHEN"), (melt_ptr_t) 0); @@ -52997,28 +43814,22 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4254:/ quasiblock"); -#line 4254 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 4254 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4254 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4254 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4254 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4254 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.XCOND__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]), @@ -53028,27 +43839,21 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4255:/ checksignal"); -#line 4255 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4255 /*apply */ { union meltparam_un argtab[4]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4255 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V20*/ meltfptr[19]; /*^apply.arg */ -#line 4255 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4255 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4255 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.XPROGN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t) @@ -53060,15 +43865,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4256:/ checksignal"); -#line 4256 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4256 /*^rawallocobj */ -#line 4256 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -53081,7 +43883,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 4256 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -53091,7 +43892,6 @@ lab_endgetargs:; ( /*_.LOC__V20*/ meltfptr[19]), "LOCA_LOCATION"); ; /*^putslot */ -#line 4256 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_TEST", melt_magic_discr ((melt_ptr_t) @@ -53101,7 +43901,6 @@ lab_endgetargs:; ( /*_.XCOND__V27*/ meltfptr[26]), "SIF_TEST"); ; /*^putslot */ -#line 4256 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_THEN", melt_magic_discr ((melt_ptr_t) @@ -53112,19 +43911,15 @@ lab_endgetargs:; ; /*_.XWHEN__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; -#line 4261 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4261:/ cppif.then"); -#line 4261 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4261 /*anyblock */ { { /*^locexp */ -#line 4261 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -53133,11 +43928,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4261 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = -#line 4261 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -53146,18 +43939,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4261:/ cond"); -#line 4261 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 4261 /*^block */ -#line 4261 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = -#line 4261 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -53165,30 +43954,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4261:/ checksignal"); -#line 4261 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4261 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4261 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11]; /*^apply.arg */ -#line 4261 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4261 argtab[2].meltbp_long = 4261; /*^apply.arg */ -#line 4261 argtab[3].meltbp_cstring = "mexpand_when return xwhen="; /*^apply.arg */ -#line 4261 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.XWHEN__V29*/ meltfptr[28]; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = @@ -53206,61 +43988,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4261:/ clear"); -#line 4261 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ -#line 4261 /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; } ; } else { /*^cond.else */ -#line 4261 /*_.IF___V32*/ meltfptr[31] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4261:/ quasiblock"); -#line 4261 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[31];; /*^compute */ - /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4261:/ clear"); -#line 4261 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ -#line 4261 /*clear *//*_.IF___V32*/ meltfptr[31] = 0; /*^clear */ -#line 4261 /*clear *//*_.PROGN___V34*/ meltfptr[32] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4261 /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4262:/ checksignal"); -#line 4262 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4262 /*_.RETVAL___V1*/ meltfptr[0] = /*_.XWHEN__V29*/ meltfptr[28];; { MELT_LOCATION ("warmelt-macro.melt:4262:/ locexp"); -#line 4262 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -53271,77 +44041,56 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4262 ; /*finalret */ goto labend_rout; /*_.LET___V26*/ meltfptr[25] = /*_.RETURN___V35*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:4254:/ clear"); -#line 4254 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.XCOND__V27*/ meltfptr[26] = 0; /*^clear */ -#line 4254 /*clear *//*_.XPROGN__V28*/ meltfptr[27] = 0; /*^clear */ -#line 4254 /*clear *//*_.XWHEN__V29*/ meltfptr[28] = 0; /*^clear */ -#line 4254 /*clear *//*_.IFCPP___V31*/ meltfptr[30] = 0; /*^clear */ -#line 4254 /*clear *//*_.RETURN___V35*/ meltfptr[31] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V26*/ meltfptr[25];; MELT_LOCATION ("warmelt-macro.melt:4243:/ clear"); -#line 4243 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ -#line 4243 /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; /*^clear */ -#line 4243 /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0; /*^clear */ -#line 4243 /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0; /*^clear */ -#line 4243 /*clear *//*_.CURIF__V23*/ meltfptr[22] = 0; /*^clear */ -#line 4243 /*clear *//*_#IS_PAIR__L7*/ meltfnum[0] = 0; /*^clear */ -#line 4243 /*clear *//*_#NOT__L8*/ meltfnum[7] = 0; /*^clear */ -#line 4243 /*clear *//*_.PAIR_TAIL__V24*/ meltfptr[23] = 0; /*^clear */ -#line 4243 /*clear *//*_.SETQ___V25*/ meltfptr[24] = 0; /*^clear */ -#line 4243 /*clear *//*_#IS_PAIR__L9*/ meltfnum[8] = 0; /*^clear */ -#line 4243 /*clear *//*_#NOT__L10*/ meltfnum[9] = 0; /*^clear */ -#line 4243 /*clear *//*_.LET___V26*/ meltfptr[25] = 0; MELT_LOCATION ("warmelt-macro.melt:4237:/ checksignal"); -#line 4237 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4237 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { MELT_LOCATION ("warmelt-macro.melt:4237:/ locexp"); -#line 4237 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -53352,31 +44101,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4237 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 4237 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 4237 /*clear *//*_.IFCPP___V10*/ meltfptr[6] = 0; /*^clear */ -#line 4237 /*clear *//*_.IFCPP___V12*/ meltfptr[7] = 0; /*^clear */ -#line 4237 /*clear *//*_#NULL__L5*/ meltfnum[1] = 0; /*^clear */ -#line 4237 /*clear *//*_.IF___V14*/ meltfptr[12] = 0; /*^clear */ -#line 4237 /*clear *//*_.IFCPP___V16*/ meltfptr[14] = 0; /*^clear */ -#line 4237 /*clear *//*_.LET___V18*/ meltfptr[16] = 0; } @@ -53395,7 +44136,6 @@ labend_rout: } /*end meltrout_70_warmelt_macro_MEXPAND_WHEN */ -#line 4273 "warmelt-macro.melt" /**::proc::**/ @@ -53472,12 +44212,10 @@ meltrout_71_warmelt_macro_MEXPAND_UNLESS (meltclosure_ptr_t meltclosp_, /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:4273:/ getarg"); -#line 4273 "warmelt-macro.melt" /**::getarg::**/ /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 4273 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = @@ -53487,7 +44225,6 @@ meltrout_71_warmelt_macro_MEXPAND_UNLESS (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 4273 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = @@ -53498,7 +44235,6 @@ meltrout_71_warmelt_macro_MEXPAND_UNLESS (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 4273 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = @@ -53511,24 +44247,19 @@ meltrout_71_warmelt_macro_MEXPAND_UNLESS (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 4273 /*anyblock*/ { -#line 4274 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4274:/ cppif.then"); -#line 4274 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4274 /*anyblock */ { { /*^locexp */ -#line 4274 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -53537,11 +44268,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4274 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 4274 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -53550,18 +44279,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4274:/ cond"); -#line 4274 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4274 /*^block */ -#line 4274 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = -#line 4274 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -53569,29 +44294,22 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4274:/ checksignal"); -#line 4274 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4274 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4274 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ -#line 4274 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4274 argtab[2].meltbp_long = 4274; /*^apply.arg */ -#line 4274 argtab[3].meltbp_cstring = "mexpand_unless sexpr"; /*^apply.arg */ -#line 4274 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = @@ -53608,82 +44326,64 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4274:/ clear"); -#line 4274 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ -#line 4274 /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; } ; } else { /*^cond.else */ -#line 4274 /*_.IF___V7*/ meltfptr[6] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4274:/ quasiblock"); -#line 4274 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4274:/ clear"); -#line 4274 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 4274 /*clear *//*_.IF___V7*/ meltfptr[6] = 0; /*^clear */ -#line 4274 /*clear *//*_.PROGN___V9*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4274 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4275 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4275:/ cppif.then"); -#line 4275 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4275 /*anyblock */ { /*^checksignal */ -#line 4275 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = -#line 4275 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; MELT_LOCATION ("warmelt-macro.melt:4275:/ cond"); -#line 4275 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 4275 /*_.IFELSE___V11*/ meltfptr[7] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4275:/ cond.else"); -#line 4275 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4275 /*anyblock */ { @@ -53692,7 +44392,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4275 melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -53707,58 +44406,45 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4275:/ clear"); -#line 4275 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 4275 /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4275 /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 4276 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4276:/ cppif.then"); -#line 4276 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4276 /*anyblock */ { /*^checksignal */ -#line 4276 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[0] = -#line 4276 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; MELT_LOCATION ("warmelt-macro.melt:4276:/ cond"); -#line 4276 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4276 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4276:/ cond.else"); -#line 4276 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4276 /*anyblock */ { @@ -53767,7 +44453,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4276 melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -53782,95 +44467,74 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4276:/ clear"); -#line 4276 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ -#line 4276 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4276 /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4277:/ checksignal"); -#line 4277 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = -#line 4277 "warmelt-macro.melt" /**::expr::**/ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; MELT_LOCATION ("warmelt-macro.melt:4277:/ cond"); -#line 4277 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 4277 /*^block */ -#line 4277 /*anyblock */ { /*^compute */ -#line 4277 /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[14] = ( /*!MACROEXPAND_1 */ meltfrout->tabval[3]);; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4277:/ clear"); -#line 4277 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; } else { /*^cond.else */ -#line 4277 /*_.IF___V14*/ meltfptr[12] = NULL;; } ; -#line 4278 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4278:/ cppif.then"); -#line 4278 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4278 /*anyblock */ { /*^checksignal */ -#line 4278 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L6*/ meltfnum[0] = -#line 4278 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:4278:/ cond"); -#line 4278 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 4278 /*_.IFELSE___V17*/ meltfptr[16] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:4278:/ cond.else"); -#line 4278 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ -#line 4278 /*anyblock */ { @@ -53879,7 +44543,6 @@ lab_endgetargs:; { /*^locexp */ -#line 4278 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, @@ -53894,30 +44557,24 @@ lab_endgetargs:; } ; /*^compute */ - /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4278:/ clear"); -#line 4278 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ -#line 4278 /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4278 /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4279:/ quasiblock"); -#line 4279 "warmelt-macro.melt" /**::quasiblock::**/ MELT_LOCATION ("warmelt-macro.melt:4280:/ getslot"); -#line 4280 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -53926,7 +44583,6 @@ lab_endgetargs:; }; ; MELT_LOCATION ("warmelt-macro.melt:4281:/ getslot"); -#line 4281 "warmelt-macro.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -53935,46 +44591,33 @@ lab_endgetargs:; }; ; /*_.LIST_FIRST__V21*/ meltfptr[20] = -#line 4282 "warmelt-macro.melt" /**::expr::**/ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));; /*^compute */ - /*_.CURPAIR__V22*/ meltfptr[21] = -#line 4282 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; /*^compute */ - /*_.CURIF__V23*/ meltfptr[22] = -#line 4283 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:4285:/ checksignal"); -#line 4285 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[0] = -#line 4285 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L8*/ meltfnum[7] = -#line 4285 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L7*/ meltfnum[0]));; MELT_LOCATION ("warmelt-macro.melt:4285:/ cond"); -#line 4285 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 4285 /*^block */ -#line 4285 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4286:/ locexp"); -#line 4286 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing condition in UNLESS"), @@ -53987,40 +44630,30 @@ lab_endgetargs:; } /*noelse */ ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = -#line 4287 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; MELT_LOCATION ("warmelt-macro.melt:4287:/ compute"); -#line 4287 "warmelt-macro.melt" /**::compute::**/ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[23];; MELT_LOCATION ("warmelt-macro.melt:4288:/ checksignal"); -#line 4288 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L9*/ meltfnum[8] = -#line 4288 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; /*^compute */ - /*_#NOT__L10*/ meltfnum[9] = -#line 4288 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L9*/ meltfnum[8]));; MELT_LOCATION ("warmelt-macro.melt:4288:/ cond"); -#line 4288 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ -#line 4288 /*^block */ -#line 4288 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:4289:/ locexp"); -#line 4289 "warmelt-macro.melt" /**::locexp::**/ /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing body in UNLESS"), (melt_ptr_t) 0); @@ -54032,28 +44665,22 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:4290:/ quasiblock"); -#line 4290 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ -#line 4290 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4290 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4290 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4290 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4290 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.XCOND__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]), @@ -54063,27 +44690,21 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4291:/ checksignal"); -#line 4291 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4291 /*apply */ { union meltparam_un argtab[4]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4291 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V20*/ meltfptr[19]; /*^apply.arg */ -#line 4291 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ -#line 4291 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ -#line 4291 argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.XPROGN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t) @@ -54095,15 +44716,12 @@ lab_endgetargs:; } ; MELT_LOCATION ("warmelt-macro.melt:4292:/ checksignal"); -#line 4292 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4292 /*^rawallocobj */ -#line 4292 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -54116,7 +44734,6 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 4292 /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) @@ -54126,7 +44743,6 @@ lab_endgetargs:; ( /*_.LOC__V20*/ meltfptr[19]), "LOCA_LOCATION"); ; /*^putslot */ -#line 4292 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_TEST", melt_magic_discr ((melt_ptr_t) @@ -54136,7 +44752,6 @@ lab_endgetargs:; ( /*_.XCOND__V27*/ meltfptr[26]), "SIF_TEST"); ; /*^putslot */ -#line 4292 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_THEN", melt_magic_discr ((melt_ptr_t) @@ -54146,7 +44761,6 @@ lab_endgetargs:; (( /*nil */ NULL)), "SIF_THEN"); ; /*^putslot */ -#line 4292 /*putslot */ melt_assertmsg ("putslot checkobj @SIF_ELSE", melt_magic_discr ((melt_ptr_t) @@ -54157,19 +44771,15 @@ lab_endgetargs:; ; /*_.XUNLESS__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; -#line 4298 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:4298:/ cppif.then"); -#line 4298 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ -#line 4298 /*anyblock */ { { /*^locexp */ -#line 4298 /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; @@ -54178,11 +44788,9 @@ lab_endgetargs:; } ; /*^checksignal */ -#line 4298 MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = -#line 4298 "warmelt-macro.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -54191,18 +44799,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-macro.melt:4298:/ cond"); -#line 4298 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 4298 /*^block */ -#line 4298 /*anyblock */ { /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = -#line 4298 "warmelt-macro.melt" /**::expr::**/ #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -54210,30 +44814,23 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-macro.melt:4298:/ checksignal"); -#line 4298 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 4298 /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 4298 argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11]; /*^apply.arg */ -#line 4298 argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ -#line 4298 argtab[2].meltbp_long = 4298; /*^apply.arg */ -#line 4298 argtab[3].meltbp_cstring = "mexpand_unless return xunless="; /*^apply.arg */ -#line 4298 argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.XUNLESS__V29*/ meltfptr[28]; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = @@ -54251,61 +44848,49 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4298:/ clear"); -#line 4298 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ -#line 4298 /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; } ; } else { /*^cond.else */ -#line 4298 /*_.IF___V32*/ meltfptr[31] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:4298:/ quasiblock"); -#line 4298 "warmelt-macro.melt" /**::quasiblock::**/ /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[31];; /*^compute */ - /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:4298:/ clear"); -#line 4298 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ -#line 4298 /*clear *//*_.IF___V32*/ meltfptr[31] = 0; /*^clear */ -#line 4298 /*clear *//*_.PROGN___V34*/ meltfptr[32] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 4298 /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:4299:/ checksignal"); -#line 4299 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4299 /*_.RETVAL___V1*/ meltfptr[0] = /*_.XUNLESS__V29*/ meltfptr[28];; { MELT_LOCATION ("warmelt-macro.melt:4299:/ locexp"); -#line 4299 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -54316,77 +44901,56 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4299 ; /*finalret */ goto labend_rout; /*_.LET___V26*/ meltfptr[25] = /*_.RETURN___V35*/ meltfptr[31];; MELT_LOCATION ("warmelt-macro.melt:4290:/ clear"); -#line 4290 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.XCOND__V27*/ meltfptr[26] = 0; /*^clear */ -#line 4290 /*clear *//*_.XPROGN__V28*/ meltfptr[27] = 0; /*^clear */ -#line 4290 /*clear *//*_.XUNLESS__V29*/ meltfptr[28] = 0; /*^clear */ -#line 4290 /*clear *//*_.IFCPP___V31*/ meltfptr[30] = 0; /*^clear */ -#line 4290 /*clear *//*_.RETURN___V35*/ meltfptr[31] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V26*/ meltfptr[25];; MELT_LOCATION ("warmelt-macro.melt:4279:/ clear"); -#line 4279 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ -#line 4279 /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; /*^clear */ -#line 4279 /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0; /*^clear */ -#line 4279 /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0; /*^clear */ -#line 4279 /*clear *//*_.CURIF__V23*/ meltfptr[22] = 0; /*^clear */ -#line 4279 /*clear *//*_#IS_PAIR__L7*/ meltfnum[0] = 0; /*^clear */ -#line 4279 /*clear *//*_#NOT__L8*/ meltfnum[7] = 0; /*^clear */ -#line 4279 /*clear *//*_.PAIR_TAIL__V24*/ meltfptr[23] = 0; /*^clear */ -#line 4279 /*clear *//*_.SETQ___V25*/ meltfptr[24] = 0; /*^clear */ -#line 4279 /*clear *//*_#IS_PAIR__L9*/ meltfnum[8] = 0; /*^clear */ -#line 4279 /*clear *//*_#NOT__L10*/ meltfnum[9] = 0; /*^clear */ -#line 4279 /*clear *//*_.LET___V26*/ meltfptr[25] = 0; MELT_LOCATION ("warmelt-macro.melt:4273:/ checksignal"); -#line 4273 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 4273 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { MELT_LOCATION ("warmelt-macro.melt:4273:/ locexp"); -#line 4273 "warmelt-macro.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -54397,31 +44961,23 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 4273 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 4273 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 4273 /*clear *//*_.IFCPP___V10*/ meltfptr[6] = 0; /*^clear */ -#line 4273 /*clear *//*_.IFCPP___V12*/ meltfptr[7] = 0; /*^clear */ -#line 4273 /*clear *//*_#NULL__L5*/ meltfnum[1] = 0; /*^clear */ -#line 4273 /*clear *//*_.IF___V14*/ meltfptr[12] = 0; /*^clear */ -#line 4273 /*clear *//*_.IFCPP___V16*/ meltfptr[14] = 0; /*^clear */ -#line 4273 /*clear *//*_.LET___V18*/ meltfptr[16] = 0; } |