/* GCC MELT GENERATED C++ FILE warmelt-genobj+06.cc - DO NOT EDIT - see http://gcc-melt.org/ */ /* secondary MELT generated C++ file of rank #6 */ #include "melt-run.h" /* used hash from melt-run.h when compiling this file: */ MELT_EXTERN const char meltrun_used_md5_melt_f6[] = MELT_RUN_HASHMD5 /* from melt-run.h */; /**** warmelt-genobj+06.cc declarations ****/ /**** MELT GENERATED DECLARATIONS for warmelt-genobj ** DO NOT EDIT ; see gcc-melt.org ****/ /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *** Copyright 2008 - 2014 Free Software Foundation, Inc. Contributed by Basile Starynkevitch This file is part of GCC. GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see . *** ----------------------------------------------------------------****/ /** ordinary MELT module meltbuild-sources/warmelt-genobj**/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/ class Melt_InitialClassyFrame_WARMELTmiGENOBJ_h96664924; // forward declaration fromline 6712 typedef Melt_InitialClassyFrame_WARMELTmiGENOBJ_h96664924 Melt_InitialFrame; /**** no MELT module variables ****/ /*** 3 MELT called hook declarations ***/ /*declare MELT called hook #0 HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER **/ MELT_EXTERN melt_ptr_t melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_PREVENV, const char* meltinp1_MODULNAME); /*declare MELT called hook #1 HOOK_SYMBOL_IMPORTER **/ MELT_EXTERN melt_ptr_t melthook_HOOK_SYMBOL_IMPORTER (melt_ptr_t melthookdatap, const char* meltinp0_SYMNAMESTR, const char* meltinp1_MODULENAMESTR, melt_ptr_t meltinp2_PARENV); /*declare MELT called hook #2 HOOK_VALUE_EXPORTER **/ MELT_EXTERN void melthook_HOOK_VALUE_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_VAL, melt_ptr_t meltinp2_CONTENV); /*** end of 3 MELT called hook declarations ***/ /*** no extra MELT c-headers ***/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiGENOBJ_MAKE_OBJLOCATEDEXP(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiGENOBJ_MAKE_OBJCOMPUTE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiGENOBJ_MAKE_OBJEXPANDPUREVAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiGENOBJ_COMPILOBJ_CATCHALL_NREP(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiGENOBJ_PUTOBJDEST_CATCHALL_OBJCODE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiGENOBJ_PUTOBJDEST_CATCH_OBJPUTMODVAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiGENOBJ_PUTOBJDEST_CATCHALL_ANYDISCR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiGENOBJ_GETCTYPE_OBJVALUE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiGENOBJ_GECTYP_OBJNIL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiGENOBJ_GECTYP_OBJINITSTRING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiGENOBJ_DBGOUT_ROUTINEOBJ(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiGENOBJ_PUTOBJDEST_OBJDESTINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiGENOBJ_PUTOBJDEST_OBJFINALRETURN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiGENOBJ_VARIADIC_IDSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiGENOBJ_VARIADIC_INDEX_IDSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiGENOBJ_VARIADIC_LENGTH_IDSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiGENOBJ_COMPILE2OBJ_HOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiGENOBJ_COMPILE2OBJ_PROCEDURE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiGENOBJ_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiGENOBJ_APPEND_COMMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiGENOBJ_APPEND_COMMENTCONST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiGENOBJ_COMPILE2OBJ_INITPROC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiGENOBJ_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiGENOBJ_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiGENOBJ_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiGENOBJ_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiGENOBJ_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiGENOBJ_COMPILE2OBJ_INITEXTENDPROC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiGENOBJ_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiGENOBJ_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiGENOBJ_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiGENOBJ_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiGENOBJ_GET_FREE_OBJLOCPTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiGENOBJ_GET_FREE_OBJLOCLONG(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiGENOBJ_GET_FREE_OBJLOCTYPED(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiGENOBJ_DISPOSE_OBJLOC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiGENOBJ_DISPOSE_BND_OBJ(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHUNK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiGENOBJ_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiGENOBJ_GETCTYPE_TYPEXPR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiGENOBJ_COMPILOBJ_NREP_NIL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiGENOBJ_COMPILOBJ_NREP_COMMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiGENOBJ_COMPILOBJ_NREP_LOCSYMOCC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiGENOBJ_COMPILOBJ_NREP_CLOSEDOCC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSTOCC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiGENOBJ_COMPILOBJ_NREP_IMPORTEDVAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_WARMELTmiGENOBJ_COMPILOBJ_NREP_LITERALVALUE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_WARMELTmiGENOBJ_COMPILOBJ_NREP_DEFINEDCONSTANT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONSTANT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiGENOBJ_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_WARMELTmiGENOBJ_COMPILOBJ_NREP_FOREVER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_WARMELTmiGENOBJ_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_WARMELTmiGENOBJ_COMPILOBJ_NREP_EXIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_WARMELTmiGENOBJ_COMPILOBJ_NREP_AGAIN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_WARMELTmiGENOBJ_COMPILOBJ_DISCRANY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_WARMELTmiGENOBJ_COMPILOBJ_NREP_LET(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_WARMELTmiGENOBJ_FAIL_COMPILETRECFILL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_WARMELTmiGENOBJ_COMPILETREC_LAMBDA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_WARMELTmiGENOBJ_COMPILETREC_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_WARMELTmiGENOBJ_COMPILETREC_PAIR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_WARMELTmiGENOBJ_COMPILETREC_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_WARMELTmiGENOBJ_COMPILETREC_INSTANCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_WARMELTmiGENOBJ_COMPILOBJ_NREP_LETREC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_WARMELTmiGENOBJ_COMPILOBJ_NREP_CITERATION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_WARMELTmiGENOBJ_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_WARMELTmiGENOBJ_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_WARMELTmiGENOBJ_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_WARMELTmiGENOBJ_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_WARMELTmiGENOBJ_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_WARMELTmiGENOBJ_COMPILOBJ_NREP_SETQ(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_WARMELTmiGENOBJ_COMPILOBJ_NREP_PROGN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_WARMELTmiGENOBJ_COMPILOBJ_NREP_MULTACC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_WARMELTmiGENOBJ_LAMBDA_cl18(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_WARMELTmiGENOBJ_COMPILOBJ_NREP_FIELDACC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_WARMELTmiGENOBJ_LAMBDA_cl19(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_WARMELTmiGENOBJ_COMPILOBJ_NREP_UNSAFE_GET_FIELD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_WARMELTmiGENOBJ_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_WARMELTmiGENOBJ_COMPILOBJ_NREP_MODULEVAROCC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_WARMELTmiGENOBJ_COMPILOBJ_NREP_PUTMODULEVAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECKSIGNAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_WARMELTmiGENOBJ_COMPILOBJ_NREP_UNSAFE_NTH_COMPONENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_WARMELTmiGENOBJ_COMPILOBJ_NREP_APPLY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_WARMELTmiGENOBJ_LAMBDA_cl20(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_WARMELTmiGENOBJ_COMPILOBJ_NREP_HOOK_CALL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_WARMELTmiGENOBJ_LAMBDA_cl21(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_WARMELTmiGENOBJ_LAMBDA_cl22(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_WARMELTmiGENOBJ_LAMBDA_cl23(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_WARMELTmiGENOBJ_LAMBDA_cl24(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_WARMELTmiGENOBJ_COMPILOBJ_NREP_MULTIAPPLY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_WARMELTmiGENOBJ_LAMBDA_cl25(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_WARMELTmiGENOBJ_LAMBDA_cl26(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_WARMELTmiGENOBJ_COMPILOBJ_NREP_MSEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_WARMELTmiGENOBJ_LAMBDA_cl27(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_WARMELTmiGENOBJ_COMPILOBJ_NREP_MULTIMSEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_WARMELTmiGENOBJ_LAMBDA_cl28(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_WARMELTmiGENOBJ_LAMBDA_cl29(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_WARMELTmiGENOBJ_LAMBDA_cl30(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_WARMELTmiGENOBJ_LAMBDA_cl31(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_WARMELTmiGENOBJ_COMPILOBJ_ANY_BINDING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_WARMELTmiGENOBJ_COMPILOBJ_VALUE_BINDING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_WARMELTmiGENOBJ_COMPILOBJ_FIXED_BINDING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_WARMELTmiGENOBJ_COMPILOBJ_NORMAL_LET_BINDING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_WARMELTmiGENOBJ_COMPILOBJ_CONSLAMBDABIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_WARMELTmiGENOBJ_COMPILOBJ_CONSTUPLEBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_WARMELTmiGENOBJ_COMPILOBJ_CONSPAIRBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_WARMELTmiGENOBJ_COMPILOBJ_CONSLISTBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_WARMELTmiGENOBJ_COMPILOBJ_CONSINSTANCEBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_WARMELTmiGENOBJ_PUTOBJDEST_OBJVALUE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_WARMELTmiGENOBJ_PUTOBJDEST_INTEGER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_WARMELTmiGENOBJ_PUTOBJDEST_STRING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_WARMELTmiGENOBJ_PUTOBJDEST_NULL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_WARMELTmiGENOBJ_PUTOBJDEST_OBJANYBLOCK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_WARMELTmiGENOBJ_PUTOBJDEST_OBJMULTIBLOCK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_WARMELTmiGENOBJ_PUTOBJDEST_OBJLOOP(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_WARMELTmiGENOBJ_PUTOBJDEST_OBJEXIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_WARMELTmiGENOBJ_COMPILOBJ_NREP_IF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_WARMELTmiGENOBJ_COMPILOBJ_NREP_IFISA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_WARMELTmiGENOBJ_COMPILOBJ_NREP_IFSAME(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_WARMELTmiGENOBJ_COMPILOBJ_NREP_IFTUPLESIZED(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_WARMELTmiGENOBJ_COMPILOBJ_NREP_IFVARIADIC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_WARMELTmiGENOBJ_GETCTYPE_IFVARIADIC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_WARMELTmiGENOBJ_COMPILOBJ_NREP_VARIADIC_ARGUMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_WARMELTmiGENOBJ_COMPILOBJ_NREP_CONSUMEVARIADIC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_WARMELTmiGENOBJ_PUTOBJDEST_OBJCOND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_WARMELTmiGENOBJ_COMPILOBJ_NREP_CPPIF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_WARMELTmiGENOBJ_PUTOBJDEST_OBJCPPIF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_WARMELTmiGENOBJ_COMPILOBJ_NREP_RETURN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_WARMELTmiGENOBJ_LAMBDA_cl32(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_WARMELTmiGENOBJ_COMPILOBJ_NREP_LAMBDA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_WARMELTmiGENOBJ_COMPILOBJ_NREP_MAKEINST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_WARMELTmiGENOBJ_COMPILOBJ_ROUTPROC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_WARMELTmiGENOBJ_COMPILOBJ_PREDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_WARMELTmiGENOBJ_COMPIL_DATA_AND_SLOTS_FILL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_WARMELTmiGENOBJ_LAMBDA_cl33(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_WARMELTmiGENOBJ_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_WARMELTmiGENOBJ_LAMBDA_cl34(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_WARMELTmiGENOBJ_COMPILOBJ_DATASYMBOL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_WARMELTmiGENOBJ_COMPILOBJ_DATAINSTANCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_WARMELTmiGENOBJ_COMPILOBJ_DATATUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_WARMELTmiGENOBJ_LAMBDA_cl35(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_WARMELTmiGENOBJ_LAMBDA_cl36(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_WARMELTmiGENOBJ_COMPILOBJ_DATASTRING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_WARMELTmiGENOBJ_COMPILOBJ_DATABOXEDINTEGER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_169_WARMELTmiGENOBJ_NORMTESTER_GOTOINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_170_WARMELTmiGENOBJ_ENDMATCH_GOTOINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_171_WARMELTmiGENOBJ_TESTMATCH_GOTOINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_172_WARMELTmiGENOBJ_NORMTESTER_FREE_OBJLOC_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_173_WARMELTmiGENOBJ_LAMBDA_cl42(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_174_WARMELTmiGENOBJ_COMPILTST_NORMTESTER_ANY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_175_WARMELTmiGENOBJ_COMPILTST_NORMTESTER_MATCHER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_176_WARMELTmiGENOBJ_COMPILTST_NORMTESTER_INSTANCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_177_WARMELTmiGENOBJ_COMPILTST_NORMTESTER_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_178_WARMELTmiGENOBJ_COMPILTST_NORMTESTER_SAME(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_179_WARMELTmiGENOBJ_COMPILTST_NORMTESTER_SUCCESS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_180_WARMELTmiGENOBJ_COMPILTST_NORMTESTER_ORCLEAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_181_WARMELTmiGENOBJ_COMPILTST_NORMTESTER_ORTRANSMIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_182_WARMELTmiGENOBJ_COMPILTST_NORMTESTER_DISJUNCTION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_183_WARMELTmiGENOBJ_COMPILMATCHER_CMATCHER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_184_WARMELTmiGENOBJ_LAMBDA_cl43(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_185_WARMELTmiGENOBJ_LAMBDA_cl44(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_186_WARMELTmiGENOBJ_LAMBDA_cl45(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_187_WARMELTmiGENOBJ_LAMBDA_cl46(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_188_WARMELTmiGENOBJ_COMPILMATCHER_FUNMATCHER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_189_WARMELTmiGENOBJ_LAMBDA_cl47(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_190_WARMELTmiGENOBJ_LAMBDA_cl48(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN MELT_LOW_OPTIMIZATION void* melt_start_this_module (void*); /*mandatory start of module*/ MELT_EXTERN const char melt_module_is_gpl_compatible[]; /*declare opaque initial frame: */ typedef Melt_InitialClassyFrame_WARMELTmiGENOBJ_h96664924 /*opaqueinitialclassy*/ meltinitial_frame_t; /* define different names when debugging or not */ #if MELT_HAVE_DEBUG > 0 MELT_EXTERN const char meltmodule_WARMELTmiGENOBJ__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_WARMELTmiGENOBJ__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG*/ MELT_EXTERN const char meltmodule_WARMELTmiGENOBJ__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_WARMELTmiGENOBJ__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG*/ void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_3 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_4 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_5 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_6 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_7 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_8 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_9 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_10 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_11 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_12 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_13 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_14 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_15 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_16 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_17 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_18 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_19 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_20 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_21 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_22 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_23 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_24 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_25 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_26 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_27 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_28 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_29 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_30 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_31 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_32 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_33 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_34 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_35 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_36 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_37 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_38 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_39 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_40 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_41 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_42 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_43 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_44 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_45 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_46 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_47 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_48 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_49 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_50 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_51 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiGENOBJ__initialmeltchunk_52 (meltinitial_frame_t*, char*); //declare /**** warmelt-genobj+06.cc implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE fromline 1752 */ /** start of frame for meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE// fromline 1568 : public Melt_CallFrameWithValues<63> { public: /* fromline 1572*/ long mcfr_varnum[14]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<63> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE), clos) {}; MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE() //the constructor fromline 1642 : Melt_CallFrameWithValues<63> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<63> (fil,lin, sizeof(MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE)) {}; MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<63> (fil,lin, sizeof(MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE /** end of frame for meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE fromline 1697**/ /* end of frame for routine meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE fromline 1756 */ /* classy proc frame meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE */ MeltFrame_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_DATACLOSURE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:5897:/ getarg"); /*_.NCL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5898:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:5898:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5898:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5898; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataclosure ncl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCL__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5898:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:5898:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5899:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCL__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:5899:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:5899:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check ncl"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5899; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCL__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5899:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5899:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5900:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:5900:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:5900:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5900; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5900:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5900:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:5901:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 6, "GNCX_COMPICACHE"); /*_.COMPICACHE__V13*/ meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:5902:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "GNCX_OBJROUT"); /*_.INIROUT__V14*/ meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:5903:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INIROUT__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 5, "OBROUT_BODY"); /*_.INIBODY__V15*/ meltfptr[14] = slot; }; ; /*_.CHOBJ__V16*/ meltfptr[15] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V13*/ meltfptr[3]), (meltobject_ptr_t)(/*_.NCL__V2*/ meltfptr[1]));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5906:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_ANY_START_ROUTINEOBJ*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:5906:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:5906:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check inirout"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5906; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIROUT__V14*/ meltfptr[13]; /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V18*/ meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5906:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; } ; } ; /*_.IFCPP___V17*/ meltfptr[16] = /*_._IFELSE___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5906:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V18*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V17*/ meltfptr[16] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5907:/ cond"); /*cond*/ if (/*_.CHOBJ__V16*/ meltfptr[15]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5908:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:5908:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5908:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5908; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataclosure found chobj="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CHOBJ__V16*/ meltfptr[15]; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V21*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5908:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V21*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:5908:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V21*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5909:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.CHOBJ__V16*/ meltfptr[15];; { MELT_LOCATION("warmelt-genobj.melt:5909:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-genobj.melt:5907:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[17] = /*_.RETURN___V23*/ meltfptr[21];; /*^compute*/ /*_._IF___V20*/ meltfptr[18] = /*_.PROGN___V24*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5907:/ clear"); /*clear*/ /*_.RETURN___V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V24*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V20*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:5910:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:5911:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCL__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NDATA_NAME"); /*_.NAM__V26*/ meltfptr[17] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:5912:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCL__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NDATA_DISCRX"); /*_.DISCX__V27*/ meltfptr[26] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:5913:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCL__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NDATA_RANK"); /*_.NRANK__V28*/ meltfptr[27] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:5914:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCL__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V29*/ meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:5915:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCL__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NDCLO_PROC"); /*_.NPRO__V30*/ meltfptr[29] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:5916:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCL__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NDCLO_CLOSV"); /*_.NCLOV__V31*/ meltfptr[30] = slot; }; ; /*_#NBCLOS__L8*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.NCLOV__V31*/ meltfptr[30])));; /*^compute*/ /*_.NAMBUF__V32*/ meltfptr[31] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[5])), (const char*)0);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5919:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.ODISCR__V33*/ meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.DISCX__V27*/ meltfptr[26]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5920:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_8__VALCLO_*/ meltfrout->tabval[8]); /*_.LOCVAR__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:5921:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!konst_9__DATACLOSURE_*/ meltfrout->tabval[9])) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.COMM__V35*/ meltfptr[34] = slot; }; ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5923:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L9*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-genobj.melt:5923:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V37*/ meltfptr[36] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:5923:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check npro"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5923; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NPRO__V30*/ meltfptr[29]; /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V37*/ meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5923:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37] = 0 ; } ; } ; /*_.IFCPP___V36*/ meltfptr[35] = /*_._IFELSE___V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5923:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V37*/ meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V36*/ meltfptr[35] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:5924:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V32*/ meltfptr[31]), ( "dclo_")); } ; /*_#GET_INT__L10*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.NRANK__V28*/ meltfptr[27])));; { MELT_LOCATION("warmelt-genobj.melt:5925:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V32*/ meltfptr[31]), (/*_#GET_INT__L10*/ meltfnum[0])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5926:/ cond"); /*cond*/ if (/*_.NAM__V26*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-genobj.melt:5927:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V32*/ meltfptr[31]), ( "__")); } ; MELT_LOCATION("warmelt-genobj.melt:5928:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NAM__V26*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V39*/ meltfptr[37] = slot; }; ; { /*^locexp*/ meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V32*/ meltfptr[31]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V39*/ meltfptr[37]))); } ; MELT_LOCATION("warmelt-genobj.melt:5926:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.NAMED_NAME__V39*/ meltfptr[37] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:5929:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:5930:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NPRO__V30*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NRPRO_DATAROUT"); /*_.NDATAROU__V41*/ meltfptr[37] = slot; }; ; MELT_CHECK_SIGNAL(); ; /*_.STRBUF2STRING__V42*/ meltfptr[41] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[13])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V32*/ meltfptr[31]))));; MELT_LOCATION("warmelt-genobj.melt:5932:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITCLOSURE*/ meltfrout->tabval[11])), (6), "CLASS_OBJINITCLOSURE"); /*_.INST__V44*/ meltfptr[43] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ meltfptr[43])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V44*/ meltfptr[43]), (0), ((/*!CTYPE_VALUE*/ meltfrout->tabval[12])), "OBV_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ meltfptr[43])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V44*/ meltfptr[43]), (3), (/*_.ODISCR__V33*/ meltfptr[32]), "OIE_DISCR"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ meltfptr[43])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V44*/ meltfptr[43]), (2), (/*_.NCL__V2*/ meltfptr[1]), "OIE_DATA"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ meltfptr[43])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V44*/ meltfptr[43]), (4), (/*_.LOCVAR__V34*/ meltfptr[33]), "OIE_LOCVAR"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ meltfptr[43])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V44*/ meltfptr[43]), (1), (/*_.STRBUF2STRING__V42*/ meltfptr[41]), "OIE_CNAME"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V44*/ meltfptr[43], "newly made instance"); ; /*_.OICLO__V43*/ meltfptr[42] = /*_.INST__V44*/ meltfptr[43];; { MELT_LOCATION("warmelt-genobj.melt:5940:/ locexp"); melt_put_int((melt_ptr_t)(/*_.OICLO__V43*/ meltfptr[42]), (/*_#NBCLOS__L8*/ meltfnum[1])); } ; { MELT_LOCATION("warmelt-genobj.melt:5941:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V13*/ meltfptr[3]), (meltobject_ptr_t) (/*_.NCL__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.OICLO__V43*/ meltfptr[42])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5942:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:5942:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5942:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5942; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataclosure updated compicache="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V13*/ meltfptr[3]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. ncl="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCL__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n.. oiclo="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OICLO__V43*/ meltfptr[42]; /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V45*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5942:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V45*/ meltfptr[44] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:5942:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V45*/ meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5944:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L13*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.NDATAROU__V41*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ meltfrout->tabval[14])));; MELT_LOCATION("warmelt-genobj.melt:5944:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V48*/ meltfptr[44] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:5944:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check ndatarou"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5944; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NDATAROU__V41*/ meltfptr[37]; /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V48*/ meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5944:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48] = 0 ; } ; } ; /*_.IFCPP___V47*/ meltfptr[45] = /*_._IFELSE___V48*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5944:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V48*/ meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V47*/ meltfptr[45] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:5945:/ quasiblock"); /*_.OCROUT__V51*/ meltfptr[44] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V13*/ meltfptr[3]), (meltobject_ptr_t)(/*_.NPRO__V30*/ meltfptr[29]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5948:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.ODATROUT__V52*/ meltfptr[51] = meltgc_send((melt_ptr_t)(/*_.NDATAROU__V41*/ meltfptr[37]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5949:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSUROUT*/ meltfrout->tabval[15])), (3), "CLASS_OBJPUTCLOSUROUT"); /*_.INST__V54*/ meltfptr[53] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (0), (/*_.NLOC__V29*/ meltfptr[28]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPCLOR_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (1), (/*_.OICLO__V43*/ meltfptr[42]), "OPCLOR_CLOS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPCLOR_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (2), (/*_.ODATROUT__V52*/ meltfptr[51]), "OPCLOR_ROUT"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V54*/ meltfptr[53], "newly made instance"); ; /*_.OCPUTROUT__V53*/ meltfptr[52] = /*_.INST__V54*/ meltfptr[53];; /*^compute*/ /*_.BXOFF__V55*/ meltfptr[54] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[16])), (0)));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5957:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L14*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.OCROUT__V51*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ meltfrout->tabval[17])));; MELT_LOCATION("warmelt-genobj.melt:5957:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V57*/ meltfptr[56] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:5957:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check ocrout"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5957; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OCROUT__V51*/ meltfptr[44]; /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V57*/ meltfptr[56] = /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5957:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[57] = 0 ; } ; } ; /*_.IFCPP___V56*/ meltfptr[55] = /*_._IFELSE___V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5957:/ clear"); /*clear*/ /*_#IS_A__L14*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V57*/ meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V56*/ meltfptr[55] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:5958:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V15*/ meltfptr[14]), (melt_ptr_t)(/*_.OCPUTROUT__V53*/ meltfptr[52])); } ; MELT_LOCATION("warmelt-genobj.melt:5961:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V60*/ meltfptr[56] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ meltfrout->tabval[22])), (5)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V60*/ meltfptr[56])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V60*/ meltfptr[56]))); ((meltclosure_ptr_t)/*_.LAMBDA___V60*/ meltfptr[56])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V60*/ meltfptr[56])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V60*/ meltfptr[56]))); ((meltclosure_ptr_t)/*_.LAMBDA___V60*/ meltfptr[56])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V29*/ meltfptr[28]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V60*/ meltfptr[56])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V60*/ meltfptr[56]))); ((meltclosure_ptr_t)/*_.LAMBDA___V60*/ meltfptr[56])->tabval[2] = (melt_ptr_t)(/*_.OICLO__V43*/ meltfptr[42]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V60*/ meltfptr[56])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V60*/ meltfptr[56]))); ((meltclosure_ptr_t)/*_.LAMBDA___V60*/ meltfptr[56])->tabval[3] = (melt_ptr_t)(/*_.BXOFF__V55*/ meltfptr[54]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V60*/ meltfptr[56])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V60*/ meltfptr[56]))); ((meltclosure_ptr_t)/*_.LAMBDA___V60*/ meltfptr[56])->tabval[4] = (melt_ptr_t)(/*_.INIBODY__V15*/ meltfptr[14]); ; /*_.LAMBDA___V59*/ meltfptr[57] = /*_.LAMBDA___V60*/ meltfptr[56];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5959:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V59*/ meltfptr[57]; /*_.MULTIPLE_EVERY__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NCLOV__V31*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5972:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ meltfrout->tabval[23])), (3), "CLASS_OBJTOUCH"); /*_.INST__V63*/ meltfptr[62] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (0), (/*_.NLOC__V29*/ meltfptr[28]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (2), (/*_.COMM__V35*/ meltfptr[34]), "OTOUCH_COMMENT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (1), (/*_.OICLO__V43*/ meltfptr[42]), "OTOUCH_VAL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[62], "newly made instance"); ; /*_.INST___V62*/ meltfptr[61] = /*_.INST__V63*/ meltfptr[62];; { MELT_LOCATION("warmelt-genobj.melt:5972:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V15*/ meltfptr[14]), (melt_ptr_t)(/*_.INST___V62*/ meltfptr[61])); } ; /*_.LET___V50*/ meltfptr[48] = /*_.OICLO__V43*/ meltfptr[42];; MELT_LOCATION("warmelt-genobj.melt:5945:/ clear"); /*clear*/ /*_.OCROUT__V51*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.ODATROUT__V52*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_.OCPUTROUT__V53*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.BXOFF__V55*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V56*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V59*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_EVERY__V61*/ meltfptr[60] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V62*/ meltfptr[61] = 0 ; /*_.LET___V40*/ meltfptr[36] = /*_.LET___V50*/ meltfptr[48];; MELT_LOCATION("warmelt-genobj.melt:5929:/ clear"); /*clear*/ /*_.NDATAROU__V41*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.OICLO__V43*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V47*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V50*/ meltfptr[48] = 0 ; /*_.LET___V25*/ meltfptr[21] = /*_.LET___V40*/ meltfptr[36];; MELT_LOCATION("warmelt-genobj.melt:5910:/ clear"); /*clear*/ /*_.NAM__V26*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.DISCX__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.NRANK__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.NLOC__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.NPRO__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.NCLOV__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_#NBCLOS__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.NAMBUF__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.ODISCR__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.LOCVAR__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.COMM__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V40*/ meltfptr[36] = 0 ; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V25*/ meltfptr[21];; MELT_LOCATION("warmelt-genobj.melt:5901:/ clear"); /*clear*/ /*_.COMPICACHE__V13*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.INIROUT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.INIBODY__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.CHOBJ__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V20*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V25*/ meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5897:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:5897:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_DATACLOSURE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_144_WARMELTmiGENOBJ_COMPILOBJ_DATACLOSURE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37 fromline 1752 */ /** start of frame for meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37// fromline 1568 : public Melt_CallFrameWithValues<6> { public: /* fromline 1572*/ long mcfr_varnum[4]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37), clos) {}; MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37() //the constructor fromline 1642 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37)) {}; MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37 /** end of frame for meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37 fromline 1697**/ /* end of frame for routine meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37 fromline 1756 */ /* classy proc frame meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37 */ MeltFrame_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37 fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl37", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:5961:/ getarg"); /*_.CLOV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:5962:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^msend*/ /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~GCX*/ meltfclos->tabval[0]); /*_.CLOVAL__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CLOV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#GET_INT__L2*/ meltfnum[1] = (melt_get_int((melt_ptr_t)((/*~BXOFF*/ meltfclos->tabval[3]))));; /*^compute*/ /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#GET_INT__L2*/ meltfnum[1])));; MELT_LOCATION("warmelt-genobj.melt:5963:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ meltfrout->tabval[1])), (4), "CLASS_OBJPUTCLOSEDV"); /*_.INST__V6*/ meltfptr[5] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V6*/ meltfptr[5]), (0), ((/*~NLOC*/ meltfclos->tabval[1])), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPCLOV_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V6*/ meltfptr[5]), (1), ((/*~OICLO*/ meltfclos->tabval[2])), "OPCLOV_CLOS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPCLOV_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V6*/ meltfptr[5]), (2), (/*_.MAKE_INTEGERBOX__V4*/ meltfptr[3]), "OPCLOV_OFF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPCLOV_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V6*/ meltfptr[5]), (3), (/*_.CLOVAL__V3*/ meltfptr[2]), "OPCLOV_CVAL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V6*/ meltfptr[5], "newly made instance"); ; /*_.OCPUTCLOS__V5*/ meltfptr[4] = /*_.INST__V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-genobj.melt:5969:/ locexp"); meltgc_append_list((melt_ptr_t)((/*~INIBODY*/ meltfclos->tabval[4])), (melt_ptr_t)(/*_.OCPUTCLOS__V5*/ meltfptr[4])); } ; MELT_LOCATION("warmelt-genobj.melt:5962:/ clear"); /*clear*/ /*_.CLOVAL__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.OCPUTCLOS__V5*/ meltfptr[4] = 0 ; /*_#GET_INT__L3*/ meltfnum[1] = (melt_get_int((melt_ptr_t)((/*~BXOFF*/ meltfclos->tabval[3]))));; /*^compute*/ /*_#plI__L4*/ meltfnum[3] = ((/*_#GET_INT__L3*/ meltfnum[1]) + (1));; { MELT_LOCATION("warmelt-genobj.melt:5971:/ locexp"); melt_put_int((melt_ptr_t)((/*~BXOFF*/ meltfclos->tabval[3])), (/*_#plI__L4*/ meltfnum[3])); } ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5961:/ clear"); /*clear*/ /*_#GET_INT__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L4*/ meltfnum[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl37", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_145_WARMELTmiGENOBJ_LAMBDA_cl37*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE fromline 1752 */ /** start of frame for meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE// fromline 1568 : public Melt_CallFrameWithValues<100> { public: /* fromline 1572*/ long mcfr_varnum[42]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<100> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE), clos) {}; MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE() //the constructor fromline 1642 : Melt_CallFrameWithValues<100> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<100> (fil,lin, sizeof(MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE)) {}; MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<100> (fil,lin, sizeof(MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE /** end of frame for meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE fromline 1697**/ /* end of frame for routine meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE fromline 1756 */ /* classy proc frame meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE */ MeltFrame_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_DATAROUTINE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:5985:/ getarg"); /*_.NDROU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5986:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:5986:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5986:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5986; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine ndrou="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NDROU__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5986:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:5986:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:5987:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_dataroutine"), (16)); #endif ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5988:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NDROU__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:5988:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:5988:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check ndrou"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5988; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NDROU__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5988:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5988:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5989:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:5989:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:5989:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5989; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5989:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5989:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:5990:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 6, "GNCX_COMPICACHE"); /*_.COMPICACHE__V13*/ meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:5991:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "GNCX_OBJROUT"); /*_.INIROUT__V14*/ meltfptr[13] = slot; }; ; /*_.CHOBJ__V15*/ meltfptr[14] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V13*/ meltfptr[3]), (meltobject_ptr_t)(/*_.NDROU__V2*/ meltfptr[1]));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5995:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:5995:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5995:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5995; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine"; /*^apply.arg*/ argtab[4].meltbp_cstring = " inirout="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.INIROUT__V14*/ meltfptr[13]; /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V16*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5995:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:5995:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V16*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:5996:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_dataroutine"), (10)); #endif ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5997:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_ANY_START_ROUTINEOBJ*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:5997:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[15] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:5997:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check inirout"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5997; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIROUT__V14*/ meltfptr[13]; /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V19*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5997:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5997:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[16] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5998:/ cond"); /*cond*/ if (/*_.CHOBJ__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:5999:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:5999:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5999:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 5999; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine return chobj="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CHOBJ__V15*/ meltfptr[14]; /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V22*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5999:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V22*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:5999:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V22*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6000:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.CHOBJ__V15*/ meltfptr[14];; { MELT_LOCATION("warmelt-genobj.melt:6000:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-genobj.melt:5998:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[15] = /*_.RETURN___V24*/ meltfptr[22];; /*^compute*/ /*_._IF___V21*/ meltfptr[19] = /*_.PROGN___V25*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:5998:/ clear"); /*clear*/ /*_.RETURN___V24*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V25*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V21*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6001:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDROU__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NDATA_NAME"); /*_.NAM__V27*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6002:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDROU__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NDATA_DISCRX"); /*_.DISX__V28*/ meltfptr[27] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6003:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDROU__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V29*/ meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6004:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDROU__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NDATA_RANK"); /*_.DRANK__V30*/ meltfptr[29] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6005:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDROU__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NDATA_NAME"); /*_.NAM__V31*/ meltfptr[30] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6006:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDROU__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDROU__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NDROU_PROC"); /*_.NPRO__V32*/ meltfptr[31] = slot; }; ; } else /*^cond.else*/ { /*_.NPRO__V32*/ meltfptr[31] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6007:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INIROUT__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 5, "OBROUT_BODY"); /*_.INIBODY__V33*/ meltfptr[32] = slot; }; ; } else /*^cond.else*/ { /*_.INIBODY__V33*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6008:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_7__VALROUT_*/ meltfrout->tabval[7]); /*_.LOCVAR__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6010:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6010:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L11*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6010:/ apply"); /*apply*/ { union meltparam_un argtab[8]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6010; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine"; /*^apply.arg*/ argtab[4].meltbp_cstring = " npro="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NPRO__V32*/ meltfptr[31]; /*^apply.arg*/ argtab[6].meltbp_cstring = "\n.. ndrou="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.NDROU__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V35*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6010:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V35*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6010:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V35*/ meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#NULL__L12*/ meltfnum[1] = (/*null*/(/*_.NLOC__V29*/ meltfptr[28]) == NULL);; MELT_LOCATION("warmelt-genobj.melt:6011:/ cond"); /*cond*/ if (/*_#NULL__L12*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L13*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-genobj.melt:6012:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6013:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NPRO__V32*/ meltfptr[31]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NREP_LOC__V39*/ meltfptr[38] = slot; }; ; /*^compute*/ /*_.NLOC__V29*/ meltfptr[28] = /*_.SETQ___V40*/ meltfptr[39] = /*_.NREP_LOC__V39*/ meltfptr[38];; /*_._IF___V38*/ meltfptr[34] = /*_.SETQ___V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6012:/ clear"); /*clear*/ /*_.NREP_LOC__V39*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V40*/ meltfptr[39] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V38*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IF___V37*/ meltfptr[35] = /*_._IF___V38*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6011:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V38*/ meltfptr[34] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V37*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6014:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6014:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6014:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[14]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6014; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine compicache="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V13*/ meltfptr[3]; /*_.MELT_DEBUG_FUN__V42*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V41*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6014:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V42*/ meltfptr[39] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V41*/ meltfptr[38] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6014:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V41*/ meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6015:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MAPOBJECT__L16*/ meltfnum[14] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.COMPICACHE__V13*/ meltfptr[3])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-genobj.melt:6015:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V44*/ meltfptr[39] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6015:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check compicache"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6015; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V13*/ meltfptr[3]; /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V44*/ meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6015:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[38] = 0 ; } ; } ; /*_.IFCPP___V43*/ meltfptr[34] = /*_._IFELSE___V44*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6015:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V44*/ meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V43*/ meltfptr[34] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6016:/ quasiblock"); /*_.NAMBUF__V47*/ meltfptr[39] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[9])), (const char*)0);; /*^compute*/ /*_#DRK__L17*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.DRANK__V30*/ meltfptr[29])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6019:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.ODISCR__V48*/ meltfptr[47] = meltgc_send((melt_ptr_t)(/*_.DISX__V28*/ meltfptr[27]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-genobj.melt:6021:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V47*/ meltfptr[39]), ( "drout_")); } ; { MELT_LOCATION("warmelt-genobj.melt:6022:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V47*/ meltfptr[39]), (/*_#DRK__L17*/ meltfnum[0])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6023:/ cond"); /*cond*/ if (/*_.NAM__V31*/ meltfptr[30]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-genobj.melt:6024:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V47*/ meltfptr[39]), ( "__")); } ; MELT_LOCATION("warmelt-genobj.melt:6025:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NAM__V31*/ meltfptr[30]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V49*/ meltfptr[48] = slot; }; ; { /*^locexp*/ meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V47*/ meltfptr[39]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V49*/ meltfptr[48]))); } ; MELT_LOCATION("warmelt-genobj.melt:6023:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.NAMED_NAME__V49*/ meltfptr[48] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:6026:/ quasiblock"); /*_.OINIPRO__V51*/ meltfptr[50] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V13*/ meltfptr[3]), (meltobject_ptr_t)(/*_.NPRO__V32*/ meltfptr[31]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_.STRBUF2STRING__V52*/ meltfptr[51] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[13])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V47*/ meltfptr[39]))));; MELT_LOCATION("warmelt-genobj.melt:6029:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ meltfrout->tabval[11])), (6), "CLASS_OBJINITROUTINE"); /*_.INST__V54*/ meltfptr[53] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (0), ((/*!CTYPE_VALUE*/ meltfrout->tabval[12])), "OBV_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (3), (/*_.ODISCR__V48*/ meltfptr[47]), "OIE_DISCR"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (2), (/*_.NDROU__V2*/ meltfptr[1]), "OIE_DATA"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (4), (/*_.LOCVAR__V34*/ meltfptr[33]), "OIE_LOCVAR"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (1), (/*_.STRBUF2STRING__V52*/ meltfptr[51]), "OIE_CNAME"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIR_PROCROUTINE", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (5), (/*_.OINIPRO__V51*/ meltfptr[50]), "OIR_PROCROUTINE"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V54*/ meltfptr[53], "newly made instance"); ; /*_.OIROUT__V53*/ meltfptr[52] = /*_.INST__V54*/ meltfptr[53];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6038:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6038:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6038:/ apply"); /*apply*/ { union meltparam_un argtab[14]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[18]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6038; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine oirout="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OIROUT__V53*/ meltfptr[52]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n .. oinipro="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OINIPRO__V51*/ meltfptr[50]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n.. npro="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NPRO__V32*/ meltfptr[31]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n.. compicache="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V13*/ meltfptr[3]; /*^apply.arg*/ argtab[11].meltbp_cstring = "\n.. ndrou="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[13].meltbp_aptr = (melt_ptr_t*) &/*_.NDROU__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V55*/ meltfptr[54] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6038:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V55*/ meltfptr[54] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6038:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V55*/ meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6041:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L20*/ meltfnum[18] = (melt_magic_discr((melt_ptr_t)(/*_.OINIPRO__V51*/ meltfptr[50])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-genobj.melt:6041:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V58*/ meltfptr[54] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6041:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check oinipro"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6041; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OINIPRO__V51*/ meltfptr[50]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NPRO__V32*/ meltfptr[31]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V13*/ meltfptr[3]; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NDROU__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V58*/ meltfptr[54] = /*_.MELT_ASSERT_FAILURE_FUN__V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6041:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V59*/ meltfptr[58] = 0 ; } ; } ; /*_.IFCPP___V57*/ meltfptr[55] = /*_._IFELSE___V58*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6041:/ clear"); /*clear*/ /*_#IS_OBJECT__L20*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V58*/ meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V57*/ meltfptr[55] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6042:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V13*/ meltfptr[3]), (meltobject_ptr_t) (/*_.NDROU__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.OIROUT__V53*/ meltfptr[52])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6043:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6043:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L22*/ meltfnum[18] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6043:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[18]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6043; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine updated compicache="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V13*/ meltfptr[3]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. ndrou="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NDROU__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n.. oirout="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OIROUT__V53*/ meltfptr[52]; /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V60*/ meltfptr[58] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6043:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V60*/ meltfptr[58] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6043:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V60*/ meltfptr[58] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L23*/ meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-genobj.melt:6045:/ cond"); /*cond*/ if (/*_#IS_A__L23*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6046:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[16]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NPRO__V32*/ meltfptr[31]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); /*_.PCONSTL__V64*/ meltfptr[63] = slot; }; ; } else /*^cond.else*/ { /*_.PCONSTL__V64*/ meltfptr[63] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#NBCONST__L24*/ meltfnum[14] = (melt_list_length((melt_ptr_t)(/*_.PCONSTL__V64*/ meltfptr[63])));; /*^compute*/ /*_.BXOFF__V65*/ meltfptr[64] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[17])), (0)));; MELT_LOCATION("warmelt-genobj.melt:6049:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!konst_18__IROUTVAL_*/ meltfrout->tabval[18])) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.COMM__V66*/ meltfptr[65] = slot; }; ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6051:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L25*/ meltfnum[24] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6051:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L26*/ meltfnum[25] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6051:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L26*/ meltfnum[25]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6051; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine pconstl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PCONSTL__V64*/ meltfptr[63]; /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V67*/ meltfptr[66] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6051:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V67*/ meltfptr[66] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6051:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V67*/ meltfptr[66] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6052:/ locexp"); melt_put_int((melt_ptr_t)(/*_.OIROUT__V53*/ meltfptr[52]), (/*_#NBCONST__L24*/ meltfnum[14])); } ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit1__EACHLIST */ for (/*_.CONSTPAIR__V69*/ meltfptr[67] = melt_list_first( (melt_ptr_t)/*_.PCONSTL__V64*/ meltfptr[63]); melt_magic_discr((melt_ptr_t) /*_.CONSTPAIR__V69*/ meltfptr[67]) == MELTOBMAG_PAIR; /*_.CONSTPAIR__V69*/ meltfptr[67] = melt_pair_tail((melt_ptr_t) /*_.CONSTPAIR__V69*/ meltfptr[67])) { /*_.CONSTX__V70*/ meltfptr[66] = melt_pair_head((melt_ptr_t) /*_.CONSTPAIR__V69*/ meltfptr[67]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6056:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L27*/ meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6056:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L28*/ meltfnum[24] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6056:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L28*/ meltfnum[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6056; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine constx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CONSTX__V70*/ meltfptr[66]; /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V71*/ meltfptr[70] = /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6056:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V71*/ meltfptr[70] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6056:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V71*/ meltfptr[70] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L29*/ meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.CONSTX__V70*/ meltfptr[66]), (melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ meltfrout->tabval[19])));; MELT_LOCATION("warmelt-genobj.melt:6058:/ cond"); /*cond*/ if (/*_#IS_A__L29*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6059:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CONSTX__V70*/ meltfptr[66]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NOCC_BIND"); /*_.CNSTBIND__V74*/ meltfptr[70] = slot; }; ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6060:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L30*/ meltfnum[25] = melt_is_instance_of((melt_ptr_t)(/*_.CNSTBIND__V74*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[20])));; MELT_LOCATION("warmelt-genobj.melt:6060:/ cond"); /*cond*/ if (/*_#IS_A__L30*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V76*/ meltfptr[75] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6060:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "compilobj_dataroutine check cnstbind"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6060; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CNSTBIND__V74*/ meltfptr[70]; /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V76*/ meltfptr[75] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6060:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[76] = 0 ; } ; } ; /*_.IFCPP___V75*/ meltfptr[74] = /*_._IFELSE___V76*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6060:/ clear"); /*clear*/ /*_#IS_A__L30*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V76*/ meltfptr[75] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V75*/ meltfptr[74] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6061:/ quasiblock"); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6062:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.OCONSTX__V78*/ meltfptr[76] = meltgc_send((melt_ptr_t)(/*_.CNSTBIND__V74*/ meltfptr[70]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#OFF__L31*/ meltfnum[25] = (melt_get_int((melt_ptr_t)(/*_.BXOFF__V65*/ meltfptr[64])));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6065:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L32*/ meltfnum[31] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6065:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L33*/ meltfnum[32] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6065:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L33*/ meltfnum[32]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6065; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine oconstx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCONSTX__V78*/ meltfptr[76]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. off="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#OFF__L31*/ meltfnum[25]; /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V79*/ meltfptr[75] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6065:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V79*/ meltfptr[75] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6065:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V79*/ meltfptr[75] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6066:/ cond"); /*cond*/ if (/*_.OCONSTX__V78*/ meltfptr[76]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6067:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*_#IS_A__L34*/ meltfnum[32] = melt_is_instance_of((melt_ptr_t)(/*_.CNSTBIND__V74*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[21])));; MELT_LOCATION("warmelt-genobj.melt:6069:/ cond"); /*cond*/ if (/*_#IS_A__L34*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_.MAKE_INTEGERBOX__V82*/ meltfptr[75] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[17])), (/*_#OFF__L31*/ meltfnum[25])));; MELT_LOCATION("warmelt-genobj.melt:6070:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONSTNOTNULL*/ meltfrout->tabval[22])), (4), "CLASS_OBJPUTROUTCONSTNOTNULL"); /*_.INST__V84*/ meltfptr[83] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (0), (/*_.NLOC__V29*/ meltfptr[28]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (1), (/*_.OIROUT__V53*/ meltfptr[52]), "OPRCONST_ROUT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (2), (/*_.MAKE_INTEGERBOX__V82*/ meltfptr[75]), "OPRCONST_OFF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (3), (/*_.OCONSTX__V78*/ meltfptr[76]), "OPRCONST_CVAL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V84*/ meltfptr[83], "newly made instance"); ; /*_.INST___V83*/ meltfptr[82] = /*_.INST__V84*/ meltfptr[83];; /*^compute*/ /*_.IPUT__V81*/ meltfptr[79] = /*_.INST___V83*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6069:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V82*/ meltfptr[75] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V83*/ meltfptr[82] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_.MAKE_INTEGERBOX__V85*/ meltfptr[75] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[17])), (/*_#OFF__L31*/ meltfnum[25])));; MELT_LOCATION("warmelt-genobj.melt:6075:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ meltfrout->tabval[23])), (4), "CLASS_OBJPUTROUTCONST"); /*_.INST__V87*/ meltfptr[86] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[86])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V87*/ meltfptr[86]), (0), (/*_.NLOC__V29*/ meltfptr[28]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[86])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V87*/ meltfptr[86]), (1), (/*_.OIROUT__V53*/ meltfptr[52]), "OPRCONST_ROUT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[86])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V87*/ meltfptr[86]), (2), (/*_.MAKE_INTEGERBOX__V85*/ meltfptr[75]), "OPRCONST_OFF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[86])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V87*/ meltfptr[86]), (3), (/*_.OCONSTX__V78*/ meltfptr[76]), "OPRCONST_CVAL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V87*/ meltfptr[86], "newly made instance"); ; /*_.INST___V86*/ meltfptr[82] = /*_.INST__V87*/ meltfptr[86];; /*^compute*/ /*_.IPUT__V81*/ meltfptr[79] = /*_.INST___V86*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6069:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V85*/ meltfptr[75] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V86*/ meltfptr[82] = 0 ; } ; } ; { MELT_LOCATION("warmelt-genobj.melt:6082:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V33*/ meltfptr[32]), (melt_ptr_t)(/*_.IPUT__V81*/ meltfptr[79])); } ; /*_#plI__L35*/ meltfnum[31] = ((/*_#OFF__L31*/ meltfnum[25]) + (1));; { MELT_LOCATION("warmelt-genobj.melt:6083:/ locexp"); melt_put_int((melt_ptr_t)(/*_.BXOFF__V65*/ meltfptr[64]), (/*_#plI__L35*/ meltfnum[31])); } ; MELT_LOCATION("warmelt-genobj.melt:6067:/ clear"); /*clear*/ /*_#IS_A__L34*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_.IPUT__V81*/ meltfptr[79] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L35*/ meltfnum[31] = 0 ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:6061:/ clear"); /*clear*/ /*_.OCONSTX__V78*/ meltfptr[76] = 0 ; /*^clear*/ /*clear*/ /*_#OFF__L31*/ meltfnum[25] = 0 ; /*_._IFELSE___V73*/ meltfptr[71] = /*_.IFCPP___V75*/ meltfptr[74];; MELT_LOCATION("warmelt-genobj.melt:6059:/ clear"); /*clear*/ /*_.CNSTBIND__V74*/ meltfptr[70] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V75*/ meltfptr[74] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-genobj.melt:6058:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L36*/ meltfnum[32] = melt_is_instance_of((melt_ptr_t)(/*_.CONSTX__V70*/ meltfptr[66]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA*/ meltfrout->tabval[24])));; MELT_LOCATION("warmelt-genobj.melt:6085:/ cond"); /*cond*/ if (/*_#IS_A__L36*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6086:/ quasiblock"); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6087:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.OCONSTX__V89*/ meltfptr[82] = meltgc_send((melt_ptr_t)(/*_.CONSTX__V70*/ meltfptr[66]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#OFF__L37*/ meltfnum[31] = (melt_get_int((melt_ptr_t)(/*_.BXOFF__V65*/ meltfptr[64])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6090:/ cond"); /*cond*/ if (/*_.OCONSTX__V89*/ meltfptr[82]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6091:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*_.MAKE_INTEGERBOX__V90*/ meltfptr[79] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[17])), (/*_#OFF__L37*/ meltfnum[31])));; MELT_LOCATION("warmelt-genobj.melt:6091:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ meltfrout->tabval[23])), (4), "CLASS_OBJPUTROUTCONST"); /*_.INST__V92*/ meltfptr[70] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V92*/ meltfptr[70])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V92*/ meltfptr[70]), (0), (/*_.NLOC__V29*/ meltfptr[28]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V92*/ meltfptr[70])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V92*/ meltfptr[70]), (1), (/*_.OIROUT__V53*/ meltfptr[52]), "OPRCONST_ROUT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V92*/ meltfptr[70])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V92*/ meltfptr[70]), (2), (/*_.MAKE_INTEGERBOX__V90*/ meltfptr[79]), "OPRCONST_OFF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V92*/ meltfptr[70])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V92*/ meltfptr[70]), (3), (/*_.OCONSTX__V89*/ meltfptr[82]), "OPRCONST_CVAL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V92*/ meltfptr[70], "newly made instance"); ; /*_.IPUT__V91*/ meltfptr[76] = /*_.INST__V92*/ meltfptr[70];; { MELT_LOCATION("warmelt-genobj.melt:6096:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V33*/ meltfptr[32]), (melt_ptr_t)(/*_.IPUT__V91*/ meltfptr[76])); } ; /*_#plI__L38*/ meltfnum[25] = ((/*_#OFF__L37*/ meltfnum[31]) + (1));; { MELT_LOCATION("warmelt-genobj.melt:6097:/ locexp"); melt_put_int((melt_ptr_t)(/*_.BXOFF__V65*/ meltfptr[64]), (/*_#plI__L38*/ meltfnum[25])); } ; /*clear*/ /*_._IFELSE___V88*/ meltfptr[75] = 0 ; MELT_LOCATION("warmelt-genobj.melt:6091:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V90*/ meltfptr[79] = 0 ; /*^clear*/ /*clear*/ /*_.IPUT__V91*/ meltfptr[76] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L38*/ meltfnum[25] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-genobj.melt:6090:/ cond.else"); /*_._IFELSE___V88*/ meltfptr[75] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6086:/ clear"); /*clear*/ /*_.OCONSTX__V89*/ meltfptr[82] = 0 ; /*^clear*/ /*clear*/ /*_#OFF__L37*/ meltfnum[31] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-genobj.melt:6085:/ cond.else"); /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6099:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V94*/ meltfptr[79] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6099:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "compilobj_dataroutine uneppected constx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6099; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CONSTX__V70*/ meltfptr[66]; /*_.MELT_ASSERT_FAILURE_FUN__V95*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V94*/ meltfptr[79] = /*_.MELT_ASSERT_FAILURE_FUN__V95*/ meltfptr[76];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6099:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V95*/ meltfptr[76] = 0 ; } ; } ; /*_.IFCPP___V93*/ meltfptr[74] = /*_._IFELSE___V94*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6099:/ clear"); /*clear*/ /*_._IFELSE___V94*/ meltfptr[79] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V93*/ meltfptr[74] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6098:/ quasiblock"); /*_.PROGN___V96*/ meltfptr[82] = /*_.IFCPP___V93*/ meltfptr[74];; /*^compute*/ /*_._IFELSE___V88*/ meltfptr[75] = /*_.PROGN___V96*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6085:/ clear"); /*clear*/ /*_.IFCPP___V93*/ meltfptr[74] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V96*/ meltfptr[82] = 0 ; } ; } ; /*_._IFELSE___V73*/ meltfptr[71] = /*_._IFELSE___V88*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6058:/ clear"); /*clear*/ /*_#IS_A__L36*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V88*/ meltfptr[75] = 0 ; } ; } ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CONSTPAIR__V69*/ meltfptr[67] = NULL; /*_.CONSTX__V70*/ meltfptr[66] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6053:/ clear"); /*clear*/ /*_.CONSTPAIR__V69*/ meltfptr[67] = 0 ; /*^clear*/ /*clear*/ /*_.CONSTX__V70*/ meltfptr[66] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L29*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V73*/ meltfptr[71] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_CHECK_SIGNAL(); ; /*_#GET_INT__L39*/ meltfnum[25] = (melt_get_int((melt_ptr_t)(/*_.BXOFF__V65*/ meltfptr[64])));; /*^compute*/ /*_#gtI__L40*/ meltfnum[31] = ((/*_#GET_INT__L39*/ meltfnum[25]) > (0));; MELT_LOCATION("warmelt-genobj.melt:6103:/ cond"); /*cond*/ if (/*_#gtI__L40*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6104:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ meltfrout->tabval[25])), (3), "CLASS_OBJTOUCH"); /*_.INST__V98*/ meltfptr[79] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[79])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V98*/ meltfptr[79]), (0), (/*_.NLOC__V29*/ meltfptr[28]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[79])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V98*/ meltfptr[79]), (1), (/*_.OIROUT__V53*/ meltfptr[52]), "OTOUCH_VAL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[79])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V98*/ meltfptr[79]), (2), (/*_.COMM__V66*/ meltfptr[65]), "OTOUCH_COMMENT"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V98*/ meltfptr[79], "newly made instance"); ; /*_.INST___V97*/ meltfptr[76] = /*_.INST__V98*/ meltfptr[79];; { MELT_LOCATION("warmelt-genobj.melt:6104:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V33*/ meltfptr[32]), (melt_ptr_t)(/*_.INST___V97*/ meltfptr[76])); } ; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6103:/ clear"); /*clear*/ /*_.INST___V97*/ meltfptr[76] = 0 ; } ; } /*noelse*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6109:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L41*/ meltfnum[32] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6109:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6109:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L42*/ meltfnum[41]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6109; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_dataroutine final oirout="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OIROUT__V53*/ meltfptr[52]; /*_.MELT_DEBUG_FUN__V100*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V99*/ meltfptr[74] = /*_.MELT_DEBUG_FUN__V100*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6109:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V100*/ meltfptr[82] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V99*/ meltfptr[74] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6109:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V99*/ meltfptr[74] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.LET___V63*/ meltfptr[58] = /*_.OIROUT__V53*/ meltfptr[52];; MELT_LOCATION("warmelt-genobj.melt:6046:/ clear"); /*clear*/ /*_.PCONSTL__V64*/ meltfptr[63] = 0 ; /*^clear*/ /*clear*/ /*_#NBCONST__L24*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.BXOFF__V65*/ meltfptr[64] = 0 ; /*^clear*/ /*clear*/ /*_.COMM__V66*/ meltfptr[65] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L39*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L40*/ meltfnum[31] = 0 ; /*_._IF___V62*/ meltfptr[54] = /*_.LET___V63*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6045:/ clear"); /*clear*/ /*_.LET___V63*/ meltfptr[58] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V62*/ meltfptr[54] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V50*/ meltfptr[48] = /*_._IF___V62*/ meltfptr[54];; MELT_LOCATION("warmelt-genobj.melt:6026:/ clear"); /*clear*/ /*_.OINIPRO__V51*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V52*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_.OIROUT__V53*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V57*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L23*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V62*/ meltfptr[54] = 0 ; /*_.LET___V46*/ meltfptr[38] = /*_.LET___V50*/ meltfptr[48];; MELT_LOCATION("warmelt-genobj.melt:6016:/ clear"); /*clear*/ /*_.NAMBUF__V47*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_#DRK__L17*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.ODISCR__V48*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V50*/ meltfptr[48] = 0 ; /*_.LET___V26*/ meltfptr[22] = /*_.LET___V46*/ meltfptr[38];; MELT_LOCATION("warmelt-genobj.melt:6001:/ clear"); /*clear*/ /*_.NAM__V27*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.DISX__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.NLOC__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.DRANK__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.NAM__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.NPRO__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.INIBODY__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.LOCVAR__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L12*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V37*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V43*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V46*/ meltfptr[38] = 0 ; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V26*/ meltfptr[22];; MELT_LOCATION("warmelt-genobj.melt:5990:/ clear"); /*clear*/ /*_.COMPICACHE__V13*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.INIROUT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.CHOBJ__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V21*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V26*/ meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:5985:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:5985:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_DATAROUTINE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_146_WARMELTmiGENOBJ_COMPILOBJ_DATAROUTINE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK fromline 1752 */ /** start of frame for meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK// fromline 1568 : public Melt_CallFrameWithValues<99> { public: /* fromline 1572*/ long mcfr_varnum[46]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<99> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK), clos) {}; MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK() //the constructor fromline 1642 : Melt_CallFrameWithValues<99> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<99> (fil,lin, sizeof(MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK)) {}; MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<99> (fil,lin, sizeof(MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK /** end of frame for meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK fromline 1697**/ /* end of frame for routine meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK fromline 1756 */ /* classy proc frame meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK */ MeltFrame_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_DATAHOOK", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6120:/ getarg"); /*_.NDHOOK__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6121:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6121:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6121:/ apply"); /*apply*/ { union meltparam_un argtab[8]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6121; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook ndhook="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NDHOOK__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n"; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6121:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6121:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6122:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_datahook"), (16)); #endif ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6123:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:6123:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6123:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check ndhook"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6123; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NDHOOK__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6123:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6123:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6124:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:6124:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6124:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6124; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6124:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6124:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6125:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 6, "GNCX_COMPICACHE"); /*_.COMPICACHE__V13*/ meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6126:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "GNCX_OBJROUT"); /*_.INIROUT__V14*/ meltfptr[13] = slot; }; ; /*_.CHOBJ__V15*/ meltfptr[14] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V13*/ meltfptr[3]), (meltobject_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-genobj.melt:6128:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.NLOC__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6130:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6130:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6130:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6130; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook compicache="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V13*/ meltfptr[3]; /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V17*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6130:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6130:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6131:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MAPOBJECT__L7*/ meltfnum[0] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.COMPICACHE__V13*/ meltfptr[3])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-genobj.melt:6131:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V20*/ meltfptr[16] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6131:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check compicache"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6131; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V13*/ meltfptr[3]; /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V20*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6131:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = 0 ; } ; } ; /*_.IFCPP___V19*/ meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6131:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V20*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V19*/ meltfptr[17] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6132:/ cond"); /*cond*/ if (/*_.CHOBJ__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6133:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6133:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6133:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6133; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook return chobj="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CHOBJ__V15*/ meltfptr[14]; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V23*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6133:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V23*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6133:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V23*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6134:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.CHOBJ__V15*/ meltfptr[14];; { MELT_LOCATION("warmelt-genobj.melt:6134:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-genobj.melt:6132:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[16] = /*_.RETURN___V25*/ meltfptr[23];; /*^compute*/ /*_._IF___V22*/ meltfptr[20] = /*_.PROGN___V26*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6132:/ clear"); /*clear*/ /*_.RETURN___V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V26*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V22*/ meltfptr[20] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6135:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6135:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L11*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6135:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6135; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook inirout="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INIROUT__V14*/ meltfptr[13]; /*_.MELT_DEBUG_FUN__V28*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V27*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6135:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V27*/ meltfptr[23] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6135:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V27*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6136:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L12*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_ANY_START_ROUTINEOBJ*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:6136:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[23] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6136:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check inirout"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6136; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INIROUT__V14*/ meltfptr[13]; /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V30*/ meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6136:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = 0 ; } ; } ; /*_.IFCPP___V29*/ meltfptr[16] = /*_._IFELSE___V30*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6136:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V30*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V29*/ meltfptr[16] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6137:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6138:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NDHOOK_CLOSV"); /*_.NCT__V34*/ meltfptr[33] = slot; }; ; } else /*^cond.else*/ { /*_.NCT__V34*/ meltfptr[33] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6139:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L13*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6139:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L14*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6139:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L14*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6139; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook nclotup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCT__V34*/ meltfptr[33]; /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V35*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6139:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V35*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6139:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V35*/ meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.LET___V33*/ meltfptr[23] = /*_.NCT__V34*/ meltfptr[33];; MELT_LOCATION("warmelt-genobj.melt:6138:/ clear"); /*clear*/ /*_.NCT__V34*/ meltfptr[33] = 0 ; /*_.NCLOTUP__V37*/ meltfptr[35] = /*_.LET___V33*/ meltfptr[23];; MELT_LOCATION("warmelt-genobj.melt:6141:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INIROUT__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 5, "OBROUT_BODY"); /*_.INIBODY__V38*/ meltfptr[34] = slot; }; ; } else /*^cond.else*/ { /*_.INIBODY__V38*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#NBCLO__L15*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.NCLOTUP__V37*/ meltfptr[35])));; MELT_LOCATION("warmelt-genobj.melt:6143:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NDHOOK_PROC"); /*_.NHPRO__V39*/ meltfptr[33] = slot; }; ; } else /*^cond.else*/ { /*_.NHPRO__V39*/ meltfptr[33] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6144:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_BOUND_DATA*/ meltfrout->tabval[7]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NDATA_NAME"); /*_.HNAME__V40*/ meltfptr[39] = slot; }; ; } else /*^cond.else*/ { /*_.HNAME__V40*/ meltfptr[39] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6145:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_BOUND_DATA*/ meltfrout->tabval[7]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NDATA_RANK"); /*_.NRANK__V41*/ meltfptr[40] = slot; }; ; } else /*^cond.else*/ { /*_.NRANK__V41*/ meltfptr[40] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6146:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 8, "NDHOOK_PREDEF"); /*_.NPREDEF__V42*/ meltfptr[41] = slot; }; ; } else /*^cond.else*/ { /*_.NPREDEF__V42*/ meltfptr[41] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6147:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 9, "NDHOOK_MODVARBIND"); /*_.NMODVARBIND__V43*/ meltfptr[42] = slot; }; ; } else /*^cond.else*/ { /*_.NMODVARBIND__V43*/ meltfptr[42] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6149:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_BOUND_DATA*/ meltfrout->tabval[7]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NDATA_LOCBIND"); /*_.NLOCBIND__V44*/ meltfptr[43] = slot; }; ; } else /*^cond.else*/ { /*_.NLOCBIND__V44*/ meltfptr[43] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6150:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DISCRIMINATED_DATA*/ meltfrout->tabval[8]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NDATA_DISCRX"); /*_.NDISX__V45*/ meltfptr[44] = slot; }; ; } else /*^cond.else*/ { /*_.NDISX__V45*/ meltfptr[44] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6151:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAHOOK*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDHOOK__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NDHOOK_DATA"); /*_.NDHDATA__V46*/ meltfptr[45] = slot; }; ; } else /*^cond.else*/ { /*_.NDHDATA__V46*/ meltfptr[45] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6152:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^msend*/ /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.ODI__V48*/ meltfptr[47] = meltgc_send((melt_ptr_t)(/*_.NDISX__V45*/ meltfptr[44]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6153:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L16*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6153:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6153:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[16]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6153; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook odiscr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ODI__V48*/ meltfptr[47]; /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V49*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6153:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V49*/ meltfptr[48] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6153:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V49*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.LET___V47*/ meltfptr[46] = /*_.ODI__V48*/ meltfptr[47];; MELT_LOCATION("warmelt-genobj.melt:6152:/ clear"); /*clear*/ /*_.ODI__V48*/ meltfptr[47] = 0 ; /*_.ODISCR__V51*/ meltfptr[49] = /*_.LET___V47*/ meltfptr[46];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6155:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "dhook__"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NRANK__V41*/ meltfptr[40]; /*^apply.arg*/ argtab[2].meltbp_cstring = "__"; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HNAME__V40*/ meltfptr[39]; /*_.ONAM__V52*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[11])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6157:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_13__VALHOOK_*/ meltfrout->tabval[13]); /*_.LOCVAR__V53*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.OCLO__V54*/ meltfptr[53] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[14])), (/*_#NBCLO__L15*/ meltfnum[1])));; MELT_LOCATION("warmelt-genobj.melt:6159:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^msend*/ /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.O__V56*/ meltfptr[55] = meltgc_send((melt_ptr_t)(/*_.NDHDATA__V46*/ meltfptr[45]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6161:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6161:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L19*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6161:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6161; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook ohkdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.O__V56*/ meltfptr[55]; /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V57*/ meltfptr[56] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6161:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V57*/ meltfptr[56] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6161:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V57*/ meltfptr[56] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.LET___V55*/ meltfptr[54] = /*_.O__V56*/ meltfptr[55];; MELT_LOCATION("warmelt-genobj.melt:6159:/ clear"); /*clear*/ /*_.O__V56*/ meltfptr[55] = 0 ; /*_.OHKDATA__V59*/ meltfptr[57] = /*_.LET___V55*/ meltfptr[54];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6164:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITHOOK*/ meltfrout->tabval[15])), (10), "CLASS_OBJINITHOOK"); /*_.INST__V61*/ meltfptr[55] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (0), ((/*!CTYPE_VALUE*/ meltfrout->tabval[16])), "OBV_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (4), (/*_.LOCVAR__V53*/ meltfptr[47]), "OIE_LOCVAR"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (1), (/*_.ONAM__V52*/ meltfptr[48]), "OIE_CNAME"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (2), (/*_.NDHOOK__V2*/ meltfptr[1]), "OIE_DATA"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (3), (/*_.ODISCR__V51*/ meltfptr[49]), "OIE_DISCR"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIHK_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (6), (/*_.OHKDATA__V59*/ meltfptr[57]), "OIHK_DATA"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIHK_PROCHOOK", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (5), (/*_.NHPRO__V39*/ meltfptr[33]), "OIHK_PROCHOOK"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIHK_CLOVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (7), (/*_.OCLO__V54*/ meltfptr[53]), "OIHK_CLOVAL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIHK_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (8), (/*_.NPREDEF__V42*/ meltfptr[41]), "OIHK_PREDEF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OIHK_MODVARBIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[55])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V61*/ meltfptr[55]), (9), (/*_.NMODVARBIND__V43*/ meltfptr[42]), "OIHK_MODVARBIND"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[55], "newly made instance"); ; /*_.OIHOOK__V60*/ meltfptr[56] = /*_.INST__V61*/ meltfptr[55];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6177:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L20*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6177:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L21*/ meltfnum[16] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6177:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[16]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6177; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook before compiling nclotup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCLOTUP__V37*/ meltfptr[35]; /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V62*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6177:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V62*/ meltfptr[61] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6177:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V62*/ meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NCLOTUP__V37*/ meltfptr[35]); for (/*_#CLIX__L22*/ meltfnum[16] = 0; (/*_#CLIX__L22*/ meltfnum[16] >= 0) && (/*_#CLIX__L22*/ meltfnum[16] < meltcit1__EACHTUP_ln); /*_#CLIX__L22*/ meltfnum[16]++) { /*_.NCURCLO__V64*/ meltfptr[62] = melt_multiple_nth((melt_ptr_t)(/*_.NCLOTUP__V37*/ meltfptr[35]), /*_#CLIX__L22*/ meltfnum[16]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6181:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L23*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6181:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L24*/ meltfnum[23] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6181:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L24*/ meltfnum[23]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6181; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook clix#"; /*^apply.arg*/ argtab[4].meltbp_long = /*_#CLIX__L22*/ meltfnum[16]; /*^apply.arg*/ argtab[5].meltbp_cstring = " ncurclo="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCURCLO__V64*/ meltfptr[62]; /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V65*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6181:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V65*/ meltfptr[61] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6181:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V65*/ meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6182:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^msend*/ /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.OCURCLO__V67*/ meltfptr[65] = meltgc_send((melt_ptr_t)(/*_.NCURCLO__V64*/ meltfptr[62]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6184:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L25*/ meltfnum[23] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6184:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L25*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L26*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6184:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L26*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6184; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook clix#"; /*^apply.arg*/ argtab[4].meltbp_long = /*_#CLIX__L22*/ meltfnum[16]; /*^apply.arg*/ argtab[5].meltbp_cstring = " ocurclo="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OCURCLO__V67*/ meltfptr[65]; /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V68*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6184:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L26*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[68] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V68*/ meltfptr[61] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6184:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L25*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V68*/ meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6185:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.OCLO__V54*/ meltfptr[53]), (/*_#CLIX__L22*/ meltfnum[16]), (melt_ptr_t)(/*_.OCURCLO__V67*/ meltfptr[65])); } ; MELT_LOCATION("warmelt-genobj.melt:6182:/ clear"); /*clear*/ /*_.OCURCLO__V67*/ meltfptr[65] = 0 ; if (/*_#CLIX__L22*/ meltfnum[16]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6178:/ clear"); /*clear*/ /*_.NCURCLO__V64*/ meltfptr[62] = 0 ; /*^clear*/ /*clear*/ /*_#CLIX__L22*/ meltfnum[16] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6187:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L27*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6187:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L28*/ meltfnum[23] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6187:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L28*/ meltfnum[23]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6187; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook oclo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCLO__V54*/ meltfptr[53]; /*_.MELT_DEBUG_FUN__V71*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V70*/ meltfptr[68] = /*_.MELT_DEBUG_FUN__V71*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6187:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V71*/ meltfptr[61] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V70*/ meltfptr[68] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6187:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V70*/ meltfptr[68] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6188:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V13*/ meltfptr[3]), (meltobject_ptr_t) (/*_.NDHOOK__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.OIHOOK__V60*/ meltfptr[56])); } ; /*_#MULTIPLE_LENGTH__L29*/ meltfnum[23] = (melt_multiple_length((melt_ptr_t)(/*_.OCLO__V54*/ meltfptr[53])));; { MELT_LOCATION("warmelt-genobj.melt:6189:/ locexp"); melt_put_int((melt_ptr_t)(/*_.OIHOOK__V60*/ meltfptr[56]), (/*_#MULTIPLE_LENGTH__L29*/ meltfnum[23])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6190:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L30*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6190:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L31*/ meltfnum[30] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6190:/ apply"); /*apply*/ { union meltparam_un argtab[15]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L31*/ meltfnum[30]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6190; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook updated compicache="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V13*/ meltfptr[3]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. nclotup="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCLOTUP__V37*/ meltfptr[35]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n.. nhpro="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NHPRO__V39*/ meltfptr[33]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n.. oihook="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.OIHOOK__V60*/ meltfptr[56]; /*^apply.arg*/ argtab[11].meltbp_cstring = "\n.. oclo="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.OCLO__V54*/ meltfptr[53]; /*^apply.arg*/ argtab[13].meltbp_cstring = "\n.. inibody="; /*^apply.arg*/ argtab[14].meltbp_aptr = (melt_ptr_t*) &/*_.INIBODY__V38*/ meltfptr[34]; /*_.MELT_DEBUG_FUN__V73*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V72*/ meltfptr[65] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6190:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[61] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V72*/ meltfptr[65] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6190:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V72*/ meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6194:/ cond"); /*cond*/ if (/*_.NMODVARBIND__V43*/ meltfptr[42]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6195:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L32*/ meltfnum[30] = melt_is_instance_of((melt_ptr_t)(/*_.NMODVARBIND__V43*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[17])));; MELT_LOCATION("warmelt-genobj.melt:6195:/ cond"); /*cond*/ if (/*_#IS_A__L32*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V75*/ meltfptr[61] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6195:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmodvarbind"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6195; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMODVARBIND__V43*/ meltfptr[42]; /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V75*/ meltfptr[61] = /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6195:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[65] = 0 ; } ; } ; /*_.IFCPP___V74*/ meltfptr[68] = /*_._IFELSE___V75*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6195:/ clear"); /*clear*/ /*_#IS_A__L32*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V75*/ meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V74*/ meltfptr[68] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6196:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^quasiblock*/ /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTMODVAR*/ meltfrout->tabval[18])), (3), "CLASS_OBJPUTMODVAR"); /*_.INST__V78*/ meltfptr[61] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[61])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V78*/ meltfptr[61]), (0), (/*_.NLOC__V16*/ meltfptr[15]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBPUTMODVAR_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[61])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V78*/ meltfptr[61]), (1), (/*_.NMODVARBIND__V43*/ meltfptr[42]), "OBPUTMODVAR_BIND"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBPUTMODVAR_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[61])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V78*/ meltfptr[61]), (2), (/*_.OIHOOK__V60*/ meltfptr[56]), "OBPUTMODVAR_VAL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V78*/ meltfptr[61], "newly made instance"); ; /*_.OPMV__V77*/ meltfptr[65] = /*_.INST__V78*/ meltfptr[61];; { MELT_LOCATION("warmelt-genobj.melt:6202:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V38*/ meltfptr[34]), (melt_ptr_t)(/*_.OPMV__V77*/ meltfptr[65])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6203:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L33*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6203:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L34*/ meltfnum[30] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6203:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L34*/ meltfnum[30]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6203; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook opmv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OPMV__V77*/ meltfptr[65]; /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V79*/ meltfptr[78] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6203:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V79*/ meltfptr[78] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6203:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V79*/ meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6196:/ clear"); /*clear*/ /*_.OPMV__V77*/ meltfptr[65] = 0 ; MELT_LOCATION("warmelt-genobj.melt:6194:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V74*/ meltfptr[68] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:6206:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^quasiblock*/ /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTHOOKDATA*/ meltfrout->tabval[19])), (3), "CLASS_OBJPUTHOOKDATA"); /*_.INST__V82*/ meltfptr[78] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[78])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V82*/ meltfptr[78]), (0), (/*_.NLOC__V16*/ meltfptr[15]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPHKDATA_HOOK", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[78])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V82*/ meltfptr[78]), (1), (/*_.OIHOOK__V60*/ meltfptr[56]), "OPHKDATA_HOOK"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPHKDATA_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[78])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V82*/ meltfptr[78]), (2), (/*_.OHKDATA__V59*/ meltfptr[57]), "OPHKDATA_DATA"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[78], "newly made instance"); ; /*_.OPHD__V81*/ meltfptr[79] = /*_.INST__V82*/ meltfptr[78];; { MELT_LOCATION("warmelt-genobj.melt:6211:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V38*/ meltfptr[34]), (melt_ptr_t)(/*_.OPHD__V81*/ meltfptr[79])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6212:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L35*/ meltfnum[30] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6212:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L36*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6212:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L36*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6212; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook ophd="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OPHD__V81*/ meltfptr[79]; /*_.MELT_DEBUG_FUN__V84*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V83*/ meltfptr[65] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6212:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ meltfptr[68] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V83*/ meltfptr[65] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6212:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V83*/ meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6206:/ clear"); /*clear*/ /*_.OPHD__V81*/ meltfptr[79] = 0 ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6214:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L37*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6214:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L38*/ meltfnum[30] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6214:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L38*/ meltfnum[30]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6214; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook oclo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCLO__V54*/ meltfptr[53]; /*_.MELT_DEBUG_FUN__V86*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V85*/ meltfptr[68] = /*_.MELT_DEBUG_FUN__V86*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6214:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V86*/ meltfptr[65] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V85*/ meltfptr[68] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6214:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V85*/ meltfptr[68] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OCLO__V54*/ meltfptr[53]); for (/*_#OBIX__L39*/ meltfnum[30] = 0; (/*_#OBIX__L39*/ meltfnum[30] >= 0) && (/*_#OBIX__L39*/ meltfnum[30] < meltcit2__EACHTUP_ln); /*_#OBIX__L39*/ meltfnum[30]++) { /*_.CUROBC__V87*/ meltfptr[79] = melt_multiple_nth((melt_ptr_t)(/*_.OCLO__V54*/ meltfptr[53]), /*_#OBIX__L39*/ meltfnum[30]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6218:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L40*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6218:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L40*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L41*/ meltfnum[40] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6218:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L41*/ meltfnum[40]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6218; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook curobc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROBC__V87*/ meltfptr[79]; /*^apply.arg*/ argtab[5].meltbp_cstring = " obix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#OBIX__L39*/ meltfnum[30]; /*_.MELT_DEBUG_FUN__V89*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V88*/ meltfptr[65] = /*_.MELT_DEBUG_FUN__V89*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6218:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L41*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V89*/ meltfptr[68] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V88*/ meltfptr[65] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6218:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L40*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V88*/ meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6219:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*_.BOX__V90*/ meltfptr[68] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#OBIX__L39*/ meltfnum[30]));; MELT_LOCATION("warmelt-genobj.melt:6220:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTHOOKCONST*/ meltfrout->tabval[20])), (4), "CLASS_OBJPUTHOOKCONST"); /*_.INST__V92*/ meltfptr[91] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V92*/ meltfptr[91])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V92*/ meltfptr[91]), (0), (/*_.NLOC__V16*/ meltfptr[15]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPHCONST_HOOK", melt_magic_discr((melt_ptr_t)(/*_.INST__V92*/ meltfptr[91])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V92*/ meltfptr[91]), (1), (/*_.OIHOOK__V60*/ meltfptr[56]), "OPHCONST_HOOK"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPHCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V92*/ meltfptr[91])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V92*/ meltfptr[91]), (2), (/*_.BOX__V90*/ meltfptr[68]), "OPHCONST_OFF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPHCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V92*/ meltfptr[91])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V92*/ meltfptr[91]), (3), (/*_.CUROBC__V87*/ meltfptr[79]), "OPHCONST_CVAL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V92*/ meltfptr[91], "newly made instance"); ; /*_.IPUT__V91*/ meltfptr[65] = /*_.INST__V92*/ meltfptr[91];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6227:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L42*/ meltfnum[40] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6227:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L42*/ meltfnum[40]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L43*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6227:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L43*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6227; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook obix="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#OBIX__L39*/ meltfnum[30]; /*^apply.arg*/ argtab[5].meltbp_cstring = ".. curobc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CUROBC__V87*/ meltfptr[79]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n.. iput="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.IPUT__V91*/ meltfptr[65]; /*_.MELT_DEBUG_FUN__V94*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V93*/ meltfptr[92] = /*_.MELT_DEBUG_FUN__V94*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6227:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L43*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V94*/ meltfptr[93] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V93*/ meltfptr[92] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6227:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L42*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V93*/ meltfptr[92] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6229:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V38*/ meltfptr[34]), (melt_ptr_t)(/*_.IPUT__V91*/ meltfptr[65])); } ; MELT_LOCATION("warmelt-genobj.melt:6219:/ clear"); /*clear*/ /*_.BOX__V90*/ meltfptr[68] = 0 ; /*^clear*/ /*clear*/ /*_.IPUT__V91*/ meltfptr[65] = 0 ; if (/*_#OBIX__L39*/ meltfnum[30]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6215:/ clear"); /*clear*/ /*_.CUROBC__V87*/ meltfptr[79] = 0 ; /*^clear*/ /*clear*/ /*_#OBIX__L39*/ meltfnum[30] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; /*_#MULTIPLE_LENGTH__L44*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.OCLO__V54*/ meltfptr[53])));; MELT_LOCATION("warmelt-genobj.melt:6231:/ cond"); /*cond*/ if (/*_#MULTIPLE_LENGTH__L44*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6232:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ meltfrout->tabval[21])), (3), "CLASS_OBJTOUCH"); /*_.INST__V96*/ meltfptr[92] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V96*/ meltfptr[92])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V96*/ meltfptr[92]), (0), (/*_.NLOC__V16*/ meltfptr[15]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V96*/ meltfptr[92])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V96*/ meltfptr[92]), (1), (/*_.OIHOOK__V60*/ meltfptr[56]), "OTOUCH_VAL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V96*/ meltfptr[92])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V96*/ meltfptr[92]), (2), (/*_.HNAME__V40*/ meltfptr[39]), "OTOUCH_COMMENT"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V96*/ meltfptr[92], "newly made instance"); ; /*_.INST___V95*/ meltfptr[93] = /*_.INST__V96*/ meltfptr[92];; { MELT_LOCATION("warmelt-genobj.melt:6232:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V38*/ meltfptr[34]), (melt_ptr_t)(/*_.INST___V95*/ meltfptr[93])); } ; MELT_LOCATION("warmelt-genobj.melt:6231:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.INST___V95*/ meltfptr[93] = 0 ; } ; } /*noelse*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6237:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L45*/ meltfnum[40] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6237:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L45*/ meltfnum[40]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L46*/ meltfnum[45] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6237:/ apply"); /*apply*/ { union meltparam_un argtab[8]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L46*/ meltfnum[45]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6237; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_datahook updated inibody="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INIBODY__V38*/ meltfptr[34]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. final oihook="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OIHOOK__V60*/ meltfptr[56]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n"; /*_.MELT_DEBUG_FUN__V98*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V97*/ meltfptr[68] = /*_.MELT_DEBUG_FUN__V98*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6237:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L46*/ meltfnum[45] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V98*/ meltfptr[65] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V97*/ meltfptr[68] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6237:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L45*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V97*/ meltfptr[68] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6238:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OIHOOK__V60*/ meltfptr[56];; { MELT_LOCATION("warmelt-genobj.melt:6238:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V32*/ meltfptr[30] = /*_.RETURN___V99*/ meltfptr[93];; MELT_LOCATION("warmelt-genobj.melt:6137:/ clear"); /*clear*/ /*_.LET___V33*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.NCLOTUP__V37*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.INIBODY__V38*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_#NBCLO__L15*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.NHPRO__V39*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.HNAME__V40*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.NRANK__V41*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.NPREDEF__V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.NMODVARBIND__V43*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.NLOCBIND__V44*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.NDISX__V45*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.NDHDATA__V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.ODISCR__V51*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.ONAM__V52*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.LOCVAR__V53*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.OCLO__V54*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V55*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.OHKDATA__V59*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.OIHOOK__V60*/ meltfptr[56] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L29*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L44*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V99*/ meltfptr[93] = 0 ; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V32*/ meltfptr[30];; MELT_LOCATION("warmelt-genobj.melt:6125:/ clear"); /*clear*/ /*_.COMPICACHE__V13*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.INIROUT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.CHOBJ__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NLOC__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V22*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V29*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V32*/ meltfptr[30] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6120:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:6120:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_DATAHOOK", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_147_WARMELTmiGENOBJ_COMPILOBJ_DATAHOOK*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1752 */ /** start of frame for meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE// fromline 1568 : public Melt_CallFrameWithValues<9> { public: /* fromline 1572*/ long mcfr_varnum[1]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<9> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE), clos) {}; MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE() //the constructor fromline 1642 : Melt_CallFrameWithValues<9> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE)) {}; MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE /** end of frame for meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1697**/ /* end of frame for routine meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1756 */ /* classy proc frame meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ MeltFrame_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6244:/ getarg"); /*_.QDCM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6245:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.QDCM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:6245:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6245:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check qdcm"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6245; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.QDCM__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6245:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6245:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6247:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 11, "IGNCX_CONTENVLOC"); /*_.LOCBOX__V8*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.LOCBOX__V8*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6249:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LOCBOX__V8*/ meltfptr[4];; { MELT_LOCATION("warmelt-genobj.melt:6249:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V7*/ meltfptr[5] = /*_.RETURN___V9*/ meltfptr[8];; MELT_LOCATION("warmelt-genobj.melt:6247:/ clear"); /*clear*/ /*_.LOCBOX__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V9*/ meltfptr[8] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6244:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { MELT_LOCATION("warmelt-genobj.melt:6244:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_148_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT fromline 1752 */ /** start of frame for meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT// fromline 1568 : public Melt_CallFrameWithValues<11> { public: /* fromline 1572*/ long mcfr_varnum[3]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<11> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT), clos) {}; MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT() //the constructor fromline 1642 : Melt_CallFrameWithValues<11> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT)) {}; MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT /** end of frame for meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT fromline 1697**/ /* end of frame for routine meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT fromline 1756 */ /* classy proc frame meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT */ MeltFrame_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6254:/ getarg"); /*_.QDPM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6255:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6255:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6255:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6255; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_quasidata_parent_module_environment qdpm="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.QDPM__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6255:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6255:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6256:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.QDPM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:6256:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6256:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check qdpm"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6256; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.QDPM__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6256:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6256:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6258:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 10, "IGNCX_PREVENVLOC"); /*_.PREVENVLOC__V10*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.PREVENVLOC__V10*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6260:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.PREVENVLOC__V10*/ meltfptr[3];; { MELT_LOCATION("warmelt-genobj.melt:6260:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V9*/ meltfptr[7] = /*_.RETURN___V11*/ meltfptr[10];; MELT_LOCATION("warmelt-genobj.melt:6258:/ clear"); /*clear*/ /*_.PREVENVLOC__V10*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V11*/ meltfptr[10] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6254:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-genobj.melt:6254:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_149_WARMELTmiGENOBJ_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED fromline 1752 */ /** start of frame for meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED// fromline 1568 : public Melt_CallFrameWithValues<35> { public: /* fromline 1572*/ long mcfr_varnum[10]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<35> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED), clos) {}; MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED() //the constructor fromline 1642 : Melt_CallFrameWithValues<35> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<35> (fil,lin, sizeof(MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED)) {}; MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<35> (fil,lin, sizeof(MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED /** end of frame for meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED fromline 1697**/ /* end of frame for routine meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED fromline 1756 */ /* classy proc frame meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED */ MeltFrame_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_STORE_PREDEFINED", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6265:/ getarg"); /*_.NSPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6266:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NSPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_STORE_PREDEFINED*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:6266:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6266:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nspr"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6266; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NSPR__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6266:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6266:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6267:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-genobj.melt:6267:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6267:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6267; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6267:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6267:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6268:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6268:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6268:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6268; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_store_predefined start nspr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NSPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V10*/ meltfptr[8] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6268:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6268:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V10*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6269:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NSPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V13*/ meltfptr[8] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6270:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NSPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NSTPD_PREDEF"); /*_.NPRED__V14*/ meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6271:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NSPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NSTPD_VALUE"); /*_.NVAL__V15*/ meltfptr[14] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6272:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.OVAL__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.NVAL__V15*/ meltfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.RES__V17*/ meltfptr[16] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L5*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.NPRED__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:6276:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6277:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NPRED__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NPRED__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V20*/ meltfptr[19] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V20*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.NAMEPRED__V21*/ meltfptr[20] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[6])), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V20*/ meltfptr[19]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6279:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!CTYPE_VOID*/ meltfrout->tabval[9]); /*^apply.arg*/ argtab[1].meltbp_cstring = "MELT_STORE_PREDEF("; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMEPRED__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[3].meltbp_cstring = ", (melt_ptr_t) ("; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OVAL__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[5].meltbp_cstring = "))"; /*_.MAKE_OBJCOMPUTE__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_OBJCOMPUTE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.NLOC__V13*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:6278:/ compute"); /*_.RES__V17*/ meltfptr[16] = /*_.SETQ___V23*/ meltfptr[22] = /*_.MAKE_OBJCOMPUTE__V22*/ meltfptr[21];; /*_.LET___V19*/ meltfptr[18] = /*_.SETQ___V23*/ meltfptr[22];; MELT_LOCATION("warmelt-genobj.melt:6277:/ clear"); /*clear*/ /*_.NAMED_NAME__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.NAMEPRED__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_OBJCOMPUTE__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V23*/ meltfptr[22] = 0 ; /*_._IFELSE___V18*/ meltfptr[17] = /*_.LET___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6276:/ clear"); /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_INTEGERBOX__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.NPRED__V14*/ meltfptr[13])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-genobj.melt:6284:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6286:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!CTYPE_VOID*/ meltfrout->tabval[9]); /*^apply.arg*/ argtab[1].meltbp_cstring = "melt_store_predefined("; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NPRED__V14*/ meltfptr[13]; /*^apply.arg*/ argtab[3].meltbp_cstring = ", (melt_ptr_t) ("; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OVAL__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[5].meltbp_cstring = "))"; /*_.MAKE_OBJCOMPUTE__V25*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_OBJCOMPUTE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.NLOC__V13*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:6285:/ compute"); /*_.RES__V17*/ meltfptr[16] = /*_.SETQ___V26*/ meltfptr[21] = /*_.MAKE_OBJCOMPUTE__V25*/ meltfptr[20];; /*_._IFELSE___V24*/ meltfptr[19] = /*_.SETQ___V26*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6284:/ clear"); /*clear*/ /*_.MAKE_OBJCOMPUTE__V25*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V26*/ meltfptr[21] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6292:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6292:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6292:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6292; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_store_predefined bad npred="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NPRED__V14*/ meltfptr[13]; /*_.MELT_DEBUG_FUN__V28*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V27*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6292:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V27*/ meltfptr[22] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6292:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V27*/ meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6293:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[21] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6293:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "compilobj_nrep_store_predefined invalid npred"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6293; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NPRED__V14*/ meltfptr[13]; /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V30*/ meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6293:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[18] = 0 ; } ; } ; /*_.IFCPP___V29*/ meltfptr[20] = /*_._IFELSE___V30*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6293:/ clear"); /*clear*/ /*_._IFELSE___V30*/ meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V29*/ meltfptr[20] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6294:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-genobj.melt:6294:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-genobj.melt:6291:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[18] = /*_.RETURN___V32*/ meltfptr[22];; /*^compute*/ /*_._IFELSE___V24*/ meltfptr[19] = /*_.PROGN___V33*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6284:/ clear"); /*clear*/ /*_.IFCPP___V29*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V32*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V33*/ meltfptr[18] = 0 ; } ; } ; /*_._IFELSE___V18*/ meltfptr[17] = /*_._IFELSE___V24*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6276:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V24*/ meltfptr[19] = 0 ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6296:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6296:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L10*/ meltfnum[6] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6296:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[6]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6296; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_store_predefined result res="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V17*/ meltfptr[16]; /*_.MELT_DEBUG_FUN__V35*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V34*/ meltfptr[21] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6296:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V34*/ meltfptr[21] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6296:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V34*/ meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.LET___V12*/ meltfptr[4] = /*_.RES__V17*/ meltfptr[16];; MELT_LOCATION("warmelt-genobj.melt:6269:/ clear"); /*clear*/ /*_.NLOC__V13*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.NPRED__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.NVAL__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.OVAL__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.RES__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V18*/ meltfptr[17] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6265:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[4];; { MELT_LOCATION("warmelt-genobj.melt:6265:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_STORE_PREDEFINED", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_150_WARMELTmiGENOBJ_COMPILOBJ_NREP_STORE_PREDEFINED*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1752 */ /** start of frame for meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE// fromline 1568 : public Melt_CallFrameWithValues<44> { public: /* fromline 1572*/ long mcfr_varnum[13]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<44> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE), clos) {}; MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE() //the constructor fromline 1642 : Melt_CallFrameWithValues<44> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<44> (fil,lin, sizeof(MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE)) {}; MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<44> (fil,lin, sizeof(MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE /** end of frame for meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1697**/ /* end of frame for routine meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1756 */ /* classy proc frame meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ MeltFrame_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6304:/ getarg"); /*_.NUCMEB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6305:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NUCMEB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:6305:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6305:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nucmeb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6305; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NUCMEB__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6305:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6305:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6306:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-genobj.melt:6306:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6306:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6306; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6306:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6306:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6307:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6307:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6307:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6307; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_update_current_module_environment_reference nucmeb="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NUCMEB__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V10*/ meltfptr[8] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6307:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6307:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V10*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6308:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NUCMEB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V13*/ meltfptr[8] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6309:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NUCMEB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NCUMEB_COMMENT"); /*_.NCOMM__V14*/ meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6310:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NUCMEB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NUCMEB_EXPR"); /*_.NEX__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6311:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 12, "IGNCX_PROCURMODENVLIST"); /*_.PCML__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6312:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 11, "IGNCX_CONTENVLOC"); /*_.OCONTENVLOC__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.OCONTENVLOC__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6313:/ quasiblock"); /*_.SB__V19*/ meltfptr[18] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[4])), (const char*)0);; { MELT_LOCATION("warmelt-genobj.melt:6315:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V19*/ meltfptr[18]), ( "upd.cur.mod.env.cont")); } ; MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L5*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.NCOMM__V14*/ meltfptr[13])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-genobj.melt:6316:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-genobj.melt:6318:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V19*/ meltfptr[18]), ( " : ")); } ; { MELT_LOCATION("warmelt-genobj.melt:6319:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V19*/ meltfptr[18]), melt_string_str((melt_ptr_t)(/*_.NCOMM__V14*/ meltfptr[13]))); } ; MELT_LOCATION("warmelt-genobj.melt:6317:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; /*_.LET___V18*/ meltfptr[17] = /*_.SB__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-genobj.melt:6313:/ clear"); /*clear*/ /*_.SB__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#IS_STRING__L5*/ meltfnum[3] = 0 ; /*_.CSBUF__V20*/ meltfptr[18] = /*_.LET___V18*/ meltfptr[17];; /*^compute*/ /*_.OBODL__V21*/ meltfptr[20] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_.STRBUF2STRING__V22*/ meltfptr[21] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V20*/ meltfptr[18]))));; MELT_LOCATION("warmelt-genobj.melt:6323:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ meltfrout->tabval[6])), (4), "CLASS_OBJCOMMENTEDBLOCK"); /*_.INST__V24*/ meltfptr[23] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V24*/ meltfptr[23]), (0), (/*_.NLOC__V13*/ meltfptr[8]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V24*/ meltfptr[23]), (1), (/*_.OBODL__V21*/ meltfptr[20]), "OBLO_BODYL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OCOMBLO_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V24*/ meltfptr[23]), (3), (/*_.STRBUF2STRING__V22*/ meltfptr[21]), "OCOMBLO_COMMENT"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V24*/ meltfptr[23], "newly made instance"); ; /*_.OCBLO__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6328:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.OEX__V25*/ meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.NEX__V15*/ meltfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit1__EACHLIST */ for (/*_.CURPAIR__V26*/ meltfptr[25] = melt_list_first( (melt_ptr_t)/*_.PCML__V16*/ meltfptr[15]); melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V26*/ meltfptr[25]) == MELTOBMAG_PAIR; /*_.CURPAIR__V26*/ meltfptr[25] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V26*/ meltfptr[25])) { /*_.CUROUT__V27*/ meltfptr[26] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V26*/ meltfptr[25]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6336:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6336:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L7*/ meltfnum[3] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6336:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6336; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_update_current_module_environment_reference curout="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROUT__V27*/ meltfptr[26]; /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V28*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6336:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V28*/ meltfptr[27] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6336:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L8*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CUROUT__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-genobj.melt:6337:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6338:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6339:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUT__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OBROUT_PROC"); /*_.CURPROC__V30*/ meltfptr[28] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6340:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V30*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[10]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V30*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); /*_.CNSLIS__V31*/ meltfptr[27] = slot; }; ; } else /*^cond.else*/ { /*_.CNSLIS__V31*/ meltfptr[27] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6341:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V30*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NRPRO_DATAROUT"); /*_.DATAROUT__V32*/ meltfptr[31] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6342:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.ODATAROUT__V33*/ meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.DATAROUT__V32*/ meltfptr[31]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.BOXCOUNT__V34*/ meltfptr[33] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[11])), (0)));; MELT_LOCATION("warmelt-genobj.melt:6344:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ODATAROUT__V33*/ meltfptr[32]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OIE_LOCVAR"); /*_.OROUTLOCVAR__V35*/ meltfptr[34] = slot; }; ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6346:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L9*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ODATAROUT__V33*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-genobj.melt:6346:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V37*/ meltfptr[36] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6346:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check odatarout"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6346; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ODATAROUT__V33*/ meltfptr[32]; /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V37*/ meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6346:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[37] = 0 ; } ; } ; /*_.IFCPP___V36*/ meltfptr[35] = /*_._IFELSE___V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6346:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V37*/ meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V36*/ meltfptr[35] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6349:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V40*/ meltfptr[36] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_20*/ meltfrout->tabval[20])), (6)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ meltfptr[36])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ meltfptr[36]))); ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ meltfptr[36])->tabval[0] = (melt_ptr_t)(/*_.BOXCOUNT__V34*/ meltfptr[33]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ meltfptr[36])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ meltfptr[36]))); ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ meltfptr[36])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V13*/ meltfptr[8]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ meltfptr[36])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ meltfptr[36]))); ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ meltfptr[36])->tabval[2] = (melt_ptr_t)(/*_.OROUTLOCVAR__V35*/ meltfptr[34]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ meltfptr[36])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ meltfptr[36]))); ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ meltfptr[36])->tabval[3] = (melt_ptr_t)(/*_.OEX__V25*/ meltfptr[24]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ meltfptr[36])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ meltfptr[36]))); ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ meltfptr[36])->tabval[4] = (melt_ptr_t)(/*_.OCONTENVLOC__V17*/ meltfptr[16]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ meltfptr[36])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ meltfptr[36]))); ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ meltfptr[36])->tabval[5] = (melt_ptr_t)(/*_.OBODL__V21*/ meltfptr[20]); ; /*_.LAMBDA___V39*/ meltfptr[37] = /*_.LAMBDA___V40*/ meltfptr[36];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6347:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V39*/ meltfptr[37]; /*_.LIST_EVERY__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.CNSLIS__V31*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#GET_INT__L10*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.BOXCOUNT__V34*/ meltfptr[33])));; /*^compute*/ /*_#plI__L11*/ meltfnum[10] = ((/*_#GET_INT__L10*/ meltfnum[0]) + (1));; { MELT_LOCATION("warmelt-genobj.melt:6382:/ locexp"); melt_put_int((melt_ptr_t)(/*_.BOXCOUNT__V34*/ meltfptr[33]), (/*_#plI__L11*/ meltfnum[10])); } ; MELT_LOCATION("warmelt-genobj.melt:6338:/ clear"); /*clear*/ /*_.CURPROC__V30*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.CNSLIS__V31*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.DATAROUT__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.ODATAROUT__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.BOXCOUNT__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.OROUTLOCVAR__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V39*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_EVERY__V41*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L11*/ meltfnum[10] = 0 ; /*epilog*/ } ; } /*noelse*/ ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V26*/ meltfptr[25] = NULL; /*_.CUROUT__V27*/ meltfptr[26] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6333:/ clear"); /*clear*/ /*_.CURPAIR__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.CUROUT__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L8*/ meltfnum[3] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6384:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6384:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L13*/ meltfnum[10] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6384:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6384; /*^apply.arg*/ argtab[3].meltbp_cstring = "compobj.upd.mod.env.box result ocblo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCBLO__V23*/ meltfptr[22]; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V42*/ meltfptr[28] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6384:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[27] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V42*/ meltfptr[28] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6384:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V42*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6385:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OCBLO__V23*/ meltfptr[22];; { MELT_LOCATION("warmelt-genobj.melt:6385:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V12*/ meltfptr[4] = /*_.RETURN___V44*/ meltfptr[31];; MELT_LOCATION("warmelt-genobj.melt:6308:/ clear"); /*clear*/ /*_.NLOC__V13*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.NCOMM__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.NEX__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.PCML__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.OCONTENVLOC__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.CSBUF__V20*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.OBODL__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.OCBLO__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.OEX__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V44*/ meltfptr[31] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6304:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[4];; { MELT_LOCATION("warmelt-genobj.melt:6304:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_151_WARMELTmiGENOBJ_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38 fromline 1752 */ /** start of frame for meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38// fromline 1568 : public Melt_CallFrameWithValues<12> { public: /* fromline 1572*/ long mcfr_varnum[2]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<12> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38), clos) {}; MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38() //the constructor fromline 1642 : Melt_CallFrameWithValues<12> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38)) {}; MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38 /** end of frame for meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38 fromline 1697**/ /* end of frame for routine meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38 fromline 1756 */ /* classy proc frame meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38 */ MeltFrame_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38 fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl38", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6349:/ getarg"); /*_.CURCONST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6350:/ quasiblock"); /*_#CURCOUNT__L1*/ meltfnum[0] = (melt_get_int((melt_ptr_t)((/*~BOXCOUNT*/ meltfclos->tabval[0]))));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURCONST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:6353:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6356:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*_.MAKE_INTEGERBOX__V3*/ meltfptr[2] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#CURCOUNT__L1*/ meltfnum[0])));; MELT_LOCATION("warmelt-genobj.melt:6357:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ meltfrout->tabval[1])), (4), "CLASS_OBJPUTROUTCONST"); /*_.INST__V5*/ meltfptr[4] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V5*/ meltfptr[4]), (0), ((/*~NLOC*/ meltfclos->tabval[1])), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V5*/ meltfptr[4]), (1), ((/*~OROUTLOCVAR*/ meltfclos->tabval[2])), "OPRCONST_ROUT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V5*/ meltfptr[4]), (2), (/*_.MAKE_INTEGERBOX__V3*/ meltfptr[2]), "OPRCONST_OFF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V5*/ meltfptr[4]), (3), ((/*~OEX*/ meltfclos->tabval[3])), "OPRCONST_CVAL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V5*/ meltfptr[4], "newly made instance"); ; /*_.OPUTROUT__V4*/ meltfptr[3] = /*_.INST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6363:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ meltfrout->tabval[3])), (3), "CLASS_OBJTOUCH"); /*_.INST__V7*/ meltfptr[6] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V7*/ meltfptr[6]), (0), ((/*~NLOC*/ meltfclos->tabval[1])), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V7*/ meltfptr[6]), (1), ((/*~OROUTLOCVAR*/ meltfclos->tabval[2])), "OTOUCH_VAL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V7*/ meltfptr[6]), (2), ((/*!konst_4*/ meltfrout->tabval[4])), "OTOUCH_COMMENT"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V7*/ meltfptr[6], "newly made instance"); ; /*_.OTOUCHROUT__V6*/ meltfptr[5] = /*_.INST__V7*/ meltfptr[6];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6370:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_1_st { struct meltpair_st rpair_0__OCONTENVLOC_x1; struct meltlist_st rlist_1__LIST_; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0__OCONTENVLOC_x1*/ /*_.OCONTENVLOC__V9*/ meltfptr[8] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__OCONTENVLOC_x1; meltletrec_1_ptr->rpair_0__OCONTENVLOC_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ /*_.LIST___V10*/ meltfptr[9] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); /*^putpairhead*/ /*putpairhead*/ melt_assertmsg("putpairhead /11 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OCONTENVLOC__V9*/ meltfptr[8]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.OCONTENVLOC__V9*/ meltfptr[8]))->hd = (melt_ptr_t) ((/*~OCONTENVLOC*/ meltfclos->tabval[4])); ; /*^touch*/ meltgc_touch(/*_.OCONTENVLOC__V9*/ meltfptr[8]); ; /*^putlist*/ /*putlist*/ melt_assertmsg("putlist checklist", melt_magic_discr((melt_ptr_t)(/*_.LIST___V10*/ meltfptr[9]))== MELTOBMAG_LIST); ((meltlist_ptr_t)(/*_.LIST___V10*/ meltfptr[9]))->first = (meltpair_ptr_t) (/*_.OCONTENVLOC__V9*/ meltfptr[8]); ((meltlist_ptr_t)(/*_.LIST___V10*/ meltfptr[9]))->last = (meltpair_ptr_t) (/*_.OCONTENVLOC__V9*/ meltfptr[8]); ; /*^touch*/ meltgc_touch(/*_.LIST___V10*/ meltfptr[9]); ; /*_.LIST___V8*/ meltfptr[7] = /*_.LIST___V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6370:/ clear"); /*clear*/ /*_.OCONTENVLOC__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.OCONTENVLOC__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V10*/ meltfptr[9] = 0 ; } /*end multiallocblock*/ ; MELT_LOCATION("warmelt-genobj.melt:6368:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ meltfrout->tabval[5])), (4), "CLASS_OBJCOMPUTE"); /*_.INST__V12*/ meltfptr[9] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[9])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[9]), (0), ((/*~NLOC*/ meltfclos->tabval[1])), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[9])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[9]), (1), (/*_.LIST___V8*/ meltfptr[7]), "OBDI_DESTLIST"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[9])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[9]), (2), ((/*~OEX*/ meltfclos->tabval[3])), "OBCPT_EXPR"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBCPT_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[9])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[9]), (3), ((/*!CTYPE_VALUE*/ meltfrout->tabval[6])), "OBCPT_TYPE"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V12*/ meltfptr[9], "newly made instance"); ; /*_.OCOPY__V11*/ meltfptr[8] = /*_.INST__V12*/ meltfptr[9];; { MELT_LOCATION("warmelt-genobj.melt:6375:/ locexp"); meltgc_append_list((melt_ptr_t)((/*~OBODL*/ meltfclos->tabval[5])), (melt_ptr_t)(/*_.OPUTROUT__V4*/ meltfptr[3])); } ; { MELT_LOCATION("warmelt-genobj.melt:6376:/ locexp"); meltgc_append_list((melt_ptr_t)((/*~OBODL*/ meltfclos->tabval[5])), (melt_ptr_t)(/*_.OTOUCHROUT__V6*/ meltfptr[5])); } ; { MELT_LOCATION("warmelt-genobj.melt:6377:/ locexp"); meltgc_append_list((melt_ptr_t)((/*~OBODL*/ meltfclos->tabval[5])), (melt_ptr_t)(/*_.OCOPY__V11*/ meltfptr[8])); } ; MELT_LOCATION("warmelt-genobj.melt:6356:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.OPUTROUT__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.OTOUCHROUT__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.OCOPY__V11*/ meltfptr[8] = 0 ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:6350:/ clear"); /*clear*/ /*_#CURCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl38", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_152_WARMELTmiGENOBJ_LAMBDA_cl38*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER fromline 1752 */ /** start of frame for meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER// fromline 1568 : public Melt_CallFrameWithValues<52> { public: /* fromline 1572*/ long mcfr_varnum[16]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<52> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER), clos) {}; MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER() //the constructor fromline 1642 : Melt_CallFrameWithValues<52> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<52> (fil,lin, sizeof(MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER)) {}; MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<52> (fil,lin, sizeof(MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER /** end of frame for meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER fromline 1697**/ /* end of frame for routine meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER fromline 1756 */ /* classy proc frame meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER */ MeltFrame_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6394:/ getarg"); /*_.NCHMEB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6395:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6395:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6395:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6395; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_check_running_module_environment_container nchmeb="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCHMEB__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6395:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6395:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6396:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NCHMEB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:6396:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6396:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nucmeb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6396; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCHMEB__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6396:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6396:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6397:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_EXTENSION_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:6397:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6397:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6397; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6397:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6397:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6398:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6399:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCHMEB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCHMEB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NCHRUMOD_COMMENT"); /*_.NCHCOMM__V13*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.NCHCOMM__V13*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6400:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCHMEB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NCHMEB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V14*/ meltfptr[13] = slot; }; ; } else /*^cond.else*/ { /*_.NLOC__V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6401:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 11, "IGNCX_CONTENVLOC"); /*_.OCONTENVLOC__V15*/ meltfptr[14] = slot; }; ; } else /*^cond.else*/ { /*_.OCONTENVLOC__V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6402:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 12, "IGNCX_PROCURMODENVLIST"); /*_.PCML__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.PCML__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.OBODL__V17*/ meltfptr[16] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; /*^compute*/ /*_.CSBUF__V18*/ meltfptr[17] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[7])), (const char*)0);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6405:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_9__CURMODENV_*/ meltfrout->tabval[9]); /*_.LOCENV__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6414:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check.run.mod.env:"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCHCOMM__V13*/ meltfptr[3]; /*_.ADD2OUT__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.CSBUF__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.STRBUF2STRING__V21*/ meltfptr[20] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[12])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V18*/ meltfptr[17]))));; MELT_LOCATION("warmelt-genobj.melt:6413:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = /*_.STRBUF2STRING__V21*/ meltfptr[20];; MELT_LOCATION("warmelt-genobj.melt:6409:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ meltfrout->tabval[10])), (4), "CLASS_OBJCOMMENTEDBLOCK"); /*_.INST__V24*/ meltfptr[23] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V24*/ meltfptr[23]), (0), (/*_.NLOC__V14*/ meltfptr[13]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V24*/ meltfptr[23]), (1), (/*_.OBODL__V17*/ meltfptr[16]), "OBLO_BODYL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OCOMBLO_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V24*/ meltfptr[23]), (3), (/*_.PROGN___V22*/ meltfptr[21]), "OCOMBLO_COMMENT"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V24*/ meltfptr[23], "newly made instance"); ; /*_.OCBLO__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6416:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!CTYPE_VOID*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[1].meltbp_cstring = " /*check running module environment reference*/\ \n\t\t if (!melt_is_instance_of ((melt_ptr_t)"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OCONTENVLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[3].meltbp_cstring = ",\n\t\t\t\t\t (melt_ptr_t) MELT_PREDEF(CLASS_REFERENCE)))\ \n\t\t melt_fatal_error (\"MELT running extension with bad module\ environment reference @%p\", (void*) "; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCONTENVLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = ") ;\n\t\t "; /*_.OCHKCONT__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_OBJLOCATEDEXP*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NLOC__V14*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6423:/ apply"); /*apply*/ { union meltparam_un argtab[12]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!CTYPE_VOID*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[1].meltbp_cstring = " /*retrieve then check running module environment*/\ \n\t\t "; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.LOCENV__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[3].meltbp_cstring = " = melt_reference_value ((melt_ptr_t)"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCONTENVLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = ") ;\n\t\t if (!melt_is_instance_of ((melt_ptr_t) "; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.LOCENV__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[7].meltbp_cstring = ",\n\t\t\t\t\t (melt_ptr_t) MELT_PREDEF(CLASS_ENVIRONMENT)))\ \n\t\t melt_fatal_error (\"MELT running extension with bad environment\ @%p in its reference @%p\",\n\t\t\t\t \ (void*) "; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LOCENV__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[9].meltbp_cstring = ", (void*) "; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.OCONTENVLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[11].meltbp_cstring = ") ;\n\t\t "; /*_.OGETENV__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_OBJLOCATEDEXP*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NLOC__V14*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6433:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6433:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6433:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6433; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_check_running_module_environment_container ocblo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCBLO__V23*/ meltfptr[22]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n ocontenvloc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OCONTENVLOC__V15*/ meltfptr[14]; /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V27*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6433:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V27*/ meltfptr[26] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6433:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V27*/ meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6434:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6434:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L8*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6434:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6434; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_check_running_module_environment_container ochkcont="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCHKCONT__V25*/ meltfptr[24]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n ogetenv="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OGETENV__V26*/ meltfptr[25]; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V29*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6434:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[26] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V29*/ meltfptr[27] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6434:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V29*/ meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6436:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODL__V17*/ meltfptr[16]), (melt_ptr_t)(/*_.OCHKCONT__V25*/ meltfptr[24])); } ; { MELT_LOCATION("warmelt-genobj.melt:6437:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODL__V17*/ meltfptr[16]), (melt_ptr_t)(/*_.OGETENV__V26*/ meltfptr[25])); } ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit1__EACHLIST */ for (/*_.CURPAIR__V31*/ meltfptr[26] = melt_list_first( (melt_ptr_t)/*_.PCML__V16*/ meltfptr[15]); melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V31*/ meltfptr[26]) == MELTOBMAG_PAIR; /*_.CURPAIR__V31*/ meltfptr[26] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V31*/ meltfptr[26])) { /*_.CUROUT__V32*/ meltfptr[27] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V31*/ meltfptr[26]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6441:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L9*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6441:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6441:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6441; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_update_current_module_environment_reference curout="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROUT__V32*/ meltfptr[27]; /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V33*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6441:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V33*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6441:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V33*/ meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L11*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CUROUT__V32*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ meltfrout->tabval[15])));; MELT_LOCATION("warmelt-genobj.melt:6442:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6443:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6444:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUT__V32*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OBROUT_PROC"); /*_.CURPROC__V35*/ meltfptr[33] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6445:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V35*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[16]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V35*/ meltfptr[33]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST"); /*_.CNSLIS__V36*/ meltfptr[32] = slot; }; ; } else /*^cond.else*/ { /*_.CNSLIS__V36*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6446:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPROC__V35*/ meltfptr[33]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NRPRO_DATAROUT"); /*_.DATAROUT__V37*/ meltfptr[36] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6447:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.ODATAROUT__V38*/ meltfptr[37] = meltgc_send((melt_ptr_t)(/*_.DATAROUT__V37*/ meltfptr[36]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.BOXCOUNT__V39*/ meltfptr[38] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[18])), (0)));; MELT_LOCATION("warmelt-genobj.melt:6449:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ODATAROUT__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 4, "OIE_LOCVAR"); /*_.OROUTLOCVAR__V40*/ meltfptr[39] = slot; }; ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6451:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L12*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.ODATAROUT__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ meltfrout->tabval[19])));; MELT_LOCATION("warmelt-genobj.melt:6451:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V42*/ meltfptr[41] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6451:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check odatarout"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6451; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ODATAROUT__V38*/ meltfptr[37]; /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V42*/ meltfptr[41] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6451:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42] = 0 ; } ; } ; /*_.IFCPP___V41*/ meltfptr[40] = /*_._IFELSE___V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6451:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V42*/ meltfptr[41] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V41*/ meltfptr[40] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6454:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V45*/ meltfptr[41] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_25*/ meltfrout->tabval[25])), (5)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ meltfptr[41])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ meltfptr[41]))); ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ meltfptr[41])->tabval[0] = (melt_ptr_t)(/*_.BOXCOUNT__V39*/ meltfptr[38]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ meltfptr[41])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ meltfptr[41]))); ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ meltfptr[41])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V14*/ meltfptr[13]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ meltfptr[41])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ meltfptr[41]))); ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ meltfptr[41])->tabval[2] = (melt_ptr_t)(/*_.OROUTLOCVAR__V40*/ meltfptr[39]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ meltfptr[41])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ meltfptr[41]))); ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ meltfptr[41])->tabval[3] = (melt_ptr_t)(/*_.OCONTENVLOC__V15*/ meltfptr[14]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ meltfptr[41])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ meltfptr[41]))); ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ meltfptr[41])->tabval[4] = (melt_ptr_t)(/*_.OBODL__V17*/ meltfptr[16]); ; /*_.LAMBDA___V44*/ meltfptr[42] = /*_.LAMBDA___V45*/ meltfptr[41];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6452:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V44*/ meltfptr[42]; /*_.LIST_EVERY__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.CNSLIS__V36*/ meltfptr[32]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#GET_INT__L13*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.BOXCOUNT__V39*/ meltfptr[38])));; /*^compute*/ /*_#plI__L14*/ meltfnum[13] = ((/*_#GET_INT__L13*/ meltfnum[1]) + (1));; { MELT_LOCATION("warmelt-genobj.melt:6480:/ locexp"); melt_put_int((melt_ptr_t)(/*_.BOXCOUNT__V39*/ meltfptr[38]), (/*_#plI__L14*/ meltfnum[13])); } ; MELT_LOCATION("warmelt-genobj.melt:6443:/ clear"); /*clear*/ /*_.CURPROC__V35*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.CNSLIS__V36*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.DATAROUT__V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.ODATAROUT__V38*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.BOXCOUNT__V39*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.OROUTLOCVAR__V40*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V41*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V44*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_EVERY__V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L13*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L14*/ meltfnum[13] = 0 ; /*epilog*/ } ; } /*noelse*/ ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V31*/ meltfptr[26] = NULL; /*_.CUROUT__V32*/ meltfptr[27] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6438:/ clear"); /*clear*/ /*_.CURPAIR__V31*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.CUROUT__V32*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L11*/ meltfnum[0] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6482:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ meltfrout->tabval[26])), (2), "CLASS_OBJCLEAR"); /*_.INST__V48*/ meltfptr[32] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ meltfptr[32])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V48*/ meltfptr[32]), (0), (/*_.NLOC__V14*/ meltfptr[13]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ meltfptr[32])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V48*/ meltfptr[32]), (1), (/*_.LOCENV__V19*/ meltfptr[18]), "OCLR_VLOC"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V48*/ meltfptr[32], "newly made instance"); ; /*_.INST___V47*/ meltfptr[33] = /*_.INST__V48*/ meltfptr[32];; { MELT_LOCATION("warmelt-genobj.melt:6482:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODL__V17*/ meltfptr[16]), (melt_ptr_t)(/*_.INST___V47*/ meltfptr[33])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6484:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.DISPOSE_OBJLOC__V49*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.LOCENV__V19*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6485:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L15*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6485:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L16*/ meltfnum[13] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6485:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L16*/ meltfnum[13]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6485; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_check_running_module_environment_container gives ocblo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OCBLO__V23*/ meltfptr[22]; /*_.MELT_DEBUG_FUN__V51*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V50*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6485:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[38] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V50*/ meltfptr[37] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6485:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V50*/ meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6486:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OCBLO__V23*/ meltfptr[22];; { MELT_LOCATION("warmelt-genobj.melt:6486:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V52*/ meltfptr[39];; MELT_LOCATION("warmelt-genobj.melt:6398:/ clear"); /*clear*/ /*_.NCHCOMM__V13*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.NLOC__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.OCONTENVLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.PCML__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.OBODL__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.CSBUF__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LOCENV__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.OCBLO__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.OCHKCONT__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.OGETENV__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V47*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.DISPOSE_OBJLOC__V49*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V52*/ meltfptr[39] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6394:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:6394:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_153_WARMELTmiGENOBJ_COMPILOBJ_NREP_CHECK_RUNNING_MODULE_ENVIRONMENT_CONTAINER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39 fromline 1752 */ /** start of frame for meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39// fromline 1568 : public Melt_CallFrameWithValues<7> { public: /* fromline 1572*/ long mcfr_varnum[2]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<7> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39), clos) {}; MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39() //the constructor fromline 1642 : Melt_CallFrameWithValues<7> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39)) {}; MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39 /** end of frame for meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39 fromline 1697**/ /* end of frame for routine meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39 fromline 1756 */ /* classy proc frame meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39 */ MeltFrame_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39 fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl39", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6454:/ getarg"); /*_.CURCONST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6455:/ quasiblock"); /*_#CURCOUNT__L1*/ meltfnum[0] = (melt_get_int((melt_ptr_t)((/*~BOXCOUNT*/ meltfclos->tabval[0]))));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURCONST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:6458:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6461:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*_.MAKE_INTEGERBOX__V3*/ meltfptr[2] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#CURCOUNT__L1*/ meltfnum[0])));; MELT_LOCATION("warmelt-genobj.melt:6462:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ meltfrout->tabval[1])), (4), "CLASS_OBJPUTROUTCONST"); /*_.INST__V5*/ meltfptr[4] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V5*/ meltfptr[4]), (0), ((/*~NLOC*/ meltfclos->tabval[1])), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V5*/ meltfptr[4]), (1), ((/*~OROUTLOCVAR*/ meltfclos->tabval[2])), "OPRCONST_ROUT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V5*/ meltfptr[4]), (2), (/*_.MAKE_INTEGERBOX__V3*/ meltfptr[2]), "OPRCONST_OFF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V5*/ meltfptr[4]), (3), ((/*~OCONTENVLOC*/ meltfclos->tabval[3])), "OPRCONST_CVAL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V5*/ meltfptr[4], "newly made instance"); ; /*_.OPUTROUT__V4*/ meltfptr[3] = /*_.INST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6468:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ meltfrout->tabval[3])), (3), "CLASS_OBJTOUCH"); /*_.INST__V7*/ meltfptr[6] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V7*/ meltfptr[6]), (0), ((/*~NLOC*/ meltfclos->tabval[1])), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V7*/ meltfptr[6]), (1), ((/*~OROUTLOCVAR*/ meltfclos->tabval[2])), "OTOUCH_VAL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V7*/ meltfptr[6]), (2), ((/*!konst_4*/ meltfrout->tabval[4])), "OTOUCH_COMMENT"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V7*/ meltfptr[6], "newly made instance"); ; /*_.OTOUCHROUT__V6*/ meltfptr[5] = /*_.INST__V7*/ meltfptr[6];; { MELT_LOCATION("warmelt-genobj.melt:6474:/ locexp"); meltgc_append_list((melt_ptr_t)((/*~OBODL*/ meltfclos->tabval[4])), (melt_ptr_t)(/*_.OPUTROUT__V4*/ meltfptr[3])); } ; { MELT_LOCATION("warmelt-genobj.melt:6475:/ locexp"); meltgc_append_list((melt_ptr_t)((/*~OBODL*/ meltfclos->tabval[4])), (melt_ptr_t)(/*_.OTOUCHROUT__V6*/ meltfptr[5])); } ; MELT_LOCATION("warmelt-genobj.melt:6461:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.OPUTROUT__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.OTOUCHROUT__V6*/ meltfptr[5] = 0 ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:6455:/ clear"); /*clear*/ /*_#CURCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl39", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_154_WARMELTmiGENOBJ_LAMBDA_cl39*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER fromline 1752 */ /** start of frame for meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER// fromline 1568 : public Melt_CallFrameWithValues<20> { public: /* fromline 1572*/ long mcfr_varnum[5]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<20> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER), clos) {}; MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER() //the constructor fromline 1642 : Melt_CallFrameWithValues<20> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<20> (fil,lin, sizeof(MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER)) {}; MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<20> (fil,lin, sizeof(MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER /** end of frame for meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER fromline 1697**/ /* end of frame for routine meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER fromline 1756 */ /* classy proc frame meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER */ MeltFrame_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILTST_ANYTESTER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6538:/ getarg"); /*_.NTESTER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.TCX__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ meltfptr[3])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6539:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NTESTER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:6539:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6539:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check ntester"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6539; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NTESTER__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6539:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; } ; } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6539:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6540:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-genobj.melt:6540:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6540:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6540; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6540:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6540:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6541:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:6541:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6541:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check tcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6541; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.TCX__V4*/ meltfptr[3]; /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6541:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6541:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6542:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6542:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6542:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6542; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NTESTER__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[4].meltbp_cstring = "compiltst_anytester ntester="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NTESTER__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V14*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6542:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ meltfptr[5] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V14*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6542:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6543:/ locexp"); melt_puts(stderr,( "* compiltst unimplemented receiver class ")); } ; MELT_LOCATION("warmelt-genobj.melt:6544:/ quasiblock"); /*_.DISCR__V16*/ meltfptr[5] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NTESTER__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-genobj.melt:6544:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DISCR__V16*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V17*/ meltfptr[12] = slot; }; ; { /*^locexp*/ melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V17*/ meltfptr[12])); } ; /*^clear*/ /*clear*/ /*_.DISCR__V16*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V17*/ meltfptr[12] = 0 ; { MELT_LOCATION("warmelt-genobj.melt:6545:/ locexp"); melt_newlineflush(stderr); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6546:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[12] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6546:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "@@compile_tester should be implemented in normtesters-s subclasses"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6546; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NTESTER__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V19*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6546:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; /*_.IFCPP___V18*/ meltfptr[5] = /*_._IFELSE___V19*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6546:/ clear"); /*clear*/ /*_._IFELSE___V19*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6538:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V18*/ meltfptr[5];; { MELT_LOCATION("warmelt-genobj.melt:6538:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILTST_ANYTESTER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_155_WARMELTmiGENOBJ_COMPILTST_ANYTESTER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH fromline 1752 */ /** start of frame for meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH// fromline 1568 : public Melt_CallFrameWithValues<142> { public: /* fromline 1572*/ long mcfr_varnum[63]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<142> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH), clos) {}; MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH() //the constructor fromline 1642 : Melt_CallFrameWithValues<142> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<142> (fil,lin, sizeof(MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH)) {}; MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<142> (fil,lin, sizeof(MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH /** end of frame for meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH fromline 1697**/ /* end of frame for routine meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH fromline 1756 */ /* classy proc frame meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH */ MeltFrame_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCH", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6552:/ getarg"); /*_.NMAT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6553:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:6553:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6553:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmat"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6553; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMAT__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6553:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6553:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6554:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-genobj.melt:6554:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6554:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6554; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6554:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6554:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6555:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6555:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6555:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6555; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match nmat="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMAT__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V10*/ meltfptr[8] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6555:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6555:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V10*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6556:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6557:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V13*/ meltfptr[8] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6558:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NEXPR_CTYP"); /*_.NCTYP__V14*/ meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6559:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NMATCH_TESTS"); /*_.NTESTS__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6560:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NMATCH_STUFFMAP"); /*_.STUFFMAP__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6561:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NMATCH_MATCHED"); /*_.NMATCHED__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.NMATCHED__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6562:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 8, "GNCX_MATCHMAP"); /*_.MATMAP__V18*/ meltfptr[17] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6563:/ quasiblock"); /*_#NBMAT__L5*/ meltfnum[3] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.MATMAP__V18*/ meltfptr[17])));; /*^compute*/ /*_.LABUF__V20*/ meltfptr[19] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[4])), (const char*)0);; { MELT_LOCATION("warmelt-genobj.melt:6566:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V20*/ meltfptr[19]), ( "mtch")); } ; /*_#plI__L6*/ meltfnum[0] = ((/*_#NBMAT__L5*/ meltfnum[3]) + (1));; { MELT_LOCATION("warmelt-genobj.melt:6567:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.LABUF__V20*/ meltfptr[19]), (/*_#plI__L6*/ meltfnum[0])); } ; { MELT_LOCATION("warmelt-genobj.melt:6568:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V20*/ meltfptr[19]), ( "_")); } ; MELT_LOCATION("warmelt-genobj.melt:6569:/ quasiblock"); /*_.LABSTR__V22*/ meltfptr[21] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V20*/ meltfptr[19]))));; { MELT_LOCATION("warmelt-genobj.melt:6570:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MATMAP__V18*/ meltfptr[17]), (meltobject_ptr_t) (/*_.NMAT__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.LABSTR__V22*/ meltfptr[21])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6571:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6571:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6571:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6571; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match matlabel labstr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LABSTR__V22*/ meltfptr[21]; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6571:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V23*/ meltfptr[22] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6571:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.LET___V21*/ meltfptr[20] = /*_.LABSTR__V22*/ meltfptr[21];; MELT_LOCATION("warmelt-genobj.melt:6569:/ clear"); /*clear*/ /*_.LABSTR__V22*/ meltfptr[21] = 0 ; /*_.LET___V19*/ meltfptr[18] = /*_.LET___V21*/ meltfptr[20];; MELT_LOCATION("warmelt-genobj.melt:6563:/ clear"); /*clear*/ /*_#NBMAT__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.LABUF__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; /*_.MATLABEL__V25*/ meltfptr[23] = /*_.LET___V19*/ meltfptr[18];; MELT_LOCATION("warmelt-genobj.melt:6574:/ quasiblock"); /*_.LABUF__V27*/ meltfptr[21] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[4])), (const char*)0);; { MELT_LOCATION("warmelt-genobj.melt:6577:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V27*/ meltfptr[21]), melt_string_str((melt_ptr_t)(/*_.MATLABEL__V25*/ meltfptr[23]))); } ; { MELT_LOCATION("warmelt-genobj.melt:6578:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V27*/ meltfptr[21]), ( "_end")); } ; /*_.STRBUF2STRING__V28*/ meltfptr[19] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V27*/ meltfptr[21]))));; /*^compute*/ /*_.LET___V26*/ meltfptr[22] = /*_.STRBUF2STRING__V28*/ meltfptr[19];; MELT_LOCATION("warmelt-genobj.melt:6574:/ clear"); /*clear*/ /*_.LABUF__V27*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V28*/ meltfptr[19] = 0 ; /*_.ENDLABEL__V29*/ meltfptr[20] = /*_.LET___V26*/ meltfptr[22];; /*^compute*/ /*_.SUBCOMPLIST__V30*/ meltfptr[21] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; /*^compute*/ /*_.OBODYL__V31*/ meltfptr[19] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6584:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ meltfrout->tabval[7])), (4), "CLASS_OBJMULTIBLOCK"); /*_.INST__V33*/ meltfptr[32] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (0), (/*_.NLOC__V13*/ meltfptr[8]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (1), (/*_.OBODYL__V31*/ meltfptr[19]), "OBLO_BODYL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OMULBLO_SUBCOMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (3), ((/*nil*/NULL)), "OMULBLO_SUBCOMP"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V33*/ meltfptr[32], "newly made instance"); ; /*_.OMBLOC__V32*/ meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_.MAKE_INTEGERBOX__V34*/ meltfptr[33] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[9])), (0)));; MELT_LOCATION("warmelt-genobj.melt:6589:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ meltfrout->tabval[8])), (3), "CLASS_OBJGOTOINSTR"); /*_.INST__V36*/ meltfptr[35] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ meltfptr[35])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V36*/ meltfptr[35]), (0), (/*_.NLOC__V13*/ meltfptr[8]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ meltfptr[35])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V36*/ meltfptr[35]), (1), (/*_.MATLABEL__V25*/ meltfptr[23]), "OBGOTO_PREFIX"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ meltfptr[35])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V36*/ meltfptr[35]), (2), (/*_.MAKE_INTEGERBOX__V34*/ meltfptr[33]), "OBGOTO_RANK"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V36*/ meltfptr[35], "newly made instance"); ; /*_.OFIRSTGOTO__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6594:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ meltfrout->tabval[10])), (3), "CLASS_OBJLABELINSTR"); /*_.INST__V38*/ meltfptr[37] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ meltfptr[37])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V38*/ meltfptr[37]), (0), (/*_.NLOC__V13*/ meltfptr[8]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLAB_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ meltfptr[37])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V38*/ meltfptr[37]), (1), (/*_.ENDLABEL__V29*/ meltfptr[20]), "OBLAB_PREFIX"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLAB_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ meltfptr[37])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V38*/ meltfptr[37]), (2), ((/*nil*/NULL)), "OBLAB_RANK"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V38*/ meltfptr[37], "newly made instance"); ; /*_.OENDLABEL__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_.MAKE_LIST__V39*/ meltfptr[38] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; MELT_LOCATION("warmelt-genobj.melt:6598:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ meltfrout->tabval[11])), (4), "CLASS_TESTERCOMPILCONTEXT"); /*_.INST__V41*/ meltfptr[40] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @TCX_NRMATCH", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (1), (/*_.NMAT__V2*/ meltfptr[1]), "TCX_NRMATCH"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @TCX_FREELIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (2), (/*_.MAKE_LIST__V39*/ meltfptr[38]), "TCX_FREELIST"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @TCX_NEXTEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (3), ((/*nil*/NULL)), "TCX_NEXTEST"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V41*/ meltfptr[40], "newly made instance"); ; /*_.TCX__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; /*^compute*/ /*_.DONETESTS__V42*/ meltfptr[41] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6606:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6606:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L10*/ meltfnum[6] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6606:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[6]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6606; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match nmatched="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMATCHED__V17*/ meltfptr[16]; /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V43*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6606:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V43*/ meltfptr[42] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6606:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V43*/ meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6607:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.COMPILE_OBJ__V45*/ meltfptr[43] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V17*/ meltfptr[16]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:6605:/ quasiblock"); /*_.OMATCHED__V46*/ meltfptr[42] = /*_.COMPILE_OBJ__V45*/ meltfptr[43];; { MELT_LOCATION("warmelt-genobj.melt:6609:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V31*/ meltfptr[19]), (melt_ptr_t)(/*_.OFIRSTGOTO__V35*/ meltfptr[34])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6610:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[3] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6610:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L12*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6610:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6610; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match ntests="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NTESTS__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = " omatched="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OMATCHED__V46*/ meltfptr[42]; /*^apply.arg*/ argtab[7].meltbp_cstring = " oendlabel="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OENDLABEL__V37*/ meltfptr[36]; /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V47*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6610:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V47*/ meltfptr[46] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6610:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V47*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NTESTS__V15*/ meltfptr[14]); for (/*_#TESTIX__L13*/ meltfnum[6] = 0; (/*_#TESTIX__L13*/ meltfnum[6] >= 0) && (/*_#TESTIX__L13*/ meltfnum[6] < meltcit1__EACHTUP_ln); /*_#TESTIX__L13*/ meltfnum[6]++) { /*_.CUROTEST__V49*/ meltfptr[47] = melt_multiple_nth((melt_ptr_t)(/*_.NTESTS__V15*/ meltfptr[14]), /*_#TESTIX__L13*/ meltfnum[6]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6614:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6614:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6614:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6614; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match curotest="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROTEST__V49*/ meltfptr[47]; /*^apply.arg*/ argtab[5].meltbp_cstring = " testix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#TESTIX__L13*/ meltfnum[6]; /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V50*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6614:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V50*/ meltfptr[46] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6614:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V50*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6615:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L16*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-genobj.melt:6615:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V53*/ meltfptr[46] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6615:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curotest"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6615; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CUROTEST__V49*/ meltfptr[47]; /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V53*/ meltfptr[46] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6615:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[53] = 0 ; } ; } ; /*_.IFCPP___V52*/ meltfptr[50] = /*_._IFELSE___V53*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6615:/ clear"); /*clear*/ /*_#IS_A__L16*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V53*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V52*/ meltfptr[50] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6616:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#GET_INT__L17*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47])));; /*^compute*/ /*_#eqeqI__L18*/ meltfnum[7] = ((/*_#GET_INT__L17*/ meltfnum[0]) == (/*_#TESTIX__L13*/ meltfnum[6]));; MELT_LOCATION("warmelt-genobj.melt:6616:/ cond"); /*cond*/ if (/*_#eqeqI__L18*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V56*/ meltfptr[46] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6616:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curotest rank"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6616; /*^apply.arg*/ argtab[3].meltbp_long = /*_#TESTIX__L13*/ meltfnum[6]; /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V56*/ meltfptr[46] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6616:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56] = 0 ; } ; } ; /*_.IFCPP___V55*/ meltfptr[53] = /*_._IFELSE___V56*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6616:/ clear"); /*clear*/ /*_#GET_INT__L17*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L18*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V56*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V55*/ meltfptr[53] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L19*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANYTESTER*/ meltfrout->tabval[14])));; MELT_LOCATION("warmelt-genobj.melt:6622:/ cond"); /*cond*/ if (/*_#IS_A__L19*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6623:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NTEST_THEN"); /*_.CURNTHEN__V60*/ meltfptr[59] = slot; }; ; } else /*^cond.else*/ { /*_.CURNTHEN__V60*/ meltfptr[59] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6624:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NTEST_ELSE"); /*_.CURNELSE__V61*/ meltfptr[60] = slot; }; ; } else /*^cond.else*/ { /*_.CURNELSE__V61*/ meltfptr[60] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#NULL__L20*/ meltfnum[0] = (/*null*/(/*_.CURNTHEN__V60*/ meltfptr[59]) == NULL);; MELT_LOCATION("warmelt-genobj.melt:6627:/ cond"); /*cond*/ if (/*_#NULL__L20*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6628:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6628:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6628:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[21]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6628; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match with null then curotest="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROTEST__V49*/ meltfptr[47]; /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V63*/ meltfptr[62] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6628:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V63*/ meltfptr[62] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6628:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V63*/ meltfptr[62] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6629:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_nrep_match curotest has null then"), (14)); #endif ; } ; MELT_LOCATION("warmelt-genobj.melt:6627:/ quasiblock"); /*epilog*/ } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#NULL__L23*/ meltfnum[21] = (/*null*/(/*_.CURNELSE__V61*/ meltfptr[60]) == NULL);; MELT_LOCATION("warmelt-genobj.melt:6631:/ cond"); /*cond*/ if (/*_#NULL__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6632:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L24*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6632:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L25*/ meltfnum[24] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6632:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L25*/ meltfnum[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6632; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match with null else curotest="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROTEST__V49*/ meltfptr[47]; /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V66*/ meltfptr[62] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6632:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V66*/ meltfptr[62] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6632:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V66*/ meltfptr[62] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6633:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_nrep_match curotest has null else"), (14)); #endif ; } ; MELT_LOCATION("warmelt-genobj.melt:6631:/ quasiblock"); /*epilog*/ } ; } else /*^cond.else*/ { /*_._IFELSE___V65*/ meltfptr[63] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IFELSE___V62*/ meltfptr[61] = /*_._IFELSE___V65*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6627:/ clear"); /*clear*/ /*_#NULL__L23*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V65*/ meltfptr[63] = 0 ; } ; } ; /*_.LET___V59*/ meltfptr[46] = /*_._IFELSE___V62*/ meltfptr[61];; MELT_LOCATION("warmelt-genobj.melt:6623:/ clear"); /*clear*/ /*_.CURNTHEN__V60*/ meltfptr[59] = 0 ; /*^clear*/ /*clear*/ /*_.CURNELSE__V61*/ meltfptr[60] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L20*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V62*/ meltfptr[61] = 0 ; /*_._IF___V58*/ meltfptr[56] = /*_.LET___V59*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6622:/ clear"); /*clear*/ /*_.LET___V59*/ meltfptr[46] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V58*/ meltfptr[56] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6636:/ quasiblock"); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6637:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.LABINS__V68*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_LABELINSTR*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:6638:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NTEST_MATCHED"); /*_.CURNMATCHED__V69*/ meltfptr[62] = slot; }; ; } else /*^cond.else*/ { /*_.CURNMATCHED__V69*/ meltfptr[62] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6640:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L26*/ meltfnum[24] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6640:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L27*/ meltfnum[7] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6640:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L27*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6640; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match labins="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LABINS__V68*/ meltfptr[66]; /*_.MELT_DEBUG_FUN__V71*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V70*/ meltfptr[63] = /*_.MELT_DEBUG_FUN__V71*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6640:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V71*/ meltfptr[59] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V70*/ meltfptr[63] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6640:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V70*/ meltfptr[63] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6641:/ quasiblock"); /*_#plI__L28*/ meltfnum[21] = ((/*_#TESTIX__L13*/ meltfnum[6]) + (1));; /*^compute*/ /*_.NEXTEST__V72*/ meltfptr[60] = (melt_multiple_nth((melt_ptr_t)(/*_.NTESTS__V15*/ meltfptr[14]), (/*_#plI__L28*/ meltfnum[21])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6642:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TCX__V40*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @TCX_NEXTEST", melt_magic_discr((melt_ptr_t)(/*_.TCX__V40*/ meltfptr[39])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.TCX__V40*/ meltfptr[39]), (3), (/*_.NEXTEST__V72*/ meltfptr[60]), "TCX_NEXTEST"); ; /*^touch*/ meltgc_touch(/*_.TCX__V40*/ meltfptr[39]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.TCX__V40*/ meltfptr[39], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6643:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L29*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6643:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L30*/ meltfnum[7] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6643:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L30*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6643; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match nextest="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEXTEST__V72*/ meltfptr[60]; /*^apply.arg*/ argtab[5].meltbp_cstring = " tcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.TCX__V40*/ meltfptr[39]; /*_.MELT_DEBUG_FUN__V74*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V73*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6643:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V74*/ meltfptr[46] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V73*/ meltfptr[61] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6643:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V73*/ meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6641:/ clear"); /*clear*/ /*_#plI__L28*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTEST__V72*/ meltfptr[60] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6644:/ quasiblock"); /*^multimsend*/ /*multimsend*/ { union meltparam_un argtab[2]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2];/*^multimsend.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.TCX__V40*/ meltfptr[39]; /*^multimsend.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUROBDEST__V76*/ meltfptr[63];/*^multimsend.send*/ /*_.CURCOMP__V75*/ meltfptr[59] = meltgc_send ((melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]), ((melt_ptr_t)((/*!COMPILE_TESTER*/ meltfrout->tabval[16]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6647:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L31*/ meltfnum[24] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6647:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L31*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L32*/ meltfnum[7] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6647:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L32*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6647; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match curcomp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCOMP__V75*/ meltfptr[59]; /*^apply.arg*/ argtab[5].meltbp_cstring = "curobdest="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CUROBDEST__V76*/ meltfptr[63]; /*_.MELT_DEBUG_FUN__V78*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V77*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V78*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6647:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L32*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V78*/ meltfptr[61] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V77*/ meltfptr[46] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6647:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L31*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V77*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6648:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if (/*_.CURCOMP__V75*/ meltfptr[59]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V80*/ meltfptr[61] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6648:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curcomp"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6648; /*_.MELT_ASSERT_FAILURE_FUN__V81*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V80*/ meltfptr[61] = /*_.MELT_ASSERT_FAILURE_FUN__V81*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6648:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V81*/ meltfptr[46] = 0 ; } ; } ; /*_.IFCPP___V79*/ meltfptr[60] = /*_._IFELSE___V80*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6648:/ clear"); /*clear*/ /*_._IFELSE___V80*/ meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V79*/ meltfptr[60] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6650:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V31*/ meltfptr[19]), (melt_ptr_t)(/*_.LABINS__V68*/ meltfptr[66])); } ; MELT_CHECK_SIGNAL(); ; /*_#IS_LIST__L33*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V75*/ meltfptr[59])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-genobj.melt:6652:/ cond"); /*cond*/ if (/*_#IS_LIST__L33*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6653:/ quasiblock"); /*_.LIST_LAST__V84*/ meltfptr[83] = (melt_list_last((melt_ptr_t)(/*_.CURCOMP__V75*/ meltfptr[59])));; /*^compute*/ /*_.LASTLICOMP__V85*/ meltfptr[84] = (melt_pair_head((melt_ptr_t)(/*_.LIST_LAST__V84*/ meltfptr[83])));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6654:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L34*/ meltfnum[21] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6654:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L34*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L35*/ meltfnum[7] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6654:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L35*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6654; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match lastlicomp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LASTLICOMP__V85*/ meltfptr[84]; /*_.MELT_DEBUG_FUN__V87*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V86*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V87*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6654:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L35*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V87*/ meltfptr[86] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V86*/ meltfptr[85] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6654:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L34*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V86*/ meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6655:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURCOMP__V75*/ meltfptr[59]; /*_.LIST_APPEND2LIST__V88*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.OBODYL__V31*/ meltfptr[19]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V83*/ meltfptr[61] = /*_.LIST_APPEND2LIST__V88*/ meltfptr[86];; MELT_LOCATION("warmelt-genobj.melt:6653:/ clear"); /*clear*/ /*_.LIST_LAST__V84*/ meltfptr[83] = 0 ; /*^clear*/ /*clear*/ /*_.LASTLICOMP__V85*/ meltfptr[84] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_APPEND2LIST__V88*/ meltfptr[86] = 0 ; /*_._IFELSE___V82*/ meltfptr[46] = /*_.LET___V83*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6652:/ clear"); /*clear*/ /*_.LET___V83*/ meltfptr[61] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MULTIPLE__L36*/ meltfnum[24] = (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V75*/ meltfptr[59])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-genobj.melt:6657:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L36*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6658:/ quasiblock"); /*_.LASTUPCOMP__V90*/ meltfptr[83] = (melt_multiple_nth((melt_ptr_t)(/*_.CURCOMP__V75*/ meltfptr[59]), (-1)));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6659:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L37*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6659:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L38*/ meltfnum[21] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6659:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L38*/ meltfnum[21]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6659; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match lastupcomp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LASTUPCOMP__V90*/ meltfptr[83]; /*_.MELT_DEBUG_FUN__V92*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V91*/ meltfptr[84] = /*_.MELT_DEBUG_FUN__V92*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6659:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V92*/ meltfptr[86] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V91*/ meltfptr[84] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6659:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V91*/ meltfptr[84] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CURCOMP__V75*/ meltfptr[59]); for (/*_#SUBIX__L39*/ meltfnum[21] = 0; (/*_#SUBIX__L39*/ meltfnum[21] >= 0) && (/*_#SUBIX__L39*/ meltfnum[21] < meltcit2__EACHTUP_ln); /*_#SUBIX__L39*/ meltfnum[21]++) { /*_.SUBTEST__V93*/ meltfptr[61] = melt_multiple_nth((melt_ptr_t)(/*_.CURCOMP__V75*/ meltfptr[59]), /*_#SUBIX__L39*/ meltfnum[21]); { MELT_LOCATION("warmelt-genobj.melt:6663:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V31*/ meltfptr[19]), (melt_ptr_t)(/*_.SUBTEST__V93*/ meltfptr[61])); } ; if (/*_#SUBIX__L39*/ meltfnum[21]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6660:/ clear"); /*clear*/ /*_.SUBTEST__V93*/ meltfptr[61] = 0 ; /*^clear*/ /*clear*/ /*_#SUBIX__L39*/ meltfnum[21] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-genobj.melt:6658:/ clear"); /*clear*/ /*_.LASTUPCOMP__V90*/ meltfptr[83] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-genobj.melt:6657:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L40*/ meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V75*/ meltfptr[59])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-genobj.melt:6665:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L40*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6666:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L41*/ meltfnum[40] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6666:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[40]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6666:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L42*/ meltfnum[41]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6666; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match obj curcomp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCOMP__V75*/ meltfptr[59]; /*_.MELT_DEBUG_FUN__V96*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V95*/ meltfptr[84] = /*_.MELT_DEBUG_FUN__V96*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6666:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V96*/ meltfptr[83] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V95*/ meltfptr[84] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6666:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V95*/ meltfptr[84] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6667:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V31*/ meltfptr[19]), (melt_ptr_t)(/*_.CURCOMP__V75*/ meltfptr[59])); } ; MELT_LOCATION("warmelt-genobj.melt:6665:/ quasiblock"); /*epilog*/ } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6670:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V98*/ meltfptr[84] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6670:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "unexpected curcomp"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6670; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCOMP__V75*/ meltfptr[59]; /*_.MELT_ASSERT_FAILURE_FUN__V99*/ meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V98*/ meltfptr[84] = /*_.MELT_ASSERT_FAILURE_FUN__V99*/ meltfptr[98];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6670:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V99*/ meltfptr[98] = 0 ; } ; } ; /*_.IFCPP___V97*/ meltfptr[83] = /*_._IFELSE___V98*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6670:/ clear"); /*clear*/ /*_._IFELSE___V98*/ meltfptr[84] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V97*/ meltfptr[83] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6669:/ quasiblock"); /*_.PROGN___V100*/ meltfptr[98] = /*_.IFCPP___V97*/ meltfptr[83];; /*^compute*/ /*_._IFELSE___V94*/ meltfptr[86] = /*_.PROGN___V100*/ meltfptr[98];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6665:/ clear"); /*clear*/ /*_.IFCPP___V97*/ meltfptr[83] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V100*/ meltfptr[98] = 0 ; } ; } ; /*_._IFELSE___V89*/ meltfptr[85] = /*_._IFELSE___V94*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6657:/ clear"); /*clear*/ /*_#IS_OBJECT__L40*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V94*/ meltfptr[86] = 0 ; } ; } ; /*_._IFELSE___V82*/ meltfptr[46] = /*_._IFELSE___V89*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6652:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L36*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V89*/ meltfptr[85] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6673:/ cond"); /*cond*/ if (/*_.CUROBDEST__V76*/ meltfptr[63]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ meltgc_append_list((melt_ptr_t)(/*_.SUBCOMPLIST__V30*/ meltfptr[21]), (melt_ptr_t)(/*_.CUROBDEST__V76*/ meltfptr[63])); } ; /*epilog*/ } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-genobj.melt:6675:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.DONETESTS__V42*/ meltfptr[41]), (melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47])); } ; MELT_LOCATION("warmelt-genobj.melt:6677:/ quasiblock"); /*_.DISPOSABLIST__V101*/ meltfptr[84] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6678:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L43*/ meltfnum[41] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6678:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L43*/ meltfnum[41]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L44*/ meltfnum[40] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6678:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L44*/ meltfnum[40]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6678; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match disposing curotest="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROTEST__V49*/ meltfptr[47]; /*_.MELT_DEBUG_FUN__V103*/ meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V102*/ meltfptr[83] = /*_.MELT_DEBUG_FUN__V103*/ meltfptr[98];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6678:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L44*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V103*/ meltfptr[98] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V102*/ meltfptr[83] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6678:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L43*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V102*/ meltfptr[83] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L45*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SUCCESS*/ meltfrout->tabval[18])));; MELT_LOCATION("warmelt-genobj.melt:6682:/ cond"); /*cond*/ if (/*_#IS_A__L45*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6685:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V106*/ meltfptr[98] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ meltfrout->tabval[21])), (3)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V106*/ meltfptr[98])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V106*/ meltfptr[98]))); ((meltclosure_ptr_t)/*_.LAMBDA___V106*/ meltfptr[98])->tabval[0] = (melt_ptr_t)(/*_.OMATCHED__V46*/ meltfptr[42]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V106*/ meltfptr[98])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V106*/ meltfptr[98]))); ((meltclosure_ptr_t)/*_.LAMBDA___V106*/ meltfptr[98])->tabval[1] = (melt_ptr_t)(/*_.DONETESTS__V42*/ meltfptr[41]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V106*/ meltfptr[98])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V106*/ meltfptr[98]))); ((meltclosure_ptr_t)/*_.LAMBDA___V106*/ meltfptr[98])->tabval[2] = (melt_ptr_t)(/*_.DISPOSABLIST__V101*/ meltfptr[84]); ; /*_.LAMBDA___V105*/ meltfptr[85] = /*_.LAMBDA___V106*/ meltfptr[98];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6683:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V105*/ meltfptr[85]; /*_.MAPOBJECT_EVERY__V107*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.STUFFMAP__V16*/ meltfptr[15]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V104*/ meltfptr[86] = /*_.MAPOBJECT_EVERY__V107*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6682:/ clear"); /*clear*/ /*_.LAMBDA___V105*/ meltfptr[85] = 0 ; /*^clear*/ /*clear*/ /*_.MAPOBJECT_EVERY__V107*/ meltfptr[83] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeq__L46*/ meltfnum[24] = ((/*_.CURNMATCHED__V69*/ meltfptr[62]) == (/*_.NMATCHED__V17*/ meltfptr[16]));; MELT_LOCATION("warmelt-genobj.melt:6700:/ cond"); /*cond*/ if (/*_#eqeq__L46*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6701:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L47*/ meltfnum[40] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6701:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L47*/ meltfnum[40]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L48*/ meltfnum[41] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6701:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L48*/ meltfnum[41]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6701; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match curnmatched == nmatched="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMATCHED__V17*/ meltfptr[16]; /*_.MELT_DEBUG_FUN__V110*/ meltfptr[109] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V109*/ meltfptr[83] = /*_.MELT_DEBUG_FUN__V110*/ meltfptr[109];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6701:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L48*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V110*/ meltfptr[109] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V109*/ meltfptr[83] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6701:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L47*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V109*/ meltfptr[83] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*clear*/ /*_._IFELSE___V108*/ meltfptr[85] = 0 ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-genobj.melt:6700:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L49*/ meltfnum[41] = (melt_magic_discr((melt_ptr_t)(/*_.CURNMATCHED__V69*/ meltfptr[62])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-genobj.melt:6706:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L49*/ meltfnum[41]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6707:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L50*/ meltfnum[40] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6707:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L50*/ meltfnum[40]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L51*/ meltfnum[50] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6707:/ apply"); /*apply*/ { union meltparam_un argtab[8]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L51*/ meltfnum[50]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6707; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURNMATCHED__V69*/ meltfptr[62]; /*^apply.arg*/ argtab[4].meltbp_cstring = "compilobj_nrep_match disposing curnmatched="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.CURNMATCHED__V69*/ meltfptr[62]; /*^apply.arg*/ argtab[6].meltbp_cstring = " omatched="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.OMATCHED__V46*/ meltfptr[42]; /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V112*/ meltfptr[83] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6707:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L51*/ meltfnum[50] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V112*/ meltfptr[83] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6707:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L50*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V112*/ meltfptr[83] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6709:/ quasiblock"); /*_.STUTESTS__V114*/ meltfptr[112] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STUFFMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.CURNMATCHED__V69*/ meltfptr[62]));; MELT_LOCATION("warmelt-genobj.melt:6710:/ quasiblock"); /*_.REMSTUFF__V115*/ meltfptr[83] = /*_.CURNMATCHED__V69*/ meltfptr[62];; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit3__EACHLIST */ for (/*_.TESTPAIR__V116*/ meltfptr[115] = melt_list_first( (melt_ptr_t)/*_.STUTESTS__V114*/ meltfptr[112]); melt_magic_discr((melt_ptr_t) /*_.TESTPAIR__V116*/ meltfptr[115]) == MELTOBMAG_PAIR; /*_.TESTPAIR__V116*/ meltfptr[115] = melt_pair_tail((melt_ptr_t) /*_.TESTPAIR__V116*/ meltfptr[115])) { /*_.CURTEST__V117*/ meltfptr[116] = melt_pair_head((melt_ptr_t) /*_.TESTPAIR__V116*/ meltfptr[115]); MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6714:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURTEST__V117*/ meltfptr[116]; /*_.LIST_FIND__V118*/ meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!LIST_FIND*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.DONETESTS__V42*/ meltfptr[41]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^cond*/ /*cond*/ if (/*_.LIST_FIND__V118*/ meltfptr[117]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6715:/ compute"); /*_.TESTPAIR__V116*/ meltfptr[115] = /*_.SETQ___V120*/ meltfptr[119] = (/*nil*/NULL);; /*_._IFELSE___V119*/ meltfptr[118] = /*_.SETQ___V120*/ meltfptr[119];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6714:/ clear"); /*clear*/ /*_.SETQ___V120*/ meltfptr[119] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6716:/ compute"); /*_.REMSTUFF__V115*/ meltfptr[83] = /*_.SETQ___V121*/ meltfptr[119] = (/*nil*/NULL);; /*_._IFELSE___V119*/ meltfptr[118] = /*_.SETQ___V121*/ meltfptr[119];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6714:/ clear"); /*clear*/ /*_.SETQ___V121*/ meltfptr[119] = 0 ; } ; } ; } /* end foreach_pair_component_in_list meltcit3__EACHLIST */ /*_.TESTPAIR__V116*/ meltfptr[115] = NULL; /*_.CURTEST__V117*/ meltfptr[116] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6711:/ clear"); /*clear*/ /*_.TESTPAIR__V116*/ meltfptr[115] = 0 ; /*^clear*/ /*clear*/ /*_.CURTEST__V117*/ meltfptr[116] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIND__V118*/ meltfptr[117] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V119*/ meltfptr[118] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6718:/ cond"); /*cond*/ if (/*_.REMSTUFF__V115*/ meltfptr[83]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-genobj.melt:6719:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.DISPOSABLIST__V101*/ meltfptr[84]), (melt_ptr_t)(/*_.REMSTUFF__V115*/ meltfptr[83])); } ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:6710:/ clear"); /*clear*/ /*_.REMSTUFF__V115*/ meltfptr[83] = 0 ; MELT_LOCATION("warmelt-genobj.melt:6709:/ clear"); /*clear*/ /*_.STUTESTS__V114*/ meltfptr[112] = 0 ; MELT_LOCATION("warmelt-genobj.melt:6706:/ quasiblock"); /*epilog*/ } ; } else /*^cond.else*/ { /*_._IFELSE___V111*/ meltfptr[109] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IFELSE___V108*/ meltfptr[85] = /*_._IFELSE___V111*/ meltfptr[109];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6700:/ clear"); /*clear*/ /*_#IS_OBJECT__L49*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V111*/ meltfptr[109] = 0 ; } ; } ; /*_._IFELSE___V104*/ meltfptr[86] = /*_._IFELSE___V108*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6682:/ clear"); /*clear*/ /*_#eqeq__L46*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V108*/ meltfptr[85] = 0 ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6722:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L52*/ meltfnum[50] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6722:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L52*/ meltfnum[50]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L53*/ meltfnum[40] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6722:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L53*/ meltfnum[40]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6722; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match disposablist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DISPOSABLIST__V101*/ meltfptr[84]; /*_.MELT_DEBUG_FUN__V123*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V122*/ meltfptr[119] = /*_.MELT_DEBUG_FUN__V123*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6722:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L53*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V123*/ meltfptr[83] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V122*/ meltfptr[119] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6722:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L52*/ meltfnum[50] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V122*/ meltfptr[119] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit4__EACHLIST */ for (/*_.DISPAIR__V124*/ meltfptr[112] = melt_list_first( (melt_ptr_t)/*_.DISPOSABLIST__V101*/ meltfptr[84]); melt_magic_discr((melt_ptr_t) /*_.DISPAIR__V124*/ meltfptr[112]) == MELTOBMAG_PAIR; /*_.DISPAIR__V124*/ meltfptr[112] = melt_pair_tail((melt_ptr_t) /*_.DISPAIR__V124*/ meltfptr[112])) { /*_.DISPSTUFF__V125*/ meltfptr[109] = melt_pair_head((melt_ptr_t) /*_.DISPAIR__V124*/ meltfptr[112]); { MELT_LOCATION("warmelt-genobj.melt:6726:/ locexp"); meltgc_remove_mapobjects( (meltmapobjects_ptr_t) (/*_.STUFFMAP__V16*/ meltfptr[15]), (meltobject_ptr_t)(/*_.DISPSTUFF__V125*/ meltfptr[109])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6727:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L54*/ meltfnum[41] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6727:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L54*/ meltfnum[41]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L55*/ meltfnum[24] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6727:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L55*/ meltfnum[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6727; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match dispstuff="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DISPSTUFF__V125*/ meltfptr[109]; /*_.MELT_DEBUG_FUN__V127*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V126*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6727:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L55*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ meltfptr[83] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V126*/ meltfptr[85] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6727:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L54*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V126*/ meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6728:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^msend*/ /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.DISPOBJ__V129*/ meltfptr[83] = meltgc_send((melt_ptr_t)(/*_.DISPSTUFF__V125*/ meltfptr[109]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6729:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L56*/ meltfnum[40] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6729:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L56*/ meltfnum[40]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L57*/ meltfnum[50] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6729:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L57*/ meltfnum[50]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6729; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match dispobj="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DISPOBJ__V129*/ meltfptr[83]; /*_.MELT_DEBUG_FUN__V131*/ meltfptr[130] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V130*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V131*/ meltfptr[130];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6729:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L57*/ meltfnum[50] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V131*/ meltfptr[130] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V130*/ meltfptr[85] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6729:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L56*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V130*/ meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6730:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L58*/ meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.DISPOBJ__V129*/ meltfptr[83]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[23])));; MELT_LOCATION("warmelt-genobj.melt:6730:/ cond"); /*cond*/ if (/*_#IS_A__L58*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V133*/ meltfptr[85] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6730:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dispobj"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6730; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DISPOBJ__V129*/ meltfptr[83]; /*_.MELT_ASSERT_FAILURE_FUN__V134*/ meltfptr[133] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V133*/ meltfptr[85] = /*_.MELT_ASSERT_FAILURE_FUN__V134*/ meltfptr[133];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6730:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V134*/ meltfptr[133] = 0 ; } ; } ; /*_.IFCPP___V132*/ meltfptr[130] = /*_._IFELSE___V133*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6730:/ clear"); /*clear*/ /*_#IS_A__L58*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V133*/ meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V132*/ meltfptr[130] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#exeq__L59*/ meltfnum[41] = ((/*_.DISPOBJ__V129*/ meltfptr[83]) != (/*_.OMATCHED__V46*/ meltfptr[42]));; MELT_LOCATION("warmelt-genobj.melt:6732:/ cond"); /*cond*/ if (/*_#exeq__L59*/ meltfnum[41]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6733:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.DISPOSE_OBJLOC__V136*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.DISPOBJ__V129*/ meltfptr[83]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V135*/ meltfptr[133] = /*_.DISPOSE_OBJLOC__V136*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6732:/ clear"); /*clear*/ /*_.DISPOSE_OBJLOC__V136*/ meltfptr[85] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6734:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L60*/ meltfnum[50] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6734:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L60*/ meltfnum[50]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L61*/ meltfnum[40] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6734:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L61*/ meltfnum[40]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6734; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match dont dispose omatched="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OMATCHED__V46*/ meltfptr[42]; /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V137*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6734:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L61*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V137*/ meltfptr[85] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6734:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L60*/ meltfnum[50] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V137*/ meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*clear*/ /*_._IFELSE___V135*/ meltfptr[133] = 0 ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*epilog*/ } ; } ; /*^compute*/ /*_.LET___V128*/ meltfptr[119] = /*_._IFELSE___V135*/ meltfptr[133];; MELT_LOCATION("warmelt-genobj.melt:6728:/ clear"); /*clear*/ /*_.DISPOBJ__V129*/ meltfptr[83] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V132*/ meltfptr[130] = 0 ; /*^clear*/ /*clear*/ /*_#exeq__L59*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V135*/ meltfptr[133] = 0 ; } /* end foreach_pair_component_in_list meltcit4__EACHLIST */ /*_.DISPAIR__V124*/ meltfptr[112] = NULL; /*_.DISPSTUFF__V125*/ meltfptr[109] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6723:/ clear"); /*clear*/ /*_.DISPAIR__V124*/ meltfptr[112] = 0 ; /*^clear*/ /*clear*/ /*_.DISPSTUFF__V125*/ meltfptr[109] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V128*/ meltfptr[119] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-genobj.melt:6677:/ clear"); /*clear*/ /*_.DISPOSABLIST__V101*/ meltfptr[84] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L45*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V104*/ meltfptr[86] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6644:/ clear"); /*clear*/ /*_.IFCPP___V79*/ meltfptr[60] = 0 ; /*^clear*/ /*clear*/ /*_#IS_LIST__L33*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V82*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.CUROBDEST__V76*/ meltfptr[63] = 0 ; MELT_LOCATION("warmelt-genobj.melt:6636:/ clear"); /*clear*/ /*_.LABINS__V68*/ meltfptr[66] = 0 ; /*^clear*/ /*clear*/ /*_.CURNMATCHED__V69*/ meltfptr[62] = 0 ; if (/*_#TESTIX__L13*/ meltfnum[6]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6611:/ clear"); /*clear*/ /*_.CUROTEST__V49*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_#TESTIX__L13*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V52*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V55*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L19*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V58*/ meltfptr[56] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-genobj.melt:6736:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V31*/ meltfptr[19]), (melt_ptr_t)(/*_.OENDLABEL__V37*/ meltfptr[36])); } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6738:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[26]); /*_.LIST_TO_MULTIPLE__V139*/ meltfptr[137] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.SUBCOMPLIST__V30*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:6737:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OMBLOC__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ meltfrout->tabval[7]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OMULBLO_SUBCOMP", melt_magic_discr((melt_ptr_t)(/*_.OMBLOC__V32*/ meltfptr[31])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.OMBLOC__V32*/ meltfptr[31]), (3), (/*_.LIST_TO_MULTIPLE__V139*/ meltfptr[137]), "OMULBLO_SUBCOMP"); ; /*^touch*/ meltgc_touch(/*_.OMBLOC__V32*/ meltfptr[31]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.OMBLOC__V32*/ meltfptr[31], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6739:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L62*/ meltfnum[24] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6739:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L62*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L63*/ meltfnum[40] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6739:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L63*/ meltfnum[40]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6739; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_match return ombloc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OMBLOC__V32*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V141*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V140*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V141*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6739:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L63*/ meltfnum[40] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V141*/ meltfptr[83] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V140*/ meltfptr[85] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6739:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L62*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V140*/ meltfptr[85] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6740:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OMBLOC__V32*/ meltfptr[31];; MELT_LOCATION("warmelt-genobj.melt:6740:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL)); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V12*/ meltfptr[4] = /*_.RETURN___V142*/ meltfptr[130];; MELT_LOCATION("warmelt-genobj.melt:6556:/ clear"); /*clear*/ /*_.NLOC__V13*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.NCTYP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.NTESTS__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.STUFFMAP__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.NMATCHED__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.MATMAP__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MATLABEL__V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V26*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.ENDLABEL__V29*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.SUBCOMPLIST__V30*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.OBODYL__V31*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.OMBLOC__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.OFIRSTGOTO__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.OENDLABEL__V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V39*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.TCX__V40*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.DONETESTS__V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.COMPILE_OBJ__V45*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.OMATCHED__V46*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_TO_MULTIPLE__V139*/ meltfptr[137] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V142*/ meltfptr[130] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6552:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[4];; { MELT_LOCATION("warmelt-genobj.melt:6552:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCH", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_156_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCH*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40 fromline 1752 */ /** start of frame for meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40// fromline 1568 : public Melt_CallFrameWithValues<10> { public: /* fromline 1572*/ long mcfr_varnum[1]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<10> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40), clos) {}; MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40() //the constructor fromline 1642 : Melt_CallFrameWithValues<10> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<10> (fil,lin, sizeof(MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40)) {}; MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<10> (fil,lin, sizeof(MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40 /** end of frame for meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40 fromline 1697**/ /* end of frame for routine meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40 fromline 1756 */ /* classy proc frame meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40 */ MeltFrame_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40 fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl40", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6685:/ getarg"); /*_.STUFF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.STUTESTS__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.STUTESTS__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#exeq__L1*/ meltfnum[0] = ((/*_.STUFF__V2*/ meltfptr[1]) != ((/*~OMATCHED*/ meltfclos->tabval[0])));; MELT_LOCATION("warmelt-genobj.melt:6686:/ cond"); /*cond*/ if (/*_#exeq__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6687:/ quasiblock"); /*_.REMSTUFF__V4*/ meltfptr[3] = /*_.STUFF__V2*/ meltfptr[1];; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit1__EACHLIST */ for (/*_.TESTPAIR__V5*/ meltfptr[4] = melt_list_first( (melt_ptr_t)/*_.STUTESTS__V3*/ meltfptr[2]); melt_magic_discr((melt_ptr_t) /*_.TESTPAIR__V5*/ meltfptr[4]) == MELTOBMAG_PAIR; /*_.TESTPAIR__V5*/ meltfptr[4] = melt_pair_tail((melt_ptr_t) /*_.TESTPAIR__V5*/ meltfptr[4])) { /*_.CURTEST__V6*/ meltfptr[5] = melt_pair_head((melt_ptr_t) /*_.TESTPAIR__V5*/ meltfptr[4]); MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6691:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURTEST__V6*/ meltfptr[5]; /*_.LIST_FIND__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!LIST_FIND*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~DONETESTS*/ meltfclos->tabval[1])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^cond*/ /*cond*/ if (/*_.LIST_FIND__V7*/ meltfptr[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6692:/ compute"); /*_.TESTPAIR__V5*/ meltfptr[4] = /*_.SETQ___V9*/ meltfptr[8] = (/*nil*/NULL);; /*_._IFELSE___V8*/ meltfptr[7] = /*_.SETQ___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6691:/ clear"); /*clear*/ /*_.SETQ___V9*/ meltfptr[8] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6693:/ compute"); /*_.REMSTUFF__V4*/ meltfptr[3] = /*_.SETQ___V10*/ meltfptr[8] = (/*nil*/NULL);; /*_._IFELSE___V8*/ meltfptr[7] = /*_.SETQ___V10*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6691:/ clear"); /*clear*/ /*_.SETQ___V10*/ meltfptr[8] = 0 ; } ; } ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.TESTPAIR__V5*/ meltfptr[4] = NULL; /*_.CURTEST__V6*/ meltfptr[5] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6688:/ clear"); /*clear*/ /*_.TESTPAIR__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.CURTEST__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIND__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[7] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6695:/ cond"); /*cond*/ if (/*_.REMSTUFF__V4*/ meltfptr[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-genobj.melt:6696:/ locexp"); meltgc_append_list((melt_ptr_t)((/*~DISPOSABLIST*/ meltfclos->tabval[2])), (melt_ptr_t)(/*_.REMSTUFF__V4*/ meltfptr[3])); } ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:6687:/ clear"); /*clear*/ /*_.REMSTUFF__V4*/ meltfptr[3] = 0 ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6685:/ clear"); /*clear*/ /*_#exeq__L1*/ meltfnum[0] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl40", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_157_WARMELTmiGENOBJ_LAMBDA_cl40*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT fromline 1752 */ /** start of frame for meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT// fromline 1568 : public Melt_CallFrameWithValues<85> { public: /* fromline 1572*/ long mcfr_varnum[48]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<85> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT), clos) {}; MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT() //the constructor fromline 1642 : Melt_CallFrameWithValues<85> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<85> (fil,lin, sizeof(MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT)) {}; MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<85> (fil,lin, sizeof(MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT /** end of frame for meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT fromline 1697**/ /* end of frame for routine meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT fromline 1756 */ /* classy proc frame meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT */ MeltFrame_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCHALT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6765:/ getarg"); /*_.NMAT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6766:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6766:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6766:/ apply"); /*apply*/ { union meltparam_un argtab[10]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6766; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt nmat="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMAT__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n** gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n** class_objmatchflagblock="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!CLASS_OBJMATCHFLAGBLOCK*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[9].meltbp_cstring = "\n"; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6766:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6766:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6768:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCHALT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-genobj.melt:6768:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6768:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmat"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6768; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMAT__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6768:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6768:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6769:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:6769:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6769:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6769; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6769:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6769:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6770:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6771:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V13*/ meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6772:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NEXPR_CTYP"); /*_.NCTYP__V14*/ meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6773:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NAMATCH_MATCHED"); /*_.NMATCHED__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6774:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NAMATCH_RESULT"); /*_.NRES__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6775:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NAMATCH_BODY"); /*_.NBODY__V17*/ meltfptr[16] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6776:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "NAMATCH_FLAGS"); /*_.NFLAGS__V18*/ meltfptr[17] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6777:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 6, "NAMATCH_MDATAS"); /*_.NMDATAS__V19*/ meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6778:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCHALT*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 7, "NAMATCH_STARTLABEL"); /*_.NSTARTLAB__V20*/ meltfptr[19] = slot; }; ; } else /*^cond.else*/ { /*_.NSTARTLAB__V20*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.OBODYL__V21*/ meltfptr[20] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; MELT_LOCATION("warmelt-genobj.melt:6780:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 9, "GNCX_ALTMATCH"); /*_.OLDALTMATCH__V22*/ meltfptr[21] = slot; }; ; } else /*^cond.else*/ { /*_.OLDALTMATCH__V22*/ meltfptr[21] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6781:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OLDALTMATCH__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[7]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OLDALTMATCH__V22*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 1, "ALTMATCHN_NUMBER"); /*_.ALTMATCHN_NUMBER__V23*/ meltfptr[22] = slot; }; ; } else /*^cond.else*/ { /*_.ALTMATCHN_NUMBER__V23*/ meltfptr[22] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6781:/ cond"); /*cond*/ if (/*_.ALTMATCHN_NUMBER__V23*/ meltfptr[22]) /*then*/ { /*^cond.then*/ /*_.OLDMATCHNUM__V24*/ meltfptr[23] = /*_.ALTMATCHN_NUMBER__V23*/ meltfptr[22];; } else { MELT_LOCATION("warmelt-genobj.melt:6781:/ cond.else"); /*_.OLDMATCHNUM__V24*/ meltfptr[23] = (/*!konst_6*/ meltfrout->tabval[6]);; } ; /*^compute*/ /*_.MATCHNUM__V25*/ meltfptr[24] = /*+ivi*/ ((melt_magic_discr((melt_ptr_t) /*_.OLDMATCHNUM__V24*/ meltfptr[23])==MELTOBMAG_INT)? (meltgc_new_int ((meltobject_ptr_t) MELT_PREDEF (DISCR_CONSTANT_INTEGER), (melt_unsafe_boxed_int_value((melt_ptr_t) /*_.OLDMATCHNUM__V24*/ meltfptr[23]) + (1)))) :(melt_ptr_t)NULL);; /*^compute*/ /*_#MULTIPLE_LENGTH__L5*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.NFLAGS__V18*/ meltfptr[17])));; /*^compute*/ /*_#stI__L6*/ meltfnum[0] = ((2) * (/*_#MULTIPLE_LENGTH__L5*/ meltfnum[1]));; /*^compute*/ /*_#plI__L7*/ meltfnum[6] = ((5) + (/*_#stI__L6*/ meltfnum[0]));; /*^compute*/ /*_.OFLAGMAP__V26*/ meltfptr[25] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[8])), (/*_#plI__L7*/ meltfnum[6])));; /*^compute*/ /*_#MULTIPLE_LENGTH__L8*/ meltfnum[7] = (melt_multiple_length((melt_ptr_t)(/*_.NMDATAS__V19*/ meltfptr[18])));; /*^compute*/ /*_#stI__L9*/ meltfnum[8] = ((2) * (/*_#MULTIPLE_LENGTH__L8*/ meltfnum[7]));; /*^compute*/ /*_#plI__L10*/ meltfnum[9] = ((7) + (/*_#stI__L9*/ meltfnum[8]));; /*^compute*/ /*_.ODATAMAP__V27*/ meltfptr[26] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[8])), (/*_#plI__L10*/ meltfnum[9])));; /*^compute*/ /*_#MULTIPLE_LENGTH__L11*/ meltfnum[10] = (melt_multiple_length((melt_ptr_t)(/*_.NMDATAS__V19*/ meltfptr[18])));; /*^compute*/ /*_#stI__L12*/ meltfnum[11] = ((3) * (/*_#MULTIPLE_LENGTH__L11*/ meltfnum[10]));; /*^compute*/ /*_#plI__L13*/ meltfnum[12] = ((13) + (/*_#stI__L12*/ meltfnum[11]));; /*^compute*/ /*_.OSTEPMAP__V28*/ meltfptr[27] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[8])), (/*_#plI__L13*/ meltfnum[12])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6789:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "_meltmatchaltlab"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MATCHNUM__V25*/ meltfptr[24]; /*^apply.arg*/ argtab[2].meltbp_cstring = "_"; /*_.LABPREFIX__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[9])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[10])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6790:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[7])), (7), "CLASS_ALTERNATE_MATCH_NREP_DATA"); /*_.INST__V31*/ meltfptr[30] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALTMATCHN_PREV", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (0), (/*_.OLDALTMATCH__V22*/ meltfptr[21]), "ALTMATCHN_PREV"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALTMATCHN_NUMBER", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (1), (/*_.MATCHNUM__V25*/ meltfptr[24]), "ALTMATCHN_NUMBER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALTMATCHN_NREP", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (2), (/*_.NMAT__V2*/ meltfptr[1]), "ALTMATCHN_NREP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALTMATCHN_FLAGMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (3), (/*_.OFLAGMAP__V26*/ meltfptr[25]), "ALTMATCHN_FLAGMAP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALTMATCHN_DATAMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (4), (/*_.ODATAMAP__V27*/ meltfptr[26]), "ALTMATCHN_DATAMAP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALTMATCHN_STEPMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (5), (/*_.OSTEPMAP__V28*/ meltfptr[27]), "ALTMATCHN_STEPMAP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALTMATCHN_LABPREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[30])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (6), (/*_.LABPREFIX__V29*/ meltfptr[28]), "ALTMATCHN_LABPREFIX"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V31*/ meltfptr[30], "newly made instance"); ; /*_.ALTMATCH__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6800:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6800:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6800:/ apply"); /*apply*/ { union meltparam_un argtab[17]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[14]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6800; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt nmatched="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMATCHED__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n nres="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NRES__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n nflags="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NFLAGS__V18*/ meltfptr[17]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n nctyp="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V14*/ meltfptr[13]; /*^apply.arg*/ argtab[11].meltbp_cstring = "\n nbody="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.NBODY__V17*/ meltfptr[16]; /*^apply.arg*/ argtab[13].meltbp_cstring = "\n oldaltmatch="; /*^apply.arg*/ argtab[14].meltbp_aptr = (melt_ptr_t*) &/*_.OLDALTMATCH__V22*/ meltfptr[21]; /*^apply.arg*/ argtab[15].meltbp_cstring = "\n new altmatch="; /*^apply.arg*/ argtab[16].meltbp_aptr = (melt_ptr_t*) &/*_.ALTMATCH__V30*/ meltfptr[29]; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V32*/ meltfptr[31] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6800:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V32*/ meltfptr[31] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6800:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V32*/ meltfptr[31] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6804:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @GNCX_ALTMATCH", melt_magic_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.GCX__V3*/ meltfptr[2]), (9), (/*_.ALTMATCH__V30*/ meltfptr[29]), "GNCX_ALTMATCH"); ; /*^touch*/ meltgc_touch(/*_.GCX__V3*/ meltfptr[2]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.GCX__V3*/ meltfptr[2], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:6805:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6806:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NRES__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NRES__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NOCC_SYMB"); /*_.NSYMBRES__V35*/ meltfptr[31] = slot; }; ; } else /*^cond.else*/ { /*_.NSYMBRES__V35*/ meltfptr[31] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6807:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NSYMBRES__V35*/ meltfptr[31]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V14*/ meltfptr[13]; /*_.OBVARES__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6808:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ meltfrout->tabval[13])), (2), "CLASS_OBJCLEAR"); /*_.INST__V38*/ meltfptr[37] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ meltfptr[37])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V38*/ meltfptr[37]), (0), (/*_.NLOC__V13*/ meltfptr[3]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ meltfptr[37])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V38*/ meltfptr[37]), (1), (/*_.OBVARES__V36*/ meltfptr[35]), "OCLR_VLOC"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V38*/ meltfptr[37], "newly made instance"); ; /*_.OCLEARES__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; { MELT_LOCATION("warmelt-genobj.melt:6812:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V21*/ meltfptr[20]), (melt_ptr_t)(/*_.OCLEARES__V37*/ meltfptr[36])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6814:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6814:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L17*/ meltfnum[13] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6814:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[13]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6814; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt nflags="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NFLAGS__V18*/ meltfptr[17]; /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V39*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6814:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V39*/ meltfptr[38] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6814:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V39*/ meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6815:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6818:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V43*/ meltfptr[42] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ meltfrout->tabval[17])), (1)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ meltfptr[42])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ meltfptr[42]))); ((meltclosure_ptr_t)/*_.LAMBDA___V43*/ meltfptr[42])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]); ; /*_.LAMBDA___V42*/ meltfptr[38] = /*_.LAMBDA___V43*/ meltfptr[42];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6816:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V42*/ meltfptr[38]; /*_.OFLAGS__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NFLAGS__V18*/ meltfptr[17]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6825:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMATCHFLAGBLOCK*/ meltfrout->tabval[1])), (4), "CLASS_OBJMATCHFLAGBLOCK"); /*_.INST__V46*/ meltfptr[45] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ meltfptr[45])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V46*/ meltfptr[45]), (0), (/*_.NLOC__V13*/ meltfptr[3]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OMCHFLGBLO_FLAGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ meltfptr[45])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V46*/ meltfptr[45]), (3), (/*_.OFLAGS__V44*/ meltfptr[43]), "OMCHFLGBLO_FLAGS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ meltfptr[45])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V46*/ meltfptr[45]), (1), (/*_.OBODYL__V21*/ meltfptr[20]), "OBLO_BODYL"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V46*/ meltfptr[45], "newly made instance"); ; /*_.OBLOCK__V45*/ meltfptr[44] = /*_.INST__V46*/ meltfptr[45];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6830:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6830:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L19*/ meltfnum[14] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6830:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[14]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6830; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt oflags="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OFLAGS__V44*/ meltfptr[43]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n oblock="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBLOCK__V45*/ meltfptr[44]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n nbody="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NBODY__V17*/ meltfptr[16]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n nstartlab="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.NSTARTLAB__V20*/ meltfptr[19]; /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V47*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6830:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V47*/ meltfptr[46] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6830:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V47*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NBODY__V17*/ meltfptr[16]); for (/*_#BODIX__L20*/ meltfnum[14] = 0; (/*_#BODIX__L20*/ meltfnum[14] >= 0) && (/*_#BODIX__L20*/ meltfnum[14] < meltcit1__EACHTUP_ln); /*_#BODIX__L20*/ meltfnum[14]++) { /*_.CURNCOMP__V49*/ meltfptr[47] = melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V17*/ meltfptr[16]), /*_#BODIX__L20*/ meltfnum[14]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6837:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6837:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6837:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[21]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6837; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt stepmap bodix#"; /*^apply.arg*/ argtab[4].meltbp_long = /*_#BODIX__L20*/ meltfnum[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = " curncomp="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURNCOMP__V49*/ meltfptr[47]; /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V50*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6837:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V50*/ meltfptr[46] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6837:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V50*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L23*/ meltfnum[21] = melt_is_instance_of((melt_ptr_t)(/*_.CURNCOMP__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL*/ meltfrout->tabval[18])));; MELT_LOCATION("warmelt-genobj.melt:6838:/ cond"); /*cond*/ if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6839:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURNCOMP__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL*/ meltfrout->tabval[18]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURNCOMP__V49*/ meltfptr[47]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NMLAB_STEP"); /*_.LABSTEP__V52*/ meltfptr[50] = slot; }; ; } else /*^cond.else*/ { /*_.LABSTEP__V52*/ meltfptr[50] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#STEPCOUNT__L24*/ meltfnum[13] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.OSTEPMAP__V28*/ meltfptr[27])));; /*^compute*/ /*_#plI__L25*/ meltfnum[24] = ((/*_#STEPCOUNT__L24*/ meltfnum[13]) + (1));; /*^compute*/ /*_.STEPNUM__V53*/ meltfptr[46] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#plI__L25*/ meltfnum[24]));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6843:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L26*/ meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6843:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L27*/ meltfnum[26] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6843:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L27*/ meltfnum[26]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6843; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt labstep="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LABSTEP__V52*/ meltfptr[50]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n stepnum="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.STEPNUM__V53*/ meltfptr[46]; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V54*/ meltfptr[53] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6843:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V54*/ meltfptr[53] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6843:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V54*/ meltfptr[53] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6844:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L28*/ meltfnum[26] = melt_is_instance_of((melt_ptr_t)(/*_.CURNCOMP__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL_END*/ meltfrout->tabval[20])));; MELT_LOCATION("warmelt-genobj.melt:6844:/ cond"); /*cond*/ if (/*_#IS_A__L28*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*_#OR___L29*/ meltfnum[25] = /*_#IS_A__L28*/ meltfnum[26];; } else { MELT_LOCATION("warmelt-genobj.melt:6844:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#IS_A__L30*/ meltfnum[29] = melt_is_instance_of((melt_ptr_t)(/*_.LABSTEP__V52*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[19])));; /*^compute*/ /*_#OR___L29*/ meltfnum[25] = /*_#IS_A__L30*/ meltfnum[29];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6844:/ clear"); /*clear*/ /*_#IS_A__L30*/ meltfnum[29] = 0 ; } ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L29*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V57*/ meltfptr[53] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6844:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check labstep"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6844; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LABSTEP__V52*/ meltfptr[50]; /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V57*/ meltfptr[53] = /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6844:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[57] = 0 ; } ; } ; /*_.IFCPP___V56*/ meltfptr[54] = /*_._IFELSE___V57*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6844:/ clear"); /*clear*/ /*_#IS_A__L28*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L29*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V57*/ meltfptr[53] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V56*/ meltfptr[54] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6847:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_.MAPOBJECT_GET__V60*/ meltfptr[53] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OSTEPMAP__V28*/ meltfptr[27]), (meltobject_ptr_t)(/*_.LABSTEP__V52*/ meltfptr[50]));; /*^compute*/ /*_#NULL__L31*/ meltfnum[29] = (/*null*/(/*_.MAPOBJECT_GET__V60*/ meltfptr[53]) == NULL);; MELT_LOCATION("warmelt-genobj.melt:6847:/ cond"); /*cond*/ if (/*_#NULL__L31*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V61*/ meltfptr[60] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6847:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check unknown labstep"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6847; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LABSTEP__V52*/ meltfptr[50]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OSTEPMAP__V28*/ meltfptr[27]; /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V61*/ meltfptr[60] = /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6847:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61] = 0 ; } ; } ; /*_.IFCPP___V59*/ meltfptr[57] = /*_._IFELSE___V61*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6847:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V60*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L31*/ meltfnum[29] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V61*/ meltfptr[60] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V59*/ meltfptr[57] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6848:/ cond"); /*cond*/ if (/*_.LABSTEP__V52*/ meltfptr[50]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-genobj.melt:6849:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.OSTEPMAP__V28*/ meltfptr[27]), (meltobject_ptr_t) (/*_.LABSTEP__V52*/ meltfptr[50]), (melt_ptr_t)(/*_.STEPNUM__V53*/ meltfptr[46])); } ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-genobj.melt:6839:/ clear"); /*clear*/ /*_.LABSTEP__V52*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_#STEPCOUNT__L24*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L25*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.STEPNUM__V53*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V56*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V59*/ meltfptr[57] = 0 ; /*epilog*/ } ; } /*noelse*/ ; if (/*_#BODIX__L20*/ meltfnum[14]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6834:/ clear"); /*clear*/ /*_.CURNCOMP__V49*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_#BODIX__L20*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L23*/ meltfnum[21] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6852:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L32*/ meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6852:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L32*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L33*/ meltfnum[25] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6852:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L33*/ meltfnum[25]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6852; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt ostepmap="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OSTEPMAP__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. nbody="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBODY__V17*/ meltfptr[16]; /*_.MELT_DEBUG_FUN__V64*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V63*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6852:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L33*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ meltfptr[53] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V63*/ meltfptr[61] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6852:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L32*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V63*/ meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NBODY__V17*/ meltfptr[16]); for (/*_#BODIX__L34*/ meltfnum[29] = 0; (/*_#BODIX__L34*/ meltfnum[29] >= 0) && (/*_#BODIX__L34*/ meltfnum[29] < meltcit2__EACHTUP_ln); /*_#BODIX__L34*/ meltfnum[29]++) { /*_.CURNCOMP__V65*/ meltfptr[60] = melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V17*/ meltfptr[16]), /*_#BODIX__L34*/ meltfnum[29]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6857:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L35*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6857:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L36*/ meltfnum[24] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6857:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L36*/ meltfnum[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6857; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt curncomp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURNCOMP__V65*/ meltfptr[60]; /*^apply.arg*/ argtab[5].meltbp_cstring = " bodix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#BODIX__L34*/ meltfnum[29]; /*_.MELT_DEBUG_FUN__V67*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V66*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6857:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ meltfptr[46] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V66*/ meltfptr[50] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6857:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V66*/ meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6858:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^msend*/ /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.CUROCOMP__V68*/ meltfptr[54] = meltgc_send((melt_ptr_t)(/*_.CURNCOMP__V65*/ meltfptr[60]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[21])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6860:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L37*/ meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6860:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L38*/ meltfnum[26] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6860:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L38*/ meltfnum[26]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6860; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt curocomp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROCOMP__V68*/ meltfptr[54]; /*_.MELT_DEBUG_FUN__V70*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V69*/ meltfptr[57] = /*_.MELT_DEBUG_FUN__V70*/ meltfptr[53];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6860:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V70*/ meltfptr[53] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V69*/ meltfptr[57] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6860:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V69*/ meltfptr[57] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6861:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L39*/ meltfnum[24] = (melt_magic_discr((melt_ptr_t)(/*_.CUROCOMP__V68*/ meltfptr[54])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-genobj.melt:6861:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L39*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V72*/ meltfptr[46] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6861:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curocomp object"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6861; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CUROCOMP__V68*/ meltfptr[54]; /*_.MELT_ASSERT_FAILURE_FUN__V73*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V72*/ meltfptr[46] = /*_.MELT_ASSERT_FAILURE_FUN__V73*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6861:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V73*/ meltfptr[50] = 0 ; } ; } ; /*_.IFCPP___V71*/ meltfptr[61] = /*_._IFELSE___V72*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6861:/ clear"); /*clear*/ /*_#IS_OBJECT__L39*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V72*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V71*/ meltfptr[61] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#eqeq__L40*/ meltfnum[13] = ((/*_.CURNCOMP__V65*/ meltfptr[60]) == (/*_.NSTARTLAB__V20*/ meltfptr[19]));; MELT_LOCATION("warmelt-genobj.melt:6862:/ cond"); /*cond*/ if (/*_#eqeq__L40*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L42*/ meltfnum[25] = melt_is_instance_of((melt_ptr_t)(/*_.CURNCOMP__V65*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL*/ meltfrout->tabval[18])));; /*^compute*/ /*_#_IF___L41*/ meltfnum[26] = /*_#IS_A__L42*/ meltfnum[25];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6862:/ clear"); /*clear*/ /*_#IS_A__L42*/ meltfnum[25] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L41*/ meltfnum[26] = 0;; } ; MELT_LOCATION("warmelt-genobj.melt:6862:/ cond"); /*cond*/ if (/*_#_IF___L41*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:6867:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NSTARTLAB__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL*/ meltfrout->tabval[18]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NSTARTLAB__V20*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NMLAB_STEP"); /*_.STARTSTEP__V74*/ meltfptr[53] = slot; }; ; } else /*^cond.else*/ { /*_.STARTSTEP__V74*/ meltfptr[53] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_.MAPOBJECT_GET__V75*/ meltfptr[57] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OSTEPMAP__V28*/ meltfptr[27]), (meltobject_ptr_t)(/*_.STARTSTEP__V74*/ meltfptr[53]));; MELT_LOCATION("warmelt-genobj.melt:6869:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ meltfrout->tabval[22])), (3), "CLASS_OBJGOTOINSTR"); /*_.INST__V77*/ meltfptr[46] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ meltfptr[46])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V77*/ meltfptr[46]), (1), (/*_.LABPREFIX__V29*/ meltfptr[28]), "OBGOTO_PREFIX"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ meltfptr[46])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V77*/ meltfptr[46]), (2), (/*_.MAPOBJECT_GET__V75*/ meltfptr[57]), "OBGOTO_RANK"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V77*/ meltfptr[46], "newly made instance"); ; /*_.OSTARTJUMP__V76*/ meltfptr[50] = /*_.INST__V77*/ meltfptr[46];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6873:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L43*/ meltfnum[24] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6873:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L43*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L44*/ meltfnum[25] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6873:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L44*/ meltfnum[25]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6873; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt ostartjump="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OSTARTJUMP__V76*/ meltfptr[50]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n startstep="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.STARTSTEP__V74*/ meltfptr[53]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n ostepmap="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OSTEPMAP__V28*/ meltfptr[27]; /*_.MELT_DEBUG_FUN__V79*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V78*/ meltfptr[77] = /*_.MELT_DEBUG_FUN__V79*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6873:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L44*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V79*/ meltfptr[78] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V78*/ meltfptr[77] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6873:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L43*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V78*/ meltfptr[77] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6876:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V21*/ meltfptr[20]), (melt_ptr_t)(/*_.OSTARTJUMP__V76*/ meltfptr[50])); } ; MELT_LOCATION("warmelt-genobj.melt:6867:/ clear"); /*clear*/ /*_.STARTSTEP__V74*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_.MAPOBJECT_GET__V75*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.OSTARTJUMP__V76*/ meltfptr[50] = 0 ; /*epilog*/ } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-genobj.melt:6878:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V21*/ meltfptr[20]), (melt_ptr_t)(/*_.CUROCOMP__V68*/ meltfptr[54])); } ; MELT_LOCATION("warmelt-genobj.melt:6858:/ clear"); /*clear*/ /*_.CUROCOMP__V68*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V71*/ meltfptr[61] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L40*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L41*/ meltfnum[26] = 0 ; if (/*_#BODIX__L34*/ meltfnum[29]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-genobj.melt:6854:/ clear"); /*clear*/ /*_.CURNCOMP__V65*/ meltfptr[60] = 0 ; /*^clear*/ /*clear*/ /*_#BODIX__L34*/ meltfnum[29] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-genobj.melt:6881:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V21*/ meltfptr[20]), (melt_ptr_t)(/*_.OBVARES__V36*/ meltfptr[35])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6883:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L45*/ meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6883:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L45*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L46*/ meltfnum[24] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6883:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L46*/ meltfnum[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6883; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt obodyl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBODYL__V21*/ meltfptr[20]; /*_.MELT_DEBUG_FUN__V81*/ meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V80*/ meltfptr[78] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[77];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6883:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L46*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V81*/ meltfptr[77] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V80*/ meltfptr[78] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6883:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L45*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V80*/ meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6884:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.DISPOSE_OBJLOC__V82*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.OBVARES__V36*/ meltfptr[35]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6885:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @GNCX_ALTMATCH", melt_magic_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.GCX__V3*/ meltfptr[2]), (9), (/*_.OLDALTMATCH__V22*/ meltfptr[21]), "GNCX_ALTMATCH"); ; /*^touch*/ meltgc_touch(/*_.GCX__V3*/ meltfptr[2]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.GCX__V3*/ meltfptr[2], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6887:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L47*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6887:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L47*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L48*/ meltfnum[26] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6887:/ apply"); /*apply*/ { union meltparam_un argtab[10]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L48*/ meltfnum[26]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6887; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt restored gcx="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n* obodyl="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBODYL__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n* result oblock="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OBLOCK__V45*/ meltfptr[44]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n*****\n"; /*_.MELT_DEBUG_FUN__V84*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V83*/ meltfptr[57] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6887:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L48*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ meltfptr[50] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V83*/ meltfptr[57] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6887:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L47*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V83*/ meltfptr[57] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6891:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OBLOCK__V45*/ meltfptr[44];; { MELT_LOCATION("warmelt-genobj.melt:6891:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V41*/ meltfptr[39] = /*_.RETURN___V85*/ meltfptr[54];; MELT_LOCATION("warmelt-genobj.melt:6815:/ clear"); /*clear*/ /*_.LAMBDA___V42*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.OFLAGS__V44*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.OBLOCK__V45*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.DISPOSE_OBJLOC__V82*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V85*/ meltfptr[54] = 0 ; /*_.LET___V34*/ meltfptr[32] = /*_.LET___V41*/ meltfptr[39];; MELT_LOCATION("warmelt-genobj.melt:6805:/ clear"); /*clear*/ /*_.NSYMBRES__V35*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.OBVARES__V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.OCLEARES__V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V41*/ meltfptr[39] = 0 ; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V34*/ meltfptr[32];; MELT_LOCATION("warmelt-genobj.melt:6770:/ clear"); /*clear*/ /*_.NLOC__V13*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.NCTYP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.NMATCHED__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NRES__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.NBODY__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.NFLAGS__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.NMDATAS__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.NSTARTLAB__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.OBODYL__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.OLDALTMATCH__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.ALTMATCHN_NUMBER__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.OLDMATCHNUM__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.MATCHNUM__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#stI__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.OFLAGMAP__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#stI__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.ODATAMAP__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#stI__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.OSTEPMAP__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.LABPREFIX__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.ALTMATCH__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V34*/ meltfptr[32] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6765:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:6765:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCHALT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_158_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHALT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41 fromline 1752 */ /** start of frame for meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41// fromline 1568 : public Melt_CallFrameWithValues<9> { public: /* fromline 1572*/ long mcfr_varnum[5]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<9> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41), clos) {}; MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41() //the constructor fromline 1642 : Melt_CallFrameWithValues<9> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41)) {}; MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41 /** end of frame for meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41 fromline 1697**/ /* end of frame for routine meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41 fromline 1756 */ /* classy proc frame meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41 */ MeltFrame_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41 fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl41", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6818:/ getarg"); /*_.CURNFLAG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#FIX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6819:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6819:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6819:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6819; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt/lambda curnflag="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURNFLAG__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " fix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#FIX__L1*/ meltfnum[0]; /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6819:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6819:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6820:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^msend*/ /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~GCX*/ meltfclos->tabval[0]); /*_.CUROFLAG__V6*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURNFLAG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[1])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6822:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L4*/ meltfnum[2] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6822:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L5*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6822:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6822; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchalt/lambda curoflag="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROFLAG__V6*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6822:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[6] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6822:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6823:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.CUROFLAG__V6*/ meltfptr[2];; { MELT_LOCATION("warmelt-genobj.melt:6823:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V5*/ meltfptr[3] = /*_.RETURN___V9*/ meltfptr[7];; MELT_LOCATION("warmelt-genobj.melt:6820:/ clear"); /*clear*/ /*_.CUROFLAG__V6*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V9*/ meltfptr[7] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6818:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; { MELT_LOCATION("warmelt-genobj.melt:6818:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.LET___V5*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl41", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_159_WARMELTmiGENOBJ_LAMBDA_cl41*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL fromline 1752 */ /** start of frame for meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL// fromline 1568 : public Melt_CallFrameWithValues<38> { public: /* fromline 1572*/ long mcfr_varnum[12]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<38> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL), clos) {}; MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL() //the constructor fromline 1642 : Melt_CallFrameWithValues<38> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<38> (fil,lin, sizeof(MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL)) {}; MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<38> (fil,lin, sizeof(MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL /** end of frame for meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL fromline 1697**/ /* end of frame for routine meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL fromline 1756 */ /* classy proc frame meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL */ MeltFrame_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCHLABEL", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6897:/ getarg"); /*_.NMLAB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6898:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6898:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6898:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6898; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchlabel nmlab="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMLAB__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6898:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6898:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6899:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMLAB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:6899:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6899:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmlab"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6899; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMLAB__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6899:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6899:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6900:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:6900:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6900:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6900; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6900:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6900:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6901:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6902:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMLAB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMLAB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V13*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.NLOC__V13*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6903:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMLAB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMLAB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NMLAB_STEP"); /*_.NSTEP__V14*/ meltfptr[13] = slot; }; ; } else /*^cond.else*/ { /*_.NSTEP__V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6904:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 9, "GNCX_ALTMATCH"); /*_.ALTMATCHDATA__V15*/ meltfptr[14] = slot; }; ; } else /*^cond.else*/ { /*_.ALTMATCHDATA__V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6905:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 6, "ALTMATCHN_LABPREFIX"); /*_.LABPREFIX__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.LABPREFIX__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6906:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 5, "ALTMATCHN_STEPMAP"); /*_.OSTEPMAP__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.OSTEPMAP__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.STEPNUM__V18*/ meltfptr[17] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OSTEPMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.NSTEP__V14*/ meltfptr[13]));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6909:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6909:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6909:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6909; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchlabel nstep="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NSTEP__V14*/ meltfptr[13]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n stepnum="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.STEPNUM__V18*/ meltfptr[17]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n labprefix="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LABPREFIX__V16*/ meltfptr[15]; /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V19*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6909:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V19*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6909:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V19*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6911:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:6911:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[18] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check altmatchdata"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6911; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ALTMATCHDATA__V15*/ meltfptr[14]; /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V22*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6911:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; } ; } ; /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6911:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V22*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V21*/ meltfptr[19] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6912:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L8*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NSTEP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_MATCH_STEP*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-genobj.melt:6912:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V25*/ meltfptr[18] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6912:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nstep"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6912; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NSTEP__V14*/ meltfptr[13]; /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V25*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6912:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = 0 ; } ; } ; /*_.IFCPP___V24*/ meltfptr[22] = /*_._IFELSE___V25*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6912:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V25*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V24*/ meltfptr[22] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6913:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_INTEGERBOX__L9*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.STEPNUM__V18*/ meltfptr[17])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-genobj.melt:6913:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V28*/ meltfptr[18] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6913:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check stepnum"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6913; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.STEPNUM__V18*/ meltfptr[17]; /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V28*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6913:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = 0 ; } ; } ; /*_.IFCPP___V27*/ meltfptr[25] = /*_._IFELSE___V28*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6913:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V28*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V27*/ meltfptr[25] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6914:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L10*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.LABPREFIX__V16*/ meltfptr[15])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-genobj.melt:6914:/ cond"); /*cond*/ if (/*_#IS_STRING__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[18] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6914:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check labprefix"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6914; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LABPREFIX__V16*/ meltfptr[15]; /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V31*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6914:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 0 ; } ; } ; /*_.IFCPP___V30*/ meltfptr[28] = /*_._IFELSE___V31*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6914:/ clear"); /*clear*/ /*_#IS_STRING__L10*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V31*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V30*/ meltfptr[28] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6915:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_nrep_matchlabel"), (12)); #endif ; } ; MELT_LOCATION("warmelt-genobj.melt:6916:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^quasiblock*/ /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ meltfrout->tabval[7])), (3), "CLASS_OBJLABELINSTR"); /*_.INST__V35*/ meltfptr[34] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ meltfptr[34])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V35*/ meltfptr[34]), (0), (/*_.NLOC__V13*/ meltfptr[3]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLAB_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ meltfptr[34])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V35*/ meltfptr[34]), (1), (/*_.LABPREFIX__V16*/ meltfptr[15]), "OBLAB_PREFIX"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLAB_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ meltfptr[34])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V35*/ meltfptr[34]), (2), (/*_.STEPNUM__V18*/ meltfptr[17]), "OBLAB_RANK"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V35*/ meltfptr[34], "newly made instance"); ; /*_.OLABINSTR__V34*/ meltfptr[18] = /*_.INST__V35*/ meltfptr[34];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6921:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6921:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L12*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6921:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6921; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchlabel result olabinstr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OLABINSTR__V34*/ meltfptr[18]; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V36*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6921:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V36*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6921:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V36*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6922:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OLABINSTR__V34*/ meltfptr[18];; { MELT_LOCATION("warmelt-genobj.melt:6922:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V33*/ meltfptr[31] = /*_.RETURN___V38*/ meltfptr[36];; MELT_LOCATION("warmelt-genobj.melt:6916:/ clear"); /*clear*/ /*_.OLABINSTR__V34*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V38*/ meltfptr[36] = 0 ; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V33*/ meltfptr[31];; MELT_LOCATION("warmelt-genobj.melt:6901:/ clear"); /*clear*/ /*_.NLOC__V13*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.NSTEP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.ALTMATCHDATA__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.LABPREFIX__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.OSTEPMAP__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.STEPNUM__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V24*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V27*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V30*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V33*/ meltfptr[31] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6897:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:6897:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCHLABEL", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_160_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABEL*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND fromline 1752 */ /** start of frame for meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND// fromline 1568 : public Melt_CallFrameWithValues<27> { public: /* fromline 1572*/ long mcfr_varnum[9]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<27> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND), clos) {}; MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND() //the constructor fromline 1642 : Melt_CallFrameWithValues<27> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND)) {}; MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND /** end of frame for meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND fromline 1697**/ /* end of frame for routine meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND fromline 1756 */ /* classy proc frame meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND */ MeltFrame_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCHLABELEND", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6929:/ getarg"); /*_.NMLAB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6930:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6930:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6930:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6930; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchlabelend nmlab="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMLAB__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6930:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6930:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6931:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMLAB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL_END*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:6931:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6931:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmlab"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6931; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMLAB__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6931:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6931:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6932:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:6932:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6932:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6932; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6932:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6932:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6933:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6934:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMLAB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMLAB__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V13*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.NLOC__V13*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6935:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 9, "GNCX_ALTMATCH"); /*_.ALTMATCHDATA__V14*/ meltfptr[13] = slot; }; ; } else /*^cond.else*/ { /*_.ALTMATCHDATA__V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6936:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCHDATA__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ALTMATCHDATA__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 6, "ALTMATCHN_LABPREFIX"); /*_.LABPREFIX__V15*/ meltfptr[14] = slot; }; ; } else /*^cond.else*/ { /*_.LABPREFIX__V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6938:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6938:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6938:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6938; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchlabel labprefix="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LABPREFIX__V15*/ meltfptr[14]; /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V16*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6938:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6938:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V16*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6939:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L7*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LABPREFIX__V15*/ meltfptr[14])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-genobj.melt:6939:/ cond"); /*cond*/ if (/*_#IS_STRING__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[15] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6939:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check labprefix"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6939; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LABPREFIX__V15*/ meltfptr[14]; /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V19*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6939:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6939:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[16] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6940:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_nrep_matchlabel"), (12)); #endif ; } ; MELT_LOCATION("warmelt-genobj.melt:6941:/ quasiblock"); MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6943:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LABPREFIX__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[1].meltbp_cstring = "_end"; /*_.STRING4OUT__V22*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:6941:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ meltfrout->tabval[6])), (3), "CLASS_OBJLABELINSTR"); /*_.INST__V24*/ meltfptr[23] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V24*/ meltfptr[23]), (0), (/*_.NLOC__V13*/ meltfptr[3]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLAB_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V24*/ meltfptr[23]), (1), (/*_.STRING4OUT__V22*/ meltfptr[15]), "OBLAB_PREFIX"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V24*/ meltfptr[23], "newly made instance"); ; /*_.OLABINSTR__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6947:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6947:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6947:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6947; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchlabel resultend olabinstr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OLABINSTR__V23*/ meltfptr[22]; /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V25*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6947:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V25*/ meltfptr[24] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6947:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V25*/ meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6948:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OLABINSTR__V23*/ meltfptr[22];; { MELT_LOCATION("warmelt-genobj.melt:6948:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V21*/ meltfptr[19] = /*_.RETURN___V27*/ meltfptr[25];; MELT_LOCATION("warmelt-genobj.melt:6941:/ clear"); /*clear*/ /*_.STRING4OUT__V22*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.OLABINSTR__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V27*/ meltfptr[25] = 0 ; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V21*/ meltfptr[19];; MELT_LOCATION("warmelt-genobj.melt:6933:/ clear"); /*clear*/ /*_.NLOC__V13*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.ALTMATCHDATA__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LABPREFIX__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[19] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6929:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:6929:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCHLABELEND", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_161_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHLABELEND*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG fromline 1752 */ /** start of frame for meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG// fromline 1568 : public Melt_CallFrameWithValues<41> { public: /* fromline 1572*/ long mcfr_varnum[12]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<41> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG), clos) {}; MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG() //the constructor fromline 1642 : Melt_CallFrameWithValues<41> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<41> (fil,lin, sizeof(MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG)) {}; MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<41> (fil,lin, sizeof(MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG /** end of frame for meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG fromline 1697**/ /* end of frame for routine meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG fromline 1756 */ /* classy proc frame meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG */ MeltFrame_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCHFLAG", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6956:/ getarg"); /*_.NMFLAG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6957:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6957:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ /*_.DISCRIM__V5*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NMFLAG__V2*/ meltfptr[1]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6957:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6957; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchflag nmflag="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMFLAG__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n of discrim="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V5*/ meltfptr[4]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n** gcx="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6957:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DISCRIM__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6957:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6959:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMFLAG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_FLAG*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:6959:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6959:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmflag"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6959; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMFLAG__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6959:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[4] = /*_._IFELSE___V8*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6959:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6960:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:6960:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6960:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6960; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V11*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6960:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; } ; } ; /*_.IFCPP___V10*/ meltfptr[3] = /*_._IFELSE___V11*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6960:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V11*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6961:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMFLAG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V14*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6962:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMFLAG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NRPFLA_FLAG"); /*_.NRFLA__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6963:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMFLAG__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NRPFLA_NMATCH"); /*_.NRMATCH__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6964:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 9, "GNCX_ALTMATCH"); /*_.ALTMATCHDATA__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.ALTMATCHDATA__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6965:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCHDATA__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ALTMATCHDATA__V17*/ meltfptr[16]) /*=obj*/; melt_object_get_field(slot,obj, 3, "ALTMATCHN_FLAGMAP"); /*_.OFLAGMAP__V18*/ meltfptr[17] = slot; }; ; } else /*^cond.else*/ { /*_.OFLAGMAP__V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6967:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6967:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6967:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6967; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchflag nrfla="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NRFLA__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = " nrmatch="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NRMATCH__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[7].meltbp_cstring = " oflagmap="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OFLAGMAP__V18*/ meltfptr[17]; /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V19*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6967:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V19*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6967:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V19*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6968:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MAPOBJECT__L7*/ meltfnum[0] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.OFLAGMAP__V18*/ meltfptr[17])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-genobj.melt:6968:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[18] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6968:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check oflagmap"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6968; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OFLAGMAP__V18*/ meltfptr[17]; /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V22*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6968:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; } ; } ; /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6968:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V22*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V21*/ meltfptr[19] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6969:/ quasiblock"); /*_.OBJMF__V25*/ meltfptr[18] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OFLAGMAP__V18*/ meltfptr[17]), (meltobject_ptr_t)(/*_.NMFLAG__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6971:/ cond"); /*cond*/ if (/*_.OBJMF__V25*/ meltfptr[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6973:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6973:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6973:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6973; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchflag found & returning objmf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBJMF__V25*/ meltfptr[18]; /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V27*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6973:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V27*/ meltfptr[26] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6973:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V27*/ meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6974:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L10*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OBJMF__V25*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_OBJFLAG*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:6974:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V30*/ meltfptr[26] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6974:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check ojbmf"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6974; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBJMF__V25*/ meltfptr[18]; /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V30*/ meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6974:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30] = 0 ; } ; } ; /*_.IFCPP___V29*/ meltfptr[27] = /*_._IFELSE___V30*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6974:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V30*/ meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V29*/ meltfptr[27] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6975:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OBJMF__V25*/ meltfptr[18];; { MELT_LOCATION("warmelt-genobj.melt:6975:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-genobj.melt:6972:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[26] = /*_.RETURN___V32*/ meltfptr[30];; /*^compute*/ /*_._IF___V26*/ meltfptr[25] = /*_.PROGN___V33*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6971:/ clear"); /*clear*/ /*_.IFCPP___V29*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V32*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V33*/ meltfptr[26] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V26*/ meltfptr[25] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6979:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NRFLA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[7]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NRFLA__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "MFLAG_STRING"); /*_.MFLAG_STRING__V34*/ meltfptr[27] = slot; }; ; } else /*^cond.else*/ { /*_.MFLAG_STRING__V34*/ meltfptr[27] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6980:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NRFLA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_MATCH_FLAG*/ meltfrout->tabval[7]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NRFLA__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "MFLAG_RANK"); /*_.MFLAG_RANK__V35*/ meltfptr[30] = slot; }; ; } else /*^cond.else*/ { /*_.MFLAG_RANK__V35*/ meltfptr[30] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6976:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJFLAG*/ meltfrout->tabval[5])), (4), "CLASS_OBJFLAG"); /*_.INST__V37*/ meltfptr[36] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (0), ((/*!CTYPE_LONG*/ meltfrout->tabval[6])), "OBV_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBFLAG_MATCHFLAG", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (1), (/*_.NMFLAG__V2*/ meltfptr[1]), "OBFLAG_MATCHFLAG"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBFLAG_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (2), (/*_.MFLAG_STRING__V34*/ meltfptr[27]), "OBFLAG_NAME"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBFLAG_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (3), (/*_.MFLAG_RANK__V35*/ meltfptr[30]), "OBFLAG_RANK"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V37*/ meltfptr[36], "newly made instance"); ; /*_.INST___V36*/ meltfptr[26] = /*_.INST__V37*/ meltfptr[36];; MELT_LOCATION("warmelt-genobj.melt:6976:/ compute"); /*_.OBJMF__V25*/ meltfptr[18] = /*_.SETQ___V38*/ meltfptr[37] = /*_.INST___V36*/ meltfptr[26];; { MELT_LOCATION("warmelt-genobj.melt:6981:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.OFLAGMAP__V18*/ meltfptr[17]), (meltobject_ptr_t) (/*_.NMFLAG__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.OBJMF__V25*/ meltfptr[18])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6982:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6982:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L12*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6982:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6982; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchflag new objmf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBJMF__V25*/ meltfptr[18]; /*^apply.arg*/ argtab[5].meltbp_cstring = " in updated oflagmap="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OFLAGMAP__V18*/ meltfptr[17]; /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V39*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6982:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V39*/ meltfptr[38] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6982:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V39*/ meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:6983:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_nrep_matchflag"), (15)); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6984:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OBJMF__V25*/ meltfptr[18];; { MELT_LOCATION("warmelt-genobj.melt:6984:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V24*/ meltfptr[22] = /*_.RETURN___V41*/ meltfptr[39];; MELT_LOCATION("warmelt-genobj.melt:6969:/ clear"); /*clear*/ /*_.OBJMF__V25*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.MFLAG_STRING__V34*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.MFLAG_RANK__V35*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V36*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V38*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V41*/ meltfptr[39] = 0 ; /*_.LET___V13*/ meltfptr[11] = /*_.LET___V24*/ meltfptr[22];; MELT_LOCATION("warmelt-genobj.melt:6961:/ clear"); /*clear*/ /*_.NLOC__V14*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.NRFLA__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NRMATCH__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.ALTMATCHDATA__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.OFLAGMAP__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V24*/ meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6956:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; { MELT_LOCATION("warmelt-genobj.melt:6956:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V13*/ meltfptr[11] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCHFLAG", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_162_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHFLAG*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT fromline 1752 */ /** start of frame for meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT// fromline 1568 : public Melt_CallFrameWithValues<38> { public: /* fromline 1572*/ long mcfr_varnum[11]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<38> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT), clos) {}; MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT() //the constructor fromline 1642 : Melt_CallFrameWithValues<38> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<38> (fil,lin, sizeof(MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT)) {}; MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<38> (fil,lin, sizeof(MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT /** end of frame for meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT fromline 1697**/ /* end of frame for routine meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT fromline 1756 */ /* classy proc frame meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT */ MeltFrame_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCHDATAINIT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:6990:/ getarg"); /*_.NMDAT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6991:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:6991:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ /*_.DISCRIM__V5*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6991:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6991; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchdatainit nmdat="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMDAT__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n of discr="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V5*/ meltfptr[4]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n gcx="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6991:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DISCRIM__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:6991:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6993:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_DATA_INITIALIZER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:6993:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6993:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmdat"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6993; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMDAT__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6993:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[4] = /*_._IFELSE___V8*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6993:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:6994:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:6994:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:6994:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 6994; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V11*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6994:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; } ; } ; /*_.IFCPP___V10*/ meltfptr[3] = /*_._IFELSE___V11*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:6994:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V11*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:6995:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:6996:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V14*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:6997:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_DATA_ACTION*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NMDAC_DATA"); /*_.NDATA__V15*/ meltfptr[14] = slot; }; ; } else /*^cond.else*/ { /*_.NDATA__V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6998:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NREP_MATCHED_DATA*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDATA__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NRMATD_CTYPE"); /*_.NDATATYPE__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.NDATATYPE__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:6999:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NREP_MATCHED_DATA*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDATA__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NRMATD_RANK"); /*_.NDATARANK__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.NDATARANK__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7000:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NREP_MATCHED_DATA*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NDATA__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NRMATD_MDATA"); /*_.MATDATA__V18*/ meltfptr[17] = slot; }; ; } else /*^cond.else*/ { /*_.MATDATA__V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7001:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 9, "GNCX_ALTMATCH"); /*_.ALTMATCH__V19*/ meltfptr[18] = slot; }; ; } else /*^cond.else*/ { /*_.ALTMATCH__V19*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7002:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATDATA__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_MATCHED_DATA*/ meltfrout->tabval[8]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MATDATA__V18*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 1, "MDATA_SYMB"); /*_.MDATA_SYMB__V20*/ meltfptr[19] = slot; }; ; } else /*^cond.else*/ { /*_.MDATA_SYMB__V20*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7002:/ cond"); /*cond*/ if (/*_.MDATA_SYMB__V20*/ meltfptr[19]) /*then*/ { /*^cond.then*/ /*_.SYMB__V21*/ meltfptr[20] = /*_.MDATA_SYMB__V20*/ meltfptr[19];; } else { MELT_LOCATION("warmelt-genobj.melt:7002:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { /*_.CLONE_SYMBOL__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_MATCHDATA*/ meltfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_.SYMB__V21*/ meltfptr[20] = /*_.CLONE_SYMBOL__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7002:/ clear"); /*clear*/ /*_.CLONE_SYMBOL__V22*/ meltfptr[21] = 0 ; } ; } ; { MELT_LOCATION("warmelt-genobj.melt:7004:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_nrep_matchdatainit"), (10)); #endif ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7005:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7005:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7005:/ apply"); /*apply*/ { union meltparam_un argtab[15]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7005; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchdatainit ndata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NDATA__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n* ndatatype="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NDATATYPE__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n* ndatarank="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NDATARANK__V17*/ meltfptr[16]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n* matdata="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.MATDATA__V18*/ meltfptr[17]; /*^apply.arg*/ argtab[11].meltbp_cstring = "\n* altmatch="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.ALTMATCH__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[13].meltbp_cstring = "\n* symb="; /*^apply.arg*/ argtab[14].meltbp_aptr = (melt_ptr_t*) &/*_.SYMB__V21*/ meltfptr[20]; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V23*/ meltfptr[21] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7005:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V23*/ meltfptr[21] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7005:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V23*/ meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:7009:/ quasiblock"); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7010:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SYMB__V21*/ meltfptr[20]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NDATATYPE__V16*/ meltfptr[15]; /*_.OBVLOC__V26*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:7011:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCH__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[10]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ALTMATCH__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 4, "ALTMATCHN_DATAMAP"); /*_.ALDATAMAP__V27*/ meltfptr[26] = slot; }; ; } else /*^cond.else*/ { /*_.ALDATAMAP__V27*/ meltfptr[26] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7012:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ meltfrout->tabval[11])), (2), "CLASS_OBJCLEAR"); /*_.INST__V29*/ meltfptr[28] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ meltfptr[28])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V29*/ meltfptr[28]), (0), (/*_.NLOC__V14*/ meltfptr[5]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ meltfptr[28])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V29*/ meltfptr[28]), (1), (/*_.OBVLOC__V26*/ meltfptr[21]), "OCLR_VLOC"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V29*/ meltfptr[28], "newly made instance"); ; /*_.OBCL__V28*/ meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7016:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7016:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L8*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7016:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7016; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchdatainit obvloc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBVLOC__V26*/ meltfptr[21]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n* obcl="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBCL__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n* aldatamap="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.ALDATAMAP__V27*/ meltfptr[26]; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V30*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7016:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V30*/ meltfptr[29] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7016:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V30*/ meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7019:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_.MAPOBJECT_GET__V33*/ meltfptr[29] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.ALDATAMAP__V27*/ meltfptr[26]), (meltobject_ptr_t)(/*_.NDATA__V15*/ meltfptr[14]));; /*^compute*/ /*_#NULL__L9*/ meltfnum[1] = (/*null*/(/*_.MAPOBJECT_GET__V33*/ meltfptr[29]) == NULL);; MELT_LOCATION("warmelt-genobj.melt:7019:/ cond"); /*cond*/ if (/*_#NULL__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7019:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "unknown ndata in aldatamap"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7019; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NDATA__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ALDATAMAP__V27*/ meltfptr[26]; /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V34*/ meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7019:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; } ; } ; /*_.IFCPP___V32*/ meltfptr[30] = /*_._IFELSE___V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7019:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V33*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L9*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V34*/ meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V32*/ meltfptr[30] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:7020:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.ALDATAMAP__V27*/ meltfptr[26]), (meltobject_ptr_t) (/*_.NDATA__V15*/ meltfptr[14]), (melt_ptr_t)(/*_.OBVLOC__V26*/ meltfptr[21])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7021:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7021:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L11*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7021:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7021; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchdatainit updated aldatamap="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ALDATAMAP__V27*/ meltfptr[26]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n*return obcl="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OBCL__V28*/ meltfptr[27]; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V36*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7021:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[29] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V36*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7021:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V36*/ meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7023:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OBCL__V28*/ meltfptr[27];; { MELT_LOCATION("warmelt-genobj.melt:7023:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V25*/ meltfptr[23] = /*_.RETURN___V38*/ meltfptr[33];; MELT_LOCATION("warmelt-genobj.melt:7009:/ clear"); /*clear*/ /*_.OBVLOC__V26*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.ALDATAMAP__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.OBCL__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V32*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V38*/ meltfptr[33] = 0 ; /*_.LET___V13*/ meltfptr[11] = /*_.LET___V25*/ meltfptr[23];; MELT_LOCATION("warmelt-genobj.melt:6995:/ clear"); /*clear*/ /*_.NLOC__V14*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.NDATA__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NDATATYPE__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.NDATARANK__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.MATDATA__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.ALTMATCH__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MDATA_SYMB__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.SYMB__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V25*/ meltfptr[23] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:6990:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; { MELT_LOCATION("warmelt-genobj.melt:6990:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V13*/ meltfptr[11] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCHDATAINIT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_163_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAINIT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR fromline 1752 */ /** start of frame for meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR// fromline 1568 : public Melt_CallFrameWithValues<20> { public: /* fromline 1572*/ long mcfr_varnum[6]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<20> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR), clos) {}; MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR() //the constructor fromline 1642 : Melt_CallFrameWithValues<20> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<20> (fil,lin, sizeof(MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR)) {}; MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<20> (fil,lin, sizeof(MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR /** end of frame for meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR fromline 1697**/ /* end of frame for routine meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR fromline 1756 */ /* classy proc frame meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR */ MeltFrame_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCHDATACLEAR", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:7029:/ getarg"); /*_.NMC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7030:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7030:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7030:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7030; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchdataclear nmc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMC__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n gcx="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7030:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7030:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7031:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMC__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_DATA_CLEAR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:7031:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7031:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmc"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7031; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMC__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7031:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7031:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7032:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:7032:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7032:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7032; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7032:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7032:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:7033:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:7034:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMC__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMC__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V13*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.NLOC__V13*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7035:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMC__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_DATA_ACTION*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMC__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NMDAC_DATA"); /*_.NDATA__V14*/ meltfptr[13] = slot; }; ; } else /*^cond.else*/ { /*_.NDATA__V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7036:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.ODATA__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.NDATA__V14*/ meltfptr[13]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7037:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ meltfrout->tabval[7])), (2), "CLASS_OBJCLEAR"); /*_.INST__V17*/ meltfptr[16] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ meltfptr[16])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ meltfptr[16]), (0), (/*_.NLOC__V13*/ meltfptr[3]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ meltfptr[16])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ meltfptr[16]), (1), (/*_.ODATA__V15*/ meltfptr[14]), "OCLR_VLOC"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V17*/ meltfptr[16], "newly made instance"); ; /*_.OCLEAR__V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7041:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7041:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7041:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7041; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchdataclear odata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ODATA__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n result oclear="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OCLEAR__V16*/ meltfptr[15]; /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V18*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7041:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7041:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V18*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7042:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OCLEAR__V16*/ meltfptr[15];; { MELT_LOCATION("warmelt-genobj.melt:7042:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V20*/ meltfptr[18];; MELT_LOCATION("warmelt-genobj.melt:7033:/ clear"); /*clear*/ /*_.NLOC__V13*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.NDATA__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.ODATA__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.OCLEAR__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V20*/ meltfptr[18] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7029:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:7029:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCHDATACLEAR", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_164_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATACLEAR*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL fromline 1752 */ /** start of frame for meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL// fromline 1568 : public Melt_CallFrameWithValues<22> { public: /* fromline 1572*/ long mcfr_varnum[8]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<22> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL), clos) {}; MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL() //the constructor fromline 1642 : Melt_CallFrameWithValues<22> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<22> (fil,lin, sizeof(MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL)) {}; MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<22> (fil,lin, sizeof(MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL /** end of frame for meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL fromline 1697**/ /* end of frame for routine meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL fromline 1756 */ /* classy proc frame meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL */ MeltFrame_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCHDATAFINAL", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:7048:/ getarg"); /*_.NMDATF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7049:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7049:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ /*_.DISCRIM__V5*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NMDATF__V2*/ meltfptr[1]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7049:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7049; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchdatafinal nmdatf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMDATF__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n of discr="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V5*/ meltfptr[4]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n gcx="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7049:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DISCRIM__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7049:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7051:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMDATF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_DATA_FINALIZER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:7051:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7051:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmdatf"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7051; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMDATF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7051:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[4] = /*_._IFELSE___V8*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7051:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7052:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:7052:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7052:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7052; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V11*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7052:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; } ; } ; /*_.IFCPP___V10*/ meltfptr[3] = /*_._IFELSE___V11*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7052:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V11*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-genobj.melt:7053:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_nrep_matchdatafinal"), (10)); #endif ; } ; MELT_LOCATION("warmelt-genobj.melt:7054:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:7055:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMDATF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V14*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:7056:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMDATF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NMDAC_DATA"); /*_.NDATA__V15*/ meltfptr[14] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7057:/ msend"); /*msend*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.ODATA__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.NDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7060:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7060:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7060:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7060; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchdatafinal ndata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NDATA__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n disposing odata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ODATA__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n nmdatf="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NMDATF__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V17*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7060:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7060:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7062:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.DISPOSE_OBJLOC__V19*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ODATA__V16*/ meltfptr[15]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7063:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7063:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L8*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7063:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7063; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchdatafinal end nmdatf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMDATF__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V20*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7063:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V20*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7063:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V20*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:7064:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-genobj.melt:7064:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V22*/ meltfptr[20];; MELT_LOCATION("warmelt-genobj.melt:7054:/ clear"); /*clear*/ /*_.NLOC__V14*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.NDATA__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.ODATA__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.DISPOSE_OBJLOC__V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V22*/ meltfptr[20] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7048:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; { MELT_LOCATION("warmelt-genobj.melt:7048:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V13*/ meltfptr[11] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCHDATAFINAL", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_165_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHDATAFINAL*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA fromline 1752 */ /** start of frame for meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA// fromline 1568 : public Melt_CallFrameWithValues<27> { public: /* fromline 1572*/ long mcfr_varnum[7]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<27> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA), clos) {}; MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA() //the constructor fromline 1642 : Melt_CallFrameWithValues<27> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA)) {}; MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA /** end of frame for meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA fromline 1697**/ /* end of frame for routine meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA fromline 1756 */ /* classy proc frame meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA */ MeltFrame_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCHEDATA", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:7070:/ getarg"); /*_.NMDAT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7071:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7071:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ /*_.DISCRIM__V5*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7071:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7071; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchedata nmdat="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMDAT__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n of discr="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V5*/ meltfptr[4]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n gcx="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7071:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DISCRIM__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7071:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7073:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCHED_DATA*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:7073:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7073:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmdat"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7073; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMDAT__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7073:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[4] = /*_._IFELSE___V8*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7073:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7074:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:7074:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7074:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7074; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V11*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7074:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; } ; } ; /*_.IFCPP___V10*/ meltfptr[3] = /*_._IFELSE___V11*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7074:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V11*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:7075:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:7076:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V14*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:7077:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NRMATD_CTYPE"); /*_.NCTYPE__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:7078:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCHED_DATA*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NRMATD_MDATA"); /*_.NRMDATA__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.NRMDATA__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7079:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCHED_DATA*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "NRMATD_RANK"); /*_.NRMRANK__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.NRMRANK__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7080:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 9, "GNCX_ALTMATCH"); /*_.ALTMATCH__V18*/ meltfptr[17] = slot; }; ; } else /*^cond.else*/ { /*_.ALTMATCH__V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7081:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCH__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ALTMATCH__V18*/ meltfptr[17]) /*=obj*/; melt_object_get_field(slot,obj, 4, "ALTMATCHN_DATAMAP"); /*_.ALDATAMAP__V19*/ meltfptr[18] = slot; }; ; } else /*^cond.else*/ { /*_.ALDATAMAP__V19*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.OBMDAT__V20*/ meltfptr[19] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.ALDATAMAP__V19*/ meltfptr[18]), (meltobject_ptr_t)(/*_.NMDAT__V2*/ meltfptr[1]));; { MELT_LOCATION("warmelt-genobj.melt:7084:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "compilobj_nrep_matcheddata"), (10)); #endif ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7085:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7085:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ /*_.DISCRIM__V22*/ meltfptr[21] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.OBMDAT__V20*/ meltfptr[19]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7085:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7085; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchedata altmatch="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ALTMATCH__V18*/ meltfptr[17]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n aldatamap="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ALDATAMAP__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n obmdat="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OBMDAT__V20*/ meltfptr[19]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n.. of discrim="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V22*/ meltfptr[21]; /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7085:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DISCRIM__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V21*/ meltfptr[20] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7085:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7087:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OBMDAT__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:7087:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V25*/ meltfptr[22] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7087:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check obmdat"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7087; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBMDAT__V20*/ meltfptr[19]; /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V25*/ meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7087:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[20] = 0 ; } ; } ; /*_.IFCPP___V24*/ meltfptr[21] = /*_._IFELSE___V25*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7087:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V25*/ meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V24*/ meltfptr[21] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7088:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OBMDAT__V20*/ meltfptr[19];; { MELT_LOCATION("warmelt-genobj.melt:7088:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V27*/ meltfptr[20];; MELT_LOCATION("warmelt-genobj.melt:7075:/ clear"); /*clear*/ /*_.NLOC__V14*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.NCTYPE__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NRMDATA__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.NRMRANK__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.ALTMATCH__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.ALDATAMAP__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.OBMDAT__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V24*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V27*/ meltfptr[20] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7070:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; { MELT_LOCATION("warmelt-genobj.melt:7070:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V13*/ meltfptr[11] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCHEDATA", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_166_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHEDATA*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP fromline 1752 */ /** start of frame for meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP// fromline 1568 : public Melt_CallFrameWithValues<46> { public: /* fromline 1572*/ long mcfr_varnum[15]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<46> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP), clos) {}; MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP() //the constructor fromline 1642 : Melt_CallFrameWithValues<46> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<46> (fil,lin, sizeof(MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP)) {}; MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<46> (fil,lin, sizeof(MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP /** end of frame for meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP fromline 1697**/ /* end of frame for routine meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP fromline 1756 */ /* classy proc frame meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP */ MeltFrame_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("COMPILOBJ_NREP_MATCHJUMP", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:7096:/ getarg"); /*_.NMJUMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7097:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7097:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ /*_.DISCRIM__V5*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NMJUMP__V2*/ meltfptr[1]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7097:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7097; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchjump nmjump="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMJUMP__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n of discr="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V5*/ meltfptr[4]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n gcx="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7097:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DISCRIM__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7097:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7099:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMJUMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_JUMP*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:7099:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7099:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nmjump"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7099; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMJUMP__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7099:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[3] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[4] = /*_._IFELSE___V8*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7099:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7100:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:7100:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7100:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7100; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V11*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7100:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; } ; } ; /*_.IFCPP___V10*/ meltfptr[3] = /*_._IFELSE___V11*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7100:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V11*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:7101:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:7102:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMJUMP__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V14*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:7103:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 9, "GNCX_ALTMATCH"); /*_.ALTMATCHDATA__V15*/ meltfptr[14] = slot; }; ; } else /*^cond.else*/ { /*_.ALTMATCHDATA__V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7104:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMJUMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_JUMP*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMJUMP__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NMJMP_LABEL"); /*_.NMLAB__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.NMLAB__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7105:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 6, "ALTMATCHN_LABPREFIX"); /*_.LABPREFIX__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.LABPREFIX__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7107:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7107:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7107:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7107; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchjump altmatchdata="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ALTMATCHDATA__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n *nmlab="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NMLAB__V16*/ meltfptr[15]; /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V18*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7107:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7107:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V18*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7109:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:7109:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[17] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7109:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check altmatchdata"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7109; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ALTMATCHDATA__V15*/ meltfptr[14]; /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V21*/ meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7109:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7109:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V21*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V20*/ meltfptr[18] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:7110:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*_#IS_A__L8*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NMLAB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL_END*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-genobj.melt:7111:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7112:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7112:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7112:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[9]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7112; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchjump ending nmlab="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMLAB__V16*/ meltfptr[15]; /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V25*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7112:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V25*/ meltfptr[24] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7112:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V25*/ meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7115:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LABPREFIX__V17*/ meltfptr[16]; /*^apply.arg*/ argtab[1].meltbp_cstring = "_end"; /*_.STRING4OUT__V27*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-genobj.melt:7113:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ meltfrout->tabval[6])), (3), "CLASS_OBJGOTOINSTR"); /*_.INST__V29*/ meltfptr[28] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ meltfptr[28])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V29*/ meltfptr[28]), (0), (/*_.NLOC__V14*/ meltfptr[5]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ meltfptr[28])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V29*/ meltfptr[28]), (1), (/*_.STRING4OUT__V27*/ meltfptr[25]), "OBGOTO_PREFIX"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V29*/ meltfptr[28], "newly made instance"); ; /*_.INST___V28*/ meltfptr[24] = /*_.INST__V29*/ meltfptr[28];; MELT_LOCATION("warmelt-genobj.melt:7111:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.INST___V28*/ meltfptr[24];; /*^compute*/ /*_.OBJGOTOMINS__V24*/ meltfptr[17] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7111:/ clear"); /*clear*/ /*_.STRING4OUT__V27*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V28*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V30*/ meltfptr[29] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L11*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.NMLAB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-genobj.melt:7118:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-genobj.melt:7119:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:7121:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMLAB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_MATCH_LABEL*/ meltfrout->tabval[9]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NMLAB__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NMLAB_STEP"); /*_.NSTEP__V33*/ meltfptr[29] = slot; }; ; } else /*^cond.else*/ { /*_.NSTEP__V33*/ meltfptr[29] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7122:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ALTERNATE_MATCH_NREP_DATA*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ALTMATCHDATA__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 5, "ALTMATCHN_STEPMAP"); /*_.OSTEPMAP__V34*/ meltfptr[33] = slot; }; ; } else /*^cond.else*/ { /*_.OSTEPMAP__V34*/ meltfptr[33] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.STEPNUM__V35*/ meltfptr[34] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OSTEPMAP__V34*/ meltfptr[33]), (meltobject_ptr_t)(/*_.NSTEP__V33*/ meltfptr[29]));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7125:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7125:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7125:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[12]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7125; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchjump nstep="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NSTEP__V33*/ meltfptr[29]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n *stepnum="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.STEPNUM__V35*/ meltfptr[34]; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V36*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7125:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V36*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7125:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V36*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7127:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ meltfrout->tabval[6])), (3), "CLASS_OBJGOTOINSTR"); /*_.INST__V39*/ meltfptr[35] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[35])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V39*/ meltfptr[35]), (0), (/*_.NLOC__V14*/ meltfptr[5]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[35])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V39*/ meltfptr[35]), (1), (/*_.LABPREFIX__V17*/ meltfptr[16]), "OBGOTO_PREFIX"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[35])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V39*/ meltfptr[35]), (2), (/*_.STEPNUM__V35*/ meltfptr[34]), "OBGOTO_RANK"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V39*/ meltfptr[35], "newly made instance"); ; /*_.INST___V38*/ meltfptr[36] = /*_.INST__V39*/ meltfptr[35];; /*^compute*/ /*_.LET___V32*/ meltfptr[24] = /*_.INST___V38*/ meltfptr[36];; MELT_LOCATION("warmelt-genobj.melt:7119:/ clear"); /*clear*/ /*_.NSTEP__V33*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.OSTEPMAP__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.STEPNUM__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V38*/ meltfptr[36] = 0 ; /*_._IFELSE___V31*/ meltfptr[25] = /*_.LET___V32*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7118:/ clear"); /*clear*/ /*_.LET___V32*/ meltfptr[24] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7132:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V41*/ meltfptr[33] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7132:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "unexpected nmlab"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7132; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NMLAB__V16*/ meltfptr[15]; /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V41*/ meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7132:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V42*/ meltfptr[34] = 0 ; } ; } ; /*_.IFCPP___V40*/ meltfptr[29] = /*_._IFELSE___V41*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7132:/ clear"); /*clear*/ /*_._IFELSE___V41*/ meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V40*/ meltfptr[29] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:7131:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[36] = /*_.IFCPP___V40*/ meltfptr[29];; /*^compute*/ /*_._IFELSE___V31*/ meltfptr[25] = /*_.PROGN___V43*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7118:/ clear"); /*clear*/ /*_.IFCPP___V40*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V43*/ meltfptr[36] = 0 ; } ; } ; /*_.OBJGOTOMINS__V24*/ meltfptr[17] = /*_._IFELSE___V31*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7111:/ clear"); /*clear*/ /*_#IS_A__L11*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V31*/ meltfptr[25] = 0 ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7134:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7134:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7134:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7134; /*^apply.arg*/ argtab[3].meltbp_cstring = "compilobj_nrep_matchjump result objgotomins="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBJGOTOMINS__V24*/ meltfptr[17]; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V44*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7134:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[34] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V44*/ meltfptr[24] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7134:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V44*/ meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7135:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.OBJGOTOMINS__V24*/ meltfptr[17];; { MELT_LOCATION("warmelt-genobj.melt:7135:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V23*/ meltfptr[21] = /*_.RETURN___V46*/ meltfptr[33];; MELT_LOCATION("warmelt-genobj.melt:7110:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.OBJGOTOMINS__V24*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V46*/ meltfptr[33] = 0 ; /*_.LET___V13*/ meltfptr[11] = /*_.LET___V23*/ meltfptr[21];; MELT_LOCATION("warmelt-genobj.melt:7101:/ clear"); /*clear*/ /*_.NLOC__V14*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.ALTMATCHDATA__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NMLAB__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.LABPREFIX__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V23*/ meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7096:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; { MELT_LOCATION("warmelt-genobj.melt:7096:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V13*/ meltfptr[11] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("COMPILOBJ_NREP_MATCHJUMP", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_167_WARMELTmiGENOBJ_COMPILOBJ_NREP_MATCHJUMP*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR fromline 1752 */ /** start of frame for meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR// fromline 1568 : public Melt_CallFrameWithValues<35> { public: /* fromline 1572*/ long mcfr_varnum[12]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<35> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR), clos) {}; MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR() //the constructor fromline 1642 : Melt_CallFrameWithValues<35> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<35> (fil,lin, sizeof(MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR)) {}; MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<35> (fil,lin, sizeof(MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR /** end of frame for meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR fromline 1697**/ /* end of frame for routine meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR fromline 1756 */ /* classy proc frame meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR */ MeltFrame_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("NORMTESTER_LABELINSTR", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-genobj.melt:7148:/ getarg"); /*_.NT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.GCX__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7149:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7149:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7149:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7149; /*^apply.arg*/ argtab[3].meltbp_cstring = "normtester_labelinstr start nt="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NT__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7149:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7149:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7150:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-genobj.melt:7150:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7150:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check gcx"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7150; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7150:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7150:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_NOT_A__L4*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.NT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-genobj.melt:7151:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7153:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7153:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7153:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7153; /*^apply.arg*/ argtab[3].meltbp_cstring = "normtester_labelinstr return nil"; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V10*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7153:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V10*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7153:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:7154:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-genobj.melt:7154:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-genobj.melt:7152:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[3] = /*_.RETURN___V12*/ meltfptr[10];; /*^compute*/ /*_._IF___V9*/ meltfptr[7] = /*_.PROGN___V13*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7151:/ clear"); /*clear*/ /*_.RETURN___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V13*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V9*/ meltfptr[7] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-genobj.melt:7155:/ quasiblock"); MELT_LOCATION("warmelt-genobj.melt:7156:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "NREP_LOC"); /*_.NLOC__V15*/ meltfptr[3] = slot; }; ; /*_#NTESTIX__L7*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.NT__V2*/ meltfptr[1])));; MELT_LOCATION("warmelt-genobj.melt:7158:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NT__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 4, "NTEST_NORMATCH"); /*_.NORMATCH__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-genobj.melt:7159:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GCX__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 8, "GNCX_MATCHMAP"); /*_.MATCHMAP__V17*/ meltfptr[16] = slot; }; ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7161:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L8*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-genobj.melt:7161:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7161:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check normatch"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7161; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NORMATCH__V16*/ meltfptr[15]; /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V19*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7161:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; /*_.IFCPP___V18*/ meltfptr[17] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7161:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7162:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7163:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NORMATCH__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 2, "NMATCH_TESTS"); /*_.NMATCH_TESTS__V22*/ meltfptr[18] = slot; }; ; } else /*^cond.else*/ { /*_.NMATCH_TESTS__V22*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.MULTIPLE_NTH__V23*/ meltfptr[22] = (melt_multiple_nth((melt_ptr_t)(/*_.NMATCH_TESTS__V22*/ meltfptr[18]), (/*_#NTESTIX__L7*/ meltfnum[5])));; /*^compute*/ /*_#eqeq__L9*/ meltfnum[1] = ((/*_.MULTIPLE_NTH__V23*/ meltfptr[22]) == (/*_.NT__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-genobj.melt:7162:/ cond"); /*cond*/ if (/*_#eqeq__L9*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7162:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check valid normatch"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7162; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NORMATCH__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[4].meltbp_long = /*_#NTESTIX__L7*/ meltfnum[5]; /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V24*/ meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7162:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; } ; } ; /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7162:/ clear"); /*clear*/ /*_.NMATCH_TESTS__V22*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_NTH__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L9*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V24*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V21*/ meltfptr[19] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-genobj.melt:7166:/ quasiblock"); /*_.PREFIX__V27*/ meltfptr[18] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V17*/ meltfptr[16]), (meltobject_ptr_t)(/*_.NORMATCH__V16*/ meltfptr[15]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7168:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ meltfrout->tabval[5])), (3), "CLASS_OBJLABELINSTR"); /*_.INST__V29*/ meltfptr[23] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V29*/ meltfptr[23]), (0), (/*_.NLOC__V15*/ meltfptr[3]), "OBI_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLAB_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V29*/ meltfptr[23]), (1), (/*_.PREFIX__V27*/ meltfptr[18]), "OBLAB_PREFIX"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @OBLAB_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ meltfptr[23])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V29*/ meltfptr[23]), (2), (/*_.NT__V2*/ meltfptr[1]), "OBLAB_RANK"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V29*/ meltfptr[23], "newly made instance"); ; /*_.LABINS__V28*/ meltfptr[22] = /*_.INST__V29*/ meltfptr[23];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7173:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-genobj.melt:7173:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7173:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7173; /*^apply.arg*/ argtab[3].meltbp_cstring = "normtester_labelinstr result labins="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.LABINS__V28*/ meltfptr[22]; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V30*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7173:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V30*/ meltfptr[29] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-genobj.melt:7173:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V30*/ meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-genobj.melt:7174:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L12*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.PREFIX__V27*/ meltfptr[18])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-genobj.melt:7174:/ cond"); /*cond*/ if (/*_#IS_STRING__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[29] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-genobj.melt:7174:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check prefix"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-genobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 7174; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PREFIX__V27*/ meltfptr[18]; /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V33*/ meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7174:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; } ; } ; /*_.IFCPP___V32*/ meltfptr[30] = /*_._IFELSE___V33*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-genobj.melt:7174:/ clear"); /*clear*/ /*_#IS_STRING__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V33*/ meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V32*/ meltfptr[30] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7175:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LABINS__V28*/ meltfptr[22];; { MELT_LOCATION("warmelt-genobj.melt:7175:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V26*/ meltfptr[24] = /*_.RETURN___V35*/ meltfptr[33];; MELT_LOCATION("warmelt-genobj.melt:7166:/ clear"); /*clear*/ /*_.PREFIX__V27*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LABINS__V28*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V32*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V35*/ meltfptr[33] = 0 ; /*_.LET___V14*/ meltfptr[10] = /*_.LET___V26*/ meltfptr[24];; MELT_LOCATION("warmelt-genobj.melt:7155:/ clear"); /*clear*/ /*_.NLOC__V15*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#NTESTIX__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.NORMATCH__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.MATCHMAP__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V26*/ meltfptr[24] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-genobj.melt:7148:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];; { MELT_LOCATION("warmelt-genobj.melt:7148:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("NORMTESTER_LABELINSTR", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_168_WARMELTmiGENOBJ_NORMTESTER_LABELINSTR*/ /**** end of warmelt-genobj+06.cc ****/